Description Usage Arguments Details Value Author(s) Examples
This function exports the calculated sites, edges and binary IDs to a folder which then can be read using the 'SSN' package.
1 | export_ssn(path, predictions = NULL, delete_directory = FALSE)
|
path |
character; path to write .ssn object to. |
predictions |
name(s) of prediction map(s) (optional). |
delete_directory |
boolean; shall the ssn directory and all files be deleted before export in case it already exists? See details. |
First it is checked if one of the column names is longer than 10 characters (which cannot be exported to ESRI shape files as required by 'SSN').
delete_directory = TRUE
is useful if the same directory name has been
used before and the existing data shall be overwritten.
Nothing. Files are written to the specified folder
Mira Kattwinkel,mira.kattwinkel@gmx.net, Eduard Szoecs, eduardszoecs@gmail.com
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | dem_path <- system.file("extdata", "nc", "elev_ned_30m.tif", package = "openSTARS")
if(.Platform$OS.type == "windows"){
grass_program_path = "c:/Program Files/GRASS GIS 7.6"
} else {
grass_program_path = "/usr/lib/grass78/"
}
setup_grass_environment(dem = dem_path,
gisBase = grass_program_path,
remove_GISRC = TRUE,
override = TRUE
)
gmeta()
# Load files into GRASS
dem_path <- system.file("extdata", "nc", "elev_ned_30m.tif", package = "openSTARS")
sites_path <- system.file("extdata", "nc", "sites_nc.shp", package = "openSTARS")
import_data(dem = dem_path, sites = sites_path)
# Derive streams from DEM
derive_streams(burn = 0, accum_threshold = 700, condition = TRUE, clean = TRUE)
# Check and correct complex confluences (there are no complex confluences in this
# example date set; set accum_threshold in derive_streams to a smaller value
# to create complex confluences)
cj <- check_compl_confluences()
if(cj){
correct_compl_confluences()
}
# Prepare edges
calc_edges()
# Prepare site
calc_sites()
# Write data to SSN Folder
ssn_dir <- file.path(tempdir(), 'nc.ssn')
export_ssn(ssn_dir, delete_directory = TRUE)
list.files(ssn_dir)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.