Fix test "Weather data scaling"

dschlaep · dschlaep · commit 5c9f371f3b73 · 2025-03-04T09:56:01.000-05:00
diff --git a/tests/testthat/test_WeatherData.R b/tests/testthat/test_WeatherData.R
@@ -441,7 +441,7 @@ test_that("Weather data scaling", {
   ref <- sw_exec(swin)
 
   scalingParams <- setdiff(
-    colnames(swWeather_MonScalingParams(x)),
+    colnames(swWeather_MonScalingParams(swin)),
     "ShortWR" # ShortWR only works if we provide daily radiation as input
   )
 

Original file line number	Diff line number	Diff line change
`@@ -441,7 +441,7 @@ test_that("Weather data scaling", {`
`441`	`441`	`ref <- sw_exec(swin)`
`442`	`442`
`443`	`443`	`scalingParams <- setdiff(`
`444`		`- colnames(swWeather_MonScalingParams(x)),`
	`444`	`+ colnames(swWeather_MonScalingParams(swin)),`
`445`	`445`	`"ShortWR" # ShortWR only works if we provide daily radiation as input`
`446`	`446`	`)`
`447`	`447`