Nothing
If you would like to view the PDFs, then use the code below that matches your operating system:
library(iemisctext)
Source: Show me the pdf already | R-bloggers By Will
pdf <- getOption("pdfviewer", default = "") f <- system.file("texts", "pdf", "Connect_the_Dots.pdf", package = "iemisctext") system2(pdf, args = f)
pdf <- getOption("pdfviewer", default = "") f <- system.file("texts", "pdf", "The-War-Prayer.pdf", package = "iemisctext") system2(pdf, args = f)
pdf <- getOption("pdfviewer", default = "") f <- system.file("texts", "pdf", "War-Is-A-Racket.pdf", package = "iemisctext") system2(pdf, args = f)
pdf <- getOption("pdfviewer", default = "") f <- system.file("texts", "pdf", "The-Mask-of-Anarchy.pdf", package = "iemisctext") system2(pdf, args = f)
pdf <- getOption("pdfviewer", default = "") f <- system.file("texts", "pdf", "Untitled_Us-versus-Them-or-People-Screwing-over-Other-People.pdf", package = "iemisctext") system2(pdf, args = f)
pdf <- getOption("pdfviewer", default = "") f <- system.file("texts", "pdf", "Untitled_Climate-Strange.pdf", package = "iemisctext") system2(pdf, args = f)
Source: Show me the pdf already | R-bloggers By Will
f <- system.file("texts", "pdf", "Connect_the_Dots.pdf", package = "iemisctext") shell.exec(normalizePath(f))
f <- system.file("texts", "pdf", "The-War-Prayer.pdf", package = "iemisctext") shell.exec(normalizePath(f))
f <- system.file("texts", "pdf", "War-Is-A-Racket.pdf", package = "iemisctext") shell.exec(normalizePath(f))
f <- system.file("texts", "pdf", "The-Mask-of-Anarchy.pdf", package = "iemisctext") shell.exec(normalizePath(f))
f <- system.file("texts", "pdf", "Untitled_Us-versus-Them-or-People-Screwing-over-Other-People.pdf", package = "iemisctext") shell.exec(normalizePath(f))
f <- system.file("texts", "pdf", "Untitled_Climate-Strange.pdf", package = "iemisctext") shell.exec(normalizePath(f))
Source: Opening PDF within R studio using file.show - Stack Overflow -- rensa
f <- system.file("texts", "pdf", "Connect_the_Dots.pdf", package = "iemisctext") system2("open", args = f, wait = FALSE)
f <- system.file("texts", "pdf", "The-War-Prayer.pdf", package = "iemisctext") system2("open", args = f, wait = FALSE)
f <- system.file("texts", "pdf", "War-Is-A-Racket.pdf", package = "iemisctext") system2("open", args = f, wait = FALSE)
f <- system.file("texts", "pdf", "The-Mask-of-Anarchy.pdf", package = "iemisctext") system2("open", args = f, wait = FALSE)
f <- system.file("texts", "pdf", "Untitled_Us-versus-Them-or-People-Screwing-over-Other-People.pdf", package = "iemisctext") system2("open", args = f, wait = FALSE)
f <- system.file("texts", "pdf", "Untitled_Climate-Strange.pdf", package = "iemisctext") system2("open", args = f, wait = FALSE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.