# \donttest{
library(srppp)
library(dplyr, warn.conflicts = FALSE)
library(dm, warn.conflicts = FALSE)
sr <- try(srppp_dm())
# Fall back to internal test data if downloading or reading fails
if (inherits(sr, "try-error")) {
sr <- system.file("testdata/Daten_Pflanzenschutzmittelverzeichnis_2024-12-16.zip",
package = "srppp") |>
srppp_xml_get_from_path(from = "2024-12-16") |>
srppp_dm()
}
product_uses_with_ingredients <- sr$substances |>
filter(substance_de %in% c("Halauxifen-methyl", "Kupfer (als Kalkpr\u00E4parat)")) |>
left_join(sr$ingredients, by = "pk") |>
left_join(sr$uses, by = "pNbr") |>
left_join(sr$products, by = "pNbr") |>
select(pNbr, name, use_nr,
min_dosage, max_dosage, min_rate, max_rate, units_de,
application_area_de,
substance_de, percent, g_per_L)
application_rate_g_per_ha(product_uses_with_ingredients) |>
filter(name %in% c("Cerelex", "Pixxaro EC", "Bordeaux S")) |>
select(ai = substance_de, app_area = application_area_de,
min_d = min_dosage, max_d = max_dosage,
min_r = min_rate, max_r = max_rate,
units_de, rate = rate_g_per_ha) |>
print(n = Inf)
# }
Run the code above in your browser using DataLab