Skip to content

Commit dc8b456

Browse files
committed
two updates to quieten nagging by R CMD check --as-cran
1 parent f3092d5 commit dc8b456

File tree

2 files changed

+3
-3
lines changed

2 files changed

+3
-3
lines changed

R/Attributes.R

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -965,7 +965,7 @@ sourceCppFunction <- function(func, isVoid, dll, symbol) {
965965
result <- suppressWarnings(system(cmd,
966966
ignore.stderr = TRUE,
967967
intern = TRUE))
968-
assignInMyNamespace(".hasDevelTools", is.null(attr(result, "status")))
968+
utils::assignInMyNamespace(".hasDevelTools", is.null(attr(result, "status")))
969969

970970
# if we build successfully then remove the shared library
971971
if (.hasDevelTools) {

R/Rcpp.package.skeleton.R

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -31,7 +31,7 @@ Rcpp.package.skeleton <- function(name = "anRpackage", list = character(),
3131
havePkgKitten <- requireNamespace("pkgKitten", quietly=TRUE)
3232

3333
call <- match.call()
34-
call[[1]] <- as.name("package.skeleton")
34+
call[[1]] <- as.name("utils::package.skeleton")
3535
env <- parent.frame(1)
3636

3737
if (!is.character(cpp_files))
@@ -63,7 +63,7 @@ Rcpp.package.skeleton <- function(name = "anRpackage", list = character(),
6363
## first let the traditional version do its business
6464
## remove Rcpp specific arguments
6565

66-
call <- call[ c(1L, which(names(call) %in% names(formals(package.skeleton)))) ]
66+
call <- call[ c(1L, which(names(call) %in% names(formals(utils::package.skeleton)))) ]
6767

6868
if (fake) {
6969
call[["list"]] <- c(if(isTRUE(example_code)

0 commit comments

Comments
 (0)