R/hlptabel.r

In KeesVanImmerzeel/hlptabel: Calculate Reduction In Crop Production Caused By Waterlogging And Drought

#' hlptabel: Calculate reduction in crop production caused by waterlogging and drought.
#'
#' Based on the publication "De invloed van de waterhuishouding op de landbouwkundige produktie".
#' Rapport van de werkgroep HELP-tabel, Mededelingen Landinrichtingsdienst 176 (1987).
#' \href{https://edepot.wur.nl/188152}{Rapport van de werkgroep HELP-tabel}
#'
#' Approximate analytical formulas are used to calculate the reduction in crop productions.
#'
#' The following functions are exported:
#'
#' * \code{\link{ht_reduction}}: Calculate reduction in crop production caused by waterlogging and drought.
#'
#' * \code{\link{ht_reduction_brk}}: Calculate reduction in crop production caused by waterlogging and drought using a SpatRaster object as input.
#'
#' * \code{\link{ht_tab_calc_values}}: Tabulated and calculated reductions in crop production.
#'
#' * \code{\link{ht_plot_tab_calc_values}}: Plot of tabulated and calculated reductions in crop production.
#'
#' The following datasets are included in the package:
#'
#' * \strong{HELP_map_NL2020}: HELP map of the Netherlands based on the Bofek2020 map.
#' * \strong{landuse_map_NL2021}: Landuse map of the Netherlands based on the top25raster map.
#'
#' To use these datasets, the following code can be used:
#'
#' * `HELP_map_NL2020 <- file.path( find.package("hlptabel"), "extdata", "HELP_map_NL2020.tif") |> terra::rast()`
#'
#' * `landuse_map_NL2021 <- file.path( find.package("hlptabel"), "extdata", "landuse_map_NL2021.tif") |> terra::rast()`
#'
#' @details
#' You might consider to reclassify the HELP numbers 71 and 72 to the most similar soil codes in the HELP-table (1987).
#' [HELP-2005 Stowa rapport 2005/16 (page 16)](https://library.wur.nl/WebQuery/wurpubs/fulltext/27040)
#' HELP number 71 --> 67; HELP number 72 --> 60.
#' Dataset \strong{HELP_map_NL2020} is already converted in this way.
#'
#' @name hlptabel
#'
#' @importFrom magrittr %<>%
#' @importFrom magrittr %>%
#'
#' @importFrom dplyr filter
#' @importFrom dplyr arrange
#' @importFrom dplyr desc
#'
#' @importFrom stats na.omit
#'
#' @importFrom ggplot2 ggplot
#' @importFrom ggplot2 aes
#' @importFrom ggplot2 geom_point
#' @importFrom ggplot2 geom_abline
#' @importFrom ggplot2 theme
#' @importFrom ggplot2 labs
#' @importFrom ggplot2 ggtitle
#' @importFrom ggplot2 theme
#' @importFrom ggplot2 element_blank
#' @importFrom ggplot2 element_text
#'
#' @importFrom parallel detectCores
#'
#' @importFrom terra app
#' @importFrom terra rast

NULL