tests/simpleTest.R
In christophsax/x13story: Interactive Stories on Seasonal Adjustment with X-13ARIMA-SEATS
# --- General Tests ------------------------------------------------------------
library(seasonal)
seas(AirPassengers)
# --- Auto Build and Deploy on Travis ------------------------------------------
if (Sys.getenv("TRAVIS") != ""){
library(x13story)
idir <- file.path(Sys.getenv("TRAVIS_BUILD_DIR", "."), "inst/stories")
# after build, travis copies everything from out to the destination folder
odir <- file.path(Sys.getenv("TRAVIS_BUILD_DIR", "."), "out")
message("Testing Skeleton")
sk <- file.path(Sys.getenv("TRAVIS_BUILD_DIR", "."), "inst/rmarkdown/templates/x13story/skeleton/skeleton.Rmd")
sk <- normalizePath(sk)
x13story::parse_x13story(file = sk)
rmarkdown::render(sk, x13story::x13story())
ff <- list.files(idir, pattern = "\\.Rmd$", ignore.case = TRUE, full.names = TRUE)
message("HTML rendering")
STORIES <- lapply(ff, function(x) x13story::parse_x13story(file = x))
names(STORIES) <- gsub("(.+?)\\..+", "\\1", basename(ff))
save(STORIES, file = file.path(odir, "stories.RData"))
write.csv(cars, file = file.path(odir, "cars2.csv"))
message("PDF rendering")
lapply(ff, function(x) rmarkdown::render(x, x13story::x13story()))
ipdf <- list.files(idir, pattern = "\\.pdf$", ignore.case = TRUE, full.names = TRUE)
file.copy(ipdf, file.path(odir, basename(ipdf)))
# add a minimal index.html to link PDFs
header <- '
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<!-- tell google not to index or follow -->
<meta name="robots" content="noindex,nofollow"/>
</head>
'
footer <- '
</body>
</html>
'
bn <- basename(ipdf)
bn.link <- paste0("http://www.christophsax.com/x13story/", bn)
body <- paste0('<a href = "',bn.link ,'">',bn ,'</a>')
writeLines(c(header, body, footer), file.path(odir, "index.html"))
}
christophsax/x13story documentation built on May 13, 2019, 7:06 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
# --- General Tests ------------------------------------------------------------
library(seasonal)
seas(AirPassengers)
# --- Auto Build and Deploy on Travis ------------------------------------------
if (Sys.getenv("TRAVIS") != ""){
library(x13story)
idir <- file.path(Sys.getenv("TRAVIS_BUILD_DIR", "."), "inst/stories")
# after build, travis copies everything from out to the destination folder
odir <- file.path(Sys.getenv("TRAVIS_BUILD_DIR", "."), "out")
message("Testing Skeleton")
sk <- file.path(Sys.getenv("TRAVIS_BUILD_DIR", "."), "inst/rmarkdown/templates/x13story/skeleton/skeleton.Rmd")
sk <- normalizePath(sk)
x13story::parse_x13story(file = sk)
rmarkdown::render(sk, x13story::x13story())
ff <- list.files(idir, pattern = "\\.Rmd$", ignore.case = TRUE, full.names = TRUE)
message("HTML rendering")
STORIES <- lapply(ff, function(x) x13story::parse_x13story(file = x))
names(STORIES) <- gsub("(.+?)\\..+", "\\1", basename(ff))
save(STORIES, file = file.path(odir, "stories.RData"))
write.csv(cars, file = file.path(odir, "cars2.csv"))
message("PDF rendering")
lapply(ff, function(x) rmarkdown::render(x, x13story::x13story()))
ipdf <- list.files(idir, pattern = "\\.pdf$", ignore.case = TRUE, full.names = TRUE)
file.copy(ipdf, file.path(odir, basename(ipdf)))
# add a minimal index.html to link PDFs
header <- '
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<!-- tell google not to index or follow -->
<meta name="robots" content="noindex,nofollow"/>
</head>
'
footer <- '
</body>
</html>
'
bn <- basename(ipdf)
bn.link <- paste0("http://www.christophsax.com/x13story/", bn)
body <- paste0('<a href = "',bn.link ,'">',bn ,'</a>')
writeLines(c(header, body, footer), file.path(odir, "index.html"))
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.