Ensure wind_elevation is a numeric value

adamhsparks · adamhsparks · commit bc61b8e7474e · 2024-12-09T12:55:30.000+08:00
diff --git a/R/get_power.R b/R/get_power.R
@@ -267,7 +267,8 @@ get_power <- function(community = c("ag", "re", "sb"),
     )
   }
 
-  if (!is.null(wind_elevation) && wind_elevation %notin% 10:300) {
+  if (!is.null(wind_elevation) && !is.numeric(wind_elevation) &&
+    wind_elevation %notin% 10:300) {
     cli::cli_abort(
       c(x = "{.arg wind_elevation} values in metres are required to be between
           10m and 300m inclusive."),

Original file line number	Diff line number	Diff line change
`@@ -267,7 +267,8 @@ get_power <- function(community = c("ag", "re", "sb"),`
`267`	`267`	`)`
`268`	`268`	`}`
`269`	`269`
`270`		`- if (!is.null(wind_elevation) && wind_elevation %notin% 10:300) {`
	`270`	`+ if (!is.null(wind_elevation) && !is.numeric(wind_elevation) &&`
	`271`	`+ wind_elevation %notin% 10:300) {`
`271`	`272`	`cli::cli_abort(`
`272`	`273`	`c(x = "{.arg wind_elevation} values in metres are required to be between`
`273`	`274`	`10m and 300m inclusive."),`