Use deparse() to make ensure that "text" is chr

KWB-R · Apr 4, 2024 · 054c860 · 054c860
1 parent 6d269a2
commit 054c860
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/normalise_expression.R b/R/normalise_expression.R
@@ -21,6 +21,11 @@
 normalise_expression <- function(x, collapse = " ") 
 {
   if (!is.expression(x)) {
+
+    if (!is.character(x)) {
+      x <- deparse(x)
+    }
+
     x <- parse(text = x, keep.source = TRUE)
   }