avoid invoking wrong 'get'

kevinushey · kevinushey · commit 1d7ce1b6f525 · 2024-06-11T16:32:34.000-07:00
diff --git a/inst/tinytest/test_rcpp_package_skeleton.R b/inst/tinytest/test_rcpp_package_skeleton.R
@@ -69,7 +69,7 @@ for (file in grep("RcppExports.R", R_files, invert=TRUE, value=TRUE)) {
     code <- readLines(file)
     fn <- eval(parse(text=paste(code, collapse="\n")))
     fn_name <- gsub(".*/(.*)\\.R$", "\\1", file)
-    checkIdentical(fn, get(fn_name),
+    checkIdentical(fn, base::get(fn_name),
                    sprintf("we parsed the function '%s' correctly", fn_name)
                    )
 }

Original file line number	Diff line number	Diff line change
`@@ -69,7 +69,7 @@ for (file in grep("RcppExports.R", R_files, invert=TRUE, value=TRUE)) {`
`69`	`69`	`code <- readLines(file)`
`70`	`70`	`fn <- eval(parse(text=paste(code, collapse="\n")))`
`71`	`71`	`fn_name <- gsub("./(.)\\.R$", "\\1", file)`
`72`		`- checkIdentical(fn, get(fn_name),`
	`72`	`+ checkIdentical(fn, base::get(fn_name),`
`73`	`73`	`sprintf("we parsed the function '%s' correctly", fn_name)`
`74`	`74`	`)`
`75`	`75`	`}`