library(furrr)
devtools::install()
devtools::load_all()
eumohp_clipped <- eumohp_clip(here::here("..",
"macro_mohp_feature_test",
"macro_mohp_feature",
"output_data"),
# countries = c("france"),
hydrologic_order = 1:3,
abbreviation_measure = c("dsd", "lp", "sd"),
region_name_spatcov = "france",
# custom_sf_polygon = .test_custom_sf_polygon() |> dplyr::summarise(),
# buffer = 1E4,
eumohp_version = "v013.1.1"
)
plan(multisession, workers = ceiling(length(eumohp_clipped) / 3))
eumohp_clipped |>
magrittr::extract(c(1, 5)) |>
eumohp_plot(downsample = 100)
eumohp_clipped |>
eumohp_write(directory_output = here::here("..", "output_test"),
parallel = TRUE)
eumohp_clipped <- eumohp_clip(here::here("..",
"macro_mohp_feature_test",
"macro_mohp_feature",
"output_data"),
region_name_spatcov = c("italy1"),
hydrologic_order = 1,
abbreviation_measure = "lp",
eumohp_version = "v013.1.1"
)
future::plan(future::multisession,
workers = ceiling(length(eumohp_clipped) / 3))
eumohp_clipped |>
eumohp_plot(downsample = 200)
eumohp_clipped |>
eumohp_write(directory_output = here::here("..", "output_test"),
parallel = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.