Called by the select_user module in the example app and loads a .tif file as a SpatRaster
select_user(raster_path, logger = NULL)
a SpatRaster object
if (check_suggests(example = TRUE)) {
raster_path <- list.files(system.file("extdata", "wc", package = "shinyscholar"),
full.names = TRUE)
raster <- select_user(raster_path)
} else {
message('reinstall with install.packages("shinyscholar", dependencies = TRUE)
to run this example')
}