From 67f57c6be8e54644f9ea473ae1e3601e0e2db24c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9=20Ver=C3=ADssimo?=
 <211358+averissimo@users.noreply.github.com>
Date: Thu, 24 Oct 2024 16:39:01 +0100
Subject: [PATCH] fix: replace dots when id is otherwise valid

---
 R/utils.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/utils.R b/R/utils.R
index d53128d9f..ad2209818 100644
--- 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)) {