Timon/SmartCane
1
1
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

added conditional to skip field/subfield when no downloads available in current rds

Browse source
This commit is contained in:
Martin Folkerts 2024-07-15 10:41:13 +02:00
parent 11f2053e77
commit 2988516db2
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
r_app/interpolate_growth_model.R
View file

@ -95,6 +95,9 @@ extract_CI_data <- function(field_names, harvesting_data, field_CI_data, season)
filtered_field_CI_data <- field_CI_data %>%
filter(sub_field %in% field_names)
if (nrow(filtered_field_CI_data) == 0) {
return(data.frame()) # Return an empty data frame if no data is found
}
# CI <- map_df(field_names, ~ {
ApproxFun <- approxfun(x = filtered_field_CI_data$Date, y = filtered_field_CI_data$value)