Creates accessible html slidy presentations using R markdown's
slidy_presentation
argument to
render
. Zip archives of the html files may be
created.
Arguments
- x
A character vector containing the names (no extension) of the
.Rmd
files to convert if they are in the current working directory, or paths to the files, either absolute or relative to the current working directory, e.g.,DIRECTORY/file1
. The.html
files are created in the same directory as their respective.Rmd
file. Ifx
is missing then an html file is created from each of the.Rmd
files in the current working directory.- zip
A logical scalar or character vector indicating whether html files should be put into a zip archive. If
zip = FALSE
then no zip archive is created. Otherwise, an archive is created in each unique directory involved inx
. Ifzip = TRUE
then any archive created has the nameaccessr_slidy.zip
. Ifzip
is a character vector of zip file names (no extension) then these names are used to name the zip archives. The names are recycled to the length of the number of unique directories, if necessary.A logical scalar. If
pdf = TRUE
then each html file is printed to a PDF file usingchrome_print
. Google Chrome (or an alternative browser specified inpdf_args
by thebrowser
argument tochrome_print
must be installed prior to use of this option. An error message likeError in servr::random_port(NULL) : Cannot find an available TCP port
means that therandom_port
function in theservr
package could not find an internet connection that Chrome considers secure. Perhaps you are using a coffee shop's wifi.- zip_pdf
As
zip
, but relates to the creation of zip archives for any PDF files created. Ifzip_pdf = TRUE
then each archive is namedaccessr_html_pdf.zip
.- pdf_args
A list of arguments passed to
chrome_print
.input
cannot be passed because it is set insidermd2html
.- add
A logical scalar that determines what happens if the output zip file already exists. If
add = TRUE
then files are added to the zip file and ifadd = FALSE
then the zip file is deleted and will only contain newly-created files.- quiet
Argument of the same name passed to
render
to determine what is printed during rendering from knitr.- rm_html
A logical scalar. If
rm_html = TRUE
and a zip archive of html files is produced then the individual html files are deleted. Otherwise, they are not deleted.- rm_pdf
A logical scalar. If
rm_pdf = TRUE
and a zip archive of pdf files is produced then the individual pdf files are deleted. Otherwise, they are not deleted.- inc_rmd
A logical scalar. If
inc_rmd = TRUE
then the source Rmd files are included in the zip file created. Otherwise, they are not included.- params
A list of named parameters to pass as the argument
params
torender
.- ...
Additional arguments passed to
slidy_presentation
.If
css = "black"
is passed thenaccessr
's css fileblack.css
is used, which results in black text being used in the slides.This function is not vectorised with respect to arguments in
...
.
Value
In addition to creating the html files, and perhaps zip files, a list containing the following (character vector) components is returned invisibly:
- files
(absolute) paths and file names of the files added to a zip file.
- zips
(relative) paths and names of all the zip files.
Details
Information such as title
, author
, lang
etc in
the YAML header in the Rmd file are used but output
is ignored.
The simplest setup is to have the .Rmd
files in the current
working directory, in which case rmd2slidy()
will create slidy
presentations from all these Rmd files, but the .Rmd
files may be
in different directories.
The render
function, with the argument
output_file =
slidy_presentation
creates the slidy html files.
See also
rmd2word
, rmd2word
,
rmd2ioslides
, rmd2html
for other output
formats.
Examples
# Create a slidy presentation from example.Rmd
got_hux <- requireNamespace("huxtable", quietly = TRUE)
got_flex <- requireNamespace("flextable", quietly = TRUE)
got_pandoc <- rmarkdown::pandoc_available("1.14")
got_all <- got_hux && got_flex && got_pandoc
# This example needs packages huxtable and flextable
if (got_all) {
ex_file <- system.file(package = "accessr", "examples", "example.Rmd")
file.copy(ex_file, tdir <- tempdir(check = TRUE), overwrite = TRUE)
ex_file <- list.files(tdir, pattern = "example.Rmd", full.names = TRUE)
ex_file <- sub(".Rmd", "", ex_file)
rmd2slidy(ex_file)
}