also exclude x$variable

pascal-sauer · pascal-sauer · commit f62d5c93a05e · 2025-07-03T11:37:34.000+02:00
diff --git a/R/snakeToCamel.R b/R/snakeToCamel.R
@@ -38,7 +38,7 @@ snakeToCamel <- function(pathToFile, ask = TRUE) {
     }
     message(variables[[i]], " -> ", replacements[[i]])
     if (!ask || askYesNo("replace?")) {
-      lines <- gsub(paste0('(?<!["', "'])\\b", variables[[i]], "\\b"), replacements[[i]], lines, perl = TRUE)
+      lines <- gsub(paste0("(?<![\"$'])\\b", variables[[i]], "\\b"), replacements[[i]], lines, perl = TRUE)
       writeLines(lines, pathToFile)
     }
   }

Original file line number	Diff line number	Diff line change
`@@ -38,7 +38,7 @@ snakeToCamel <- function(pathToFile, ask = TRUE) {`
`38`	`38`	`}`
`39`	`39`	`message(variables[[i]], " -> ", replacements[[i]])`
`40`	`40`	`if (!ask \|\| askYesNo("replace?")) {`
`41`		`- lines <- gsub(paste0('(?<!["', "'])\\b", variables[[i]], "\\b"), replacements[[i]], lines, perl = TRUE)`
	`41`	`+ lines <- gsub(paste0("(?<![\"$'])\\b", variables[[i]], "\\b"), replacements[[i]], lines, perl = TRUE)`
`42`	`42`	`writeLines(lines, pathToFile)`
`43`	`43`	`}`
`44`	`44`	`}`