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

wip

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

7
r_app/parameters_project.R
View file

@ -94,6 +94,11 @@ if(project_dir == "chemba"){
harvesting_data <- read_excel(here(data_dir, "harvest.xlsx"), harvesting_data <- read_excel(here(data_dir, "harvest.xlsx"),
col_types = c("numeric", "numeric", "numeric", col_types = c("numeric", "numeric", "numeric",
"date", "date", "numeric", "text", "date", "date", "numeric", "text",
"numeric", "numeric")) "numeric", "numeric")) %>%
mutate(season_end = case_when(
season_end > Sys.Date() ~ Sys.Date(),
TRUE ~ season_end),
age = round(as.numeric(season_end - season_start)/7),1)
} }