## Selected calculations
## library(tidyverse) # only purrr used here for crop2 example
library(dplyr)
library(purrr)
growing_degree_days(boonah, enddate = crop$flower_date[4], ndays = 3,
varmax = maxt, varmin = mint,
monitor = TRUE)
growing_degree_days(boonah, enddate = crop$harvest_date[4], ndays = 3,
varmax = maxt, varmin = mint,
monitor = TRUE)
growing_degree_days(boonah, startdate = crop$flower_date[4],
varmax = maxt, varmin = mint,
enddate = crop$harvest_date[4], monitor = TRUE)
## Add selected growing degree days at 'boonah' to 'crop' tibble
## using 'map2_dbl' from the 'purrr' package
## Note: using equivalent 'furrr' functions can speed up calculations
crop2 <- crop |>
mutate(gddays8_post_sow_7d =
purrr::map_dbl(sowing_date, function(x)
growing_degree_days(boonah, startdate = x, ndays = 7,
base_temp = 8)),
gddays_flower_harvest =
purrr::map2_dbl(flower_date, harvest_date, function(x, y)
growing_degree_days(boonah, startdate = x, enddate = y)))
crop2
Run the code above in your browser using DataLab