#' @title Write Data to disk
#' @description interal function used to write data to disk according to it meta.data found via HydroData::meta.data()
#' @param AOI a HydroData object with components to write to disk
#' @param class objects class
#' @param dir directory
#' @param feature_name object id
#' @param ext shp or gpkg
#'
#' @return NULL
#' @export
#'
writeHD = function(AOI, class, dir, feature_name, ext = "shp") {
data = eval(parse(text = paste0("AOI$", feature_name)))
if (grepl("Spatial", class)) {
if(ext == "shp"){
ext = ".shp"
driver = "ESRI Shapefile"
} else {
ext = ".gpkg"
driver = "GPKG"
}
file = paste0(dir, "/", feature_name, ext)
if (!file.exists(file)) {
data = sf::st_as_sf(data)
names(data) = abbreviate(names(data), 10)
st_write(data, dsn = file, layer = feature_name,
driver = driver, delete_dsn = TRUE, quiet = TRUE)
}
}
if (grepl("raster", class)) {
write
}
if (grepl("data.frame", class)) {
write.csv(data, file)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.