Update models/sipnet/R/write.configs.SIPNET.R

Co-authored-by: Chris Black <[email protected]>
PecanProject · Jun 4, 2024 · d6a4a3d · d6a4a3d
1 parent 212cdfa
commit d6a4a3d
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/models/sipnet/R/write.configs.SIPNET.R b/models/sipnet/R/write.configs.SIPNET.R
@@ -460,8 +460,10 @@ write.config.SIPNET <- function(defaults, trait.values, settings, run.id, inputs
       if (!is.null(leaf_pheno_path)){
     ##read data
        leafphdata <- utils::read.csv(leaf_pheno_path)
-       leafOnDay <-  dplyr::filter(leafphdata, .data$yea r== obs_year_start & .data$site_id==settings$run$site$id) %>%  dplyr::select (.data$leafonday)
-       leafOffDay<-  dplyr::filter(leafphdata, .data$year == obs_year_start & .data$site_id==settings$run$site$id) %>%  dplyr::select (.data$leafoffday)
+       leafOnDay <-  dplyr::filter(leafphdata, .data$year == obs_year_start & .data$site_id==settings$run$site$id) %>%
+         dplyr::select (.data$leafonday)
+       leafOffDay<-  dplyr::filter(leafphdata, .data$year == obs_year_start & .data$site_id==settings$run$site$id) %>%
+         dplyr::select (.data$leafoffday)
        if (!is.na(leafOnDay)){
 	      param[which(param[, 1] == "leafOnDay"), 2] <- leafOnDay
        }