Round before converting to integer

hsonne · hsonne · commit 24e45b94b565 · 2023-10-26T02:31:11.000+02:00
otherwise e.g. 0.9999999 becomes 0 instead of 1
diff --git a/R/getSoilProperties.R b/R/getSoilProperties.R
@@ -112,7 +112,9 @@ getMeanPotentialCapillaryRiseRate <- function(
     ]
   )
 
-  as.integer(estimateDaysOfGrowth(usage, yieldPower) * kr)
+  days_of_growth <- estimateDaysOfGrowth(usage, yieldPower)
+
+  as.integer(round(days_of_growth * kr))
 }
 
 # MEAN_POTENTIAL_CAPILLARY_RISE_RATES_SUMMER_MATRIX ----------------------------

Original file line number	Diff line number	Diff line change
`@@ -112,7 +112,9 @@ getMeanPotentialCapillaryRiseRate <- function(`
`112`	`112`	`]`
`113`	`113`	`)`
`114`	`114`
`115`		`- as.integer(estimateDaysOfGrowth(usage, yieldPower) * kr)`
	`115`	`+ days_of_growth <- estimateDaysOfGrowth(usage, yieldPower)`
	`116`	`+`
	`117`	`+ as.integer(round(days_of_growth * kr))`
`116`	`118`	`}`
`117`	`119`
`118`	`120`	`# MEAN_POTENTIAL_CAPILLARY_RISE_RATES_SUMMER_MATRIX ----------------------------`