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
|
#' @keywords internal
ess.pander.evals <- function(x, show.src = TRUE) {
require(pander, quietly = T)
wd <- getwd()
setwd(tempdir())
cat('\n')
res <- evals(x)
for (x in res) {
if (show.src) {
cat('\n```r\n', paste(x$src, collapse = '\n'), '\n```\n\n', sep = '')
}
cat(pander(x), sep = '\n')
}
setwd(wd)
cat('\n')
}
#' @keywords internal
ess.evals <- function(x) {
require(pander, quietly = T)
wd <- getwd()
setwd(tempdir())
cat('\n')
evals(x)
setwd(wd)
cat('\n')
}
|
