Called by the plot_hist module in the example app and extracts values from a raster image, returning a histogram of density
plot_hist(raster, bins, logger = NULL)
a list of class histogram
if (check_suggests(example = TRUE)) {
raster <- terra::rast(ncol = 8, nrow = 8)
raster[] <- sapply(1:terra::ncell(raster), function(x){
rnorm(1, ifelse(x %% 8 != 0, x %% 8, 8), 3)})
histogram <- plot_hist(raster, bins = 10)
} else {
message('reinstall with install.packages("shinyscholar", dependencies = TRUE)
to run this example')
}