Create a new Dataset object.
new_dataset(
spatial_path,
attribute_path,
boundary_path,
spatial_data = NULL,
attribute_data = NULL,
boundary_data = NULL,
id = uuid::UUIDgenerate()
)
spatial_path |
|
---|---|
attribute_path |
|
boundary_path |
|
spatial_data |
|
attribute_data |
|
boundary_data |
|
id |
|
A Dataset object.
# find data file paths
f1 <- system.file(
"extdata", "projects", "sim_raster", "sim_raster_spatial.tif",
package = "wheretowork"
)
f2 <- system.file(
"extdata", "projects", "sim_raster", "sim_raster_attribute.csv.gz",
package = "wheretowork"
)
f3 <- system.file(
"extdata", "projects", "sim_raster", "sim_raster_boundary.csv.gz",
package = "wheretowork"
)
# create new dataset
d <- new_dataset(f1, f2, f3)
# print object
print(d)
#> Dataset
#> paths:
#> spatial: C:/Users/marc.edwards/AppData/Local/Temp/RtmpUHgCYd/temp_libpath5524317a7145/wheretowork/extdata/projects/sim_raster/sim_raster_spatial.tif
#> attribute: C:/Users/marc.edwards/AppData/Local/Temp/RtmpUHgCYd/temp_libpath5524317a7145/wheretowork/extdata/projects/sim_raster/sim_raster_attribute.csv.gz
#> boundary: C:/Users/marc.edwards/AppData/Local/Temp/RtmpUHgCYd/temp_libpath5524317a7145/wheretowork/extdata/projects/sim_raster/sim_raster_boundary.csv.gz