Create a new FeatureResults object to store results for a solution.
new_feature_results(feature, held, id = uuid::UUIDgenerate())
feature | Feature object. |
---|---|
held |
|
id |
|
A FeatureResults 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 new feature
f <- new_feature(name = "Intact Alvar", variable = v)
# create a feature results object to store results for the feature
fr <- new_feature_results(f, held = 0.8)
# print object
print(fr)
#> FeatureResults
#> id: 27d2bbb3-3937-451c-a81a-584f48f24313
#> status: TRUE
#> current: 0
#> goal: 0.2
#> held: 0.8
#> feature: Intact Alvar [status: TRUE, current: 0, goal: 0.2]
#>
variable: .../sim_raster_spatial.tif#Brown_necked_Parrot_Brown_necked_ [total: 1052 ]