Update packages/ Add org-ref
This commit is contained in:
18
elpa/ess-20180611.502/etc/R-pager.R
Normal file
18
elpa/ess-20180611.502/etc/R-pager.R
Normal file
@@ -0,0 +1,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
|
||||
Reference in New Issue
Block a user