1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/unByteCode.R
\name{unByteCode}
\alias{unByteCode}
\alias{unByteCodeAssign}
\alias{assignEdgewise}
\title{Convert a byte-code function to an interpreted-code function}
\usage{
unByteCode(fun)
assignEdgewise(name, env, value)
unByteCodeAssign(fun)
}
\arguments{
\item{fun}{function to be modified}
\item{name}{object name}
\item{env}{namespace}
\item{value}{new function body}
}
\value{
All three functions return a copy of the modified function or
assigned value.
}
\description{
The purpose of these functions is to allow a byte coded function to be
converted back into a fully interpreted function as a \emph{temporary} work
around for issues in byte-code interpretation.
}
\details{
\code{unByteCode} returns a copy of the function that is directly
interpreted from text rather than from byte-code.
\code{assignEdgewise} makes an assignment into a locked environment.
\code{unByteCodeAssign} changes the specified function \emph{in its source
environment} to be directly interpreted from text rather than from
byte-code.
The latter two functions no longer work out of the box because \code{assignEdgewise}
(which \code{unByteCodeAssign} uses) makes use of an unsafe \code{unlockBinding}
call, but running \code{assignEdgewise()} will
}
\note{
These functions are not intended as a permanent solution to issues
with byte-code compilation or interpretation. Any such issues should be
promptly reported to the R maintainers via the R Bug Tracking System at
\url{https://bugs.r-project.org} and via the R-devel mailing list
\url{https://stat.ethz.ch/mailman/listinfo/r-devel}.
}
\examples{
data(badDend)
dist2 <- function(x) as.dist(1 - cor(t(x), method = "pearson"))
hclust1 <- function(x) hclust(x, method = "single")
distance <- dist2(badDend)
cluster <- hclust1(distance)
dend <- as.dendrogram(cluster)
\dontrun{
## In R 2.3.0 and earlier crashes with a node stack overflow error
plot(dend)
## Error in xy.coords(x, y, recycle = TRUE) : node stack overflow
}
## convert stats:::plotNode from byte-code to interpreted-code
## (no longer available unless assignEdgewise is defined by the user)
## unByteCodeAssign(stats:::plotNode)
## illustrated in https://stackoverflow.com/questions/16559250/error-in-heatmap-2-gplots
# increase recursion limit
options("expressions" = 5e4)
# now the function does not crash
plot(dend)
}
\references{
These functions were inspired as a work-around to R bug
\url{https://bugs.r-project.org/show_bug.cgi?id=15215}.
}
\seealso{
\code{\link[compiler]{disassemble}}, \code{\link{assign}}
}
\author{
Gregory R. Warnes \email{greg@warnes.net}
}
\keyword{programming}
\keyword{utilites}
|
