fix utility function

jevansbio · jevansbio · commit f291ae85c527 · 2026-02-03T13:34:38.000+01:00
diff --git a/R/utility_functions.R b/R/utility_functions.R
@@ -21,7 +21,7 @@ R_value_to_db_value <- function(r_value, force_type = "") {
     } else if ("character" %in% class(r_value)) {
         db_value <- glue::glue("'{r_value}'")
     } else {
-        db_value <- r_value
+        db_value <- as.character(r_value)
     }
     return(db_value)
 }

Original file line number	Diff line number	Diff line change
`@@ -21,7 +21,7 @@ R_value_to_db_value <- function(r_value, force_type = "") {`
`21`	`21`	`} else if ("character" %in% class(r_value)) {`
`22`	`22`	`db_value <- glue::glue("'{r_value}'")`
`23`	`23`	`} else {`
`24`		`- db_value <- r_value`
	`24`	`+ db_value <- as.character(r_value)`
`25`	`25`	`}`
`26`	`26`	`return(db_value)`
`27`	`27`	`}`