File: LoremIpsum.R

package info (click to toggle)
r-cran-r.rsp 0.45.0%2Bds-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 2,568 kB
  • sloc: javascript: 612; tcl: 304; sh: 18; makefile: 16
file content (15 lines) | stat: -rw-r--r-- 447 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
library("R.rsp")

path <- system.file(package="R.rsp")
path <- file.path(path, "rsp_LoremIpsum")
pathnames <- list.files(path=path, pattern="[.]rsp$", full.names=TRUE)
for (pathname in pathnames) {
  outPath <- gsub("LoremIpsum.", "", basename(pathname))
  outPath <- file.path("LoremIpsum", outPath)
  tryCatch({
    pathnameR <- rfile(pathname, workdir=outPath, verbose=-10)
    print(pathnameR)
  }, error = function(ex) {
    print(ex)
  })
}