Hello, I have been using package.skeleton from within an lapply statement
successfully (assuming good source code) with the following setup in the
past:
x=try(package.skeleton(package_name,path=pathi,code_files=file_i))
but now fails with error:
Error: evaluation nested too deeply: infinite recursion /
options(expressions=)?
I am working in RStudio Version 0.99.896, with 64 bit R version 3.3.1
(2016-06-21)
I have been probing the code for package.skeleton a bit and noticed that
the default arguments for 'list' and 'environment' are supplied in the
function definition, thus making it impossible to achieve the conditions
envIsMissing=TRUE
missing(list) = TRUE
as a result of the fact that missing(list) cannot be true, the classesList
argument is empty and the call
classes0 <- .fixPackageFileNames(classesList)
then fails with the error
Error: evaluation nested too deeply: infinite recursion /
options(expressions=)?
If I remove the default arguments I get further, but get the same error I
had before (Error: evaluation nested too deeply: infinite recursion /
options(expressions=)?) after executing the following code:
methods0 <- .fixPackageFileNames(methodsList)
and the contents of methodsList look like
An object of class "ObjectsWithPackage":
Object:
Package:
the function .fixPackageFileNames fails when it reaches
list <- as.character(list)
where in this case the contents of 'list' look like
str(list)
Formal class 'ObjectsWithPackage' [package "methods"] with 2 slots
..@ .Data : chr(0)
..@ package: chr(0)
I am not sure if the problem arose from changes to package.skeleton
or methods::getClasses and methods::getGenerics or if there is something
peculiar about my environment.
my current ugly fix is to define the function .fixPackageFileNames in the
global environment and add a try statement and exit when it results in an
object of class "try-error":
.fixPackageFileNames=
function (list)
{
list <- *try(*as.character(list)*)*
*if(class(list)=="try-error")return(list)*
if (length(list) == 0L)
return(list)
list0 <- gsub("[[:cntrl:]\"*/:<>?\\|]", "_", list)
wrong <- grep("^(con|prn|aux|clock\\$|nul|lpt[1-3]|com[1-4])(\\..*|)$",
list0)
if (length(wrong))
list0[wrong] <- paste0("zz", list0[wrong])
ok <- grepl("^[[:alnum:]]", list0)
if (any(!ok))
list0[!ok] <- paste0("z", list0[!ok])
list1 <- tolower(list0)
list2 <- make.unique(list1, sep = "_")
changed <- (list2 != list1)
list0[changed] <- list2[changed]
list0
}
Any assistance with this error would be greatly appreciated!
Thank you,
--
Jacob Strunk
stru...@gmail.com
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
