Skip to content

Commit 9017b55

Browse files
committed
explicitly import utils and importFrom(utils, package.skeleton)
1 parent 5a2f240 commit 9017b55

File tree

3 files changed

+4
-4
lines changed

3 files changed

+4
-4
lines changed

DESCRIPTION

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -14,7 +14,7 @@ Description: The 'Rcpp' package provides R functions as well as C++ classes whic
1414
Francois (2011, JSS), and the book by Eddelbuettel (2013, Springer); see
1515
'citation("Rcpp")' for details on these last two.
1616
Depends: R (>= 3.0.0)
17-
Imports: methods
17+
Imports: methods, utils
1818
Suggests: RUnit, inline, rbenchmark, highlight, pkgKitten (>= 0.1.2)
1919
VignetteBuilder: highlight
2020
URL: http://www.rcpp.org, http://dirk.eddelbuettel.com/code/rcpp.html, https://github.com/RcppCore/Rcpp

NAMESPACE

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
useDynLib(Rcpp, .registration = TRUE)
22

33
import(methods)
4-
importFrom(utils, capture.output, assignInNamespace, .DollarNames, prompt, packageDescription)
4+
importFrom(utils, capture.output, assignInNamespace, .DollarNames, prompt, packageDescription, package.skeleton)
55

66
exportClasses(Module, "C++Field",
77
"C++OverloadedMethods",

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("utils::package.skeleton")
34+
call[[1]] <- as.name("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(utils::package.skeleton)))) ]
66+
call <- call[ c(1L, which(names(call) %in% names(formals(package.skeleton)))) ]
6767

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

0 commit comments

Comments
 (0)