Create a new Weight object.
new_weight(
name,
variable,
visible = TRUE,
invisible = NA_real_,
loaded = TRUE,
hidden = FALSE,
status = TRUE,
current = 0,
factor = 0,
id = uuid::UUIDgenerate(),
pane = paste(uuid::UUIDgenerate(), variable$index, sep = "-")
)
name |
|
---|---|
variable | Variable object. |
visible |
|
invisible |
|
loaded |
|
hidden |
|
status |
|
current |
|
factor |
|
id |
|
pane |
|
A Weight 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)
# create new variable
v <- new_variable_from_auto(d, index = 1)
# create a new weight
w <- new_weight(name = "NDVI", variable = v)
# print object
print(w)
#> Weight
#> id: 9a000fed-e36e-4128-8f96-265531b3b6ad
#> name: NDVI
#> variable: .../sim_raster_spatial.tif#Brown_necked_Parrot_Brown_necked_ [total: 1052 ]
#> pane: ccbe637d-1f28-4a38-a9cf-c77b650eb0dc-Brown_necked_Parrot_Brown_necked_
#> current: 0
#> visible: TRUE
#> invisible: NA
#> loaded: TRUE
#> hidden: FALSE
#> status: TRUE
#> factor: 0