Add new packages installed

This commit is contained in:
Mateus Pinto Rodrigues
2018-03-27 20:52:59 -03:00
parent e684741609
commit 2362e805bd
1493 changed files with 172412 additions and 4636 deletions

View 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