/usr/share/ess/etc/R-pager.R is in ess 16.10-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | mypager <- function(files, header, title, delete.file) {
tfile <- tempfile(paste(basename(files[1]),"__", sep=""))
Tf <- file(tfile, open="w+")
stopifnot(file.append(tfile, files))
system(paste("emacsclient -n", tfile))
}
file.show(file.path(R.home("doc"), "COPYRIGHTS"),
pager = mypager)
options(pager = mypager)
## test :
file.show(file.path(R.home("doc"), "COPYRIGHTS"))
## or
RShowDoc('NEWS')
## using a suboptimal file name
|