hucPolygons <- sf::read_sf(system.file('extdata','example_huc_eta.json', package = 'ncdfgeom'))
hucPolygons_nc <- ncdfgeom::write_geometry(nc_file=tempfile(),
geom_data = hucPolygons)
try({
ncdump <- system(paste("ncdump -h", hucPolygons_nc), intern = TRUE)
cat(ncdump ,sep = "\n")
}, silent = TRUE)
Run the code above in your browser using DataLab