if (FALSE) { # rlang::is_installed("geosphere")
# dates of interest
date_start <- as.Date('2020-01-01')
date_end <- as.Date('2020-12-31')
# calculate day length
dl <- create_daylength_df(barrks_data('station_coords'),
seq(date_start, date_end, by = 'day'),
.quiet = TRUE)
# print day lengths of station 'Freiburg'
dl[dl$station == 'Freiburg',]
}
Run the code above in your browser using DataLab