## ----eval = FALSE--------------------------------------------------------
#  library(iemisctext)

## ----eval = FALSE--------------------------------------------------------
#  pdf <- getOption("pdfviewer", default = "")
#  f <- system.file("texts", "pdf", "Connect_the_Dots.pdf", package = "iemisctext")
#  system2(pdf, args = f)

## ----eval = FALSE--------------------------------------------------------
#  pdf <- getOption("pdfviewer", default = "")
#  f <- system.file("texts", "pdf", "The-War-Prayer.pdf", package = "iemisctext")
#  system2(pdf, args = f)

## ----eval = FALSE--------------------------------------------------------
#  pdf <- getOption("pdfviewer", default = "")
#  f <- system.file("texts", "pdf", "War-Is-A-Racket.pdf", package = "iemisctext")
#  system2(pdf, args = f)

## ----eval = FALSE--------------------------------------------------------
#  pdf <- getOption("pdfviewer", default = "")
#  f <- system.file("texts", "pdf", "The-Mask-of-Anarchy.pdf", package = "iemisctext")
#  system2(pdf, args = f)

## ----eval = FALSE--------------------------------------------------------
#  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)

## ----eval = FALSE--------------------------------------------------------
#  pdf <- getOption("pdfviewer", default = "")
#  f <- system.file("texts", "pdf", "Untitled_Climate-Strange.pdf", package = "iemisctext")
#  system2(pdf, args = f)

## ----eval = FALSE--------------------------------------------------------
#  f <- system.file("texts", "pdf", "Connect_the_Dots.pdf", package = "iemisctext")
#  shell.exec(normalizePath(f))

## ----eval = FALSE--------------------------------------------------------
#  f <- system.file("texts", "pdf", "The-War-Prayer.pdf", package = "iemisctext")
#  shell.exec(normalizePath(f))

## ----eval = FALSE--------------------------------------------------------
#  f <- system.file("texts", "pdf", "War-Is-A-Racket.pdf", package = "iemisctext")
#  shell.exec(normalizePath(f))

## ----eval = FALSE--------------------------------------------------------
#  f <- system.file("texts", "pdf", "The-Mask-of-Anarchy.pdf", package = "iemisctext")
#  shell.exec(normalizePath(f))

## ----eval = FALSE--------------------------------------------------------
#  f <- system.file("texts", "pdf", "Untitled_Us-versus-Them-or-People-Screwing-over-Other-People.pdf", package = "iemisctext")
#  shell.exec(normalizePath(f))

## ----eval = FALSE--------------------------------------------------------
#  f <- system.file("texts", "pdf", "Untitled_Climate-Strange.pdf", package = "iemisctext")
#  shell.exec(normalizePath(f))

## ----eval = FALSE--------------------------------------------------------
#  f <- system.file("texts", "pdf", "Connect_the_Dots.pdf", package = "iemisctext")
#  system2("open", args = f, wait = FALSE)

## ----eval = FALSE--------------------------------------------------------
#  f <- system.file("texts", "pdf", "The-War-Prayer.pdf", package = "iemisctext")
#  system2("open", args = f, wait = FALSE)

## ----eval = FALSE--------------------------------------------------------
#  f <- system.file("texts", "pdf", "War-Is-A-Racket.pdf", package = "iemisctext")
#  system2("open", args = f, wait = FALSE)

## ----eval = FALSE--------------------------------------------------------
#  f <- system.file("texts", "pdf", "The-Mask-of-Anarchy.pdf", package = "iemisctext")
#  system2("open", args = f, wait = FALSE)

## ----eval = 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)

## ----eval = FALSE--------------------------------------------------------
#  f <- system.file("texts", "pdf", "Untitled_Climate-Strange.pdf", package = "iemisctext")
#  system2("open", args = f, wait = FALSE)

