fix: replace dots when id is otherwise valid

insightsengineering · Oct 24, 2024 · 67f57c6 · 67f57c6
1 parent 28d2246
commit 67f57c6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -76,7 +76,7 @@ make_c_call <- function(choices) {
 sanitize_id <- function(id) {
   id_converted <- make.names(id)
   if (identical(make.names(id), id)) {
-    return(id)
+    return(gsub("\\.", "_", id))
   }
   id_converted <- gsub("\\.", "_", id_converted)
   if (!grepl("^X", id)) {