Displaying 2 results from an estimated 2 matches for "bcdecode".
Did you mean:
b64decode
2016 May 01
2
Storage of byte code-compiled functions in sysdata.rda
Thanks, Luke, for having a look to it.
Sure, I can give you some reproducible example -- even in two degrees of
completeness ;-): see below.
Thanks again, Peter
%-----------------------------------
(I) first example
%-----------------------------------
Just to reproduce the error, on r-devel, try:
install.packages("RobAStRDA")
require(RobAStRDA)
getFromNamespace(".RMXE", ns
2016 May 05
0
Storage of byte code-compiled functions in sysdata.rda
...{
.CodeSym <- as.name(".Code")
disasm.const <- function(x) if (typeof(x) == "list" && length(x) >
0 && identical(x[[1]], .CodeSym))
disasm(x)
else x
disasm <- function(code) {
code[[2]] <- compiler:::bcDecode(code[[2]])
code[[3]] <- lapply(code[[3]], disasm.const)
code
}
if (typeof(code) == "closure") {
code <- .Internal(bodyCode(code))
if (typeof(code) != "bytecode")
stop("function is not compiled")
}...