knitr::opts_chunk$set(echo = FALSE) # rmdhelp::show_knit_hook_call() knitr::knit_hooks$set(hook_convert_odg = rmdhelp::hook_convert_odg)
# generate code to include slides vec_pics <- list.files(path = "~/Desktop", pattern = ".jpg$") for (p in seq_along(vec_pics)){ cur_pic <- vec_pics[p] cat("\n## OHP Picture ", p, "\n\n", sep = "") cat("```r\n", sep = "") cat("rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page", p, ".odg')\n", sep = "") cat("```\n\n") }
#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page1.odg') knitr::include_graphics(path = "odg/ohp-page1.png")
#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page2.odg') knitr::include_graphics(path = "odg/ohp-page2.png")
#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page3.odg') knitr::include_graphics(path = "odg/ohp-page3.png")
#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page4.odg') knitr::include_graphics(path = "odg/ohp-page4.png")
#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page5.odg') knitr::include_graphics(path = "odg/ohp-page5.png")
#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page6.odg') knitr::include_graphics(path = "odg/ohp-page6.png")
#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page7.odg') knitr::include_graphics(path = "odg/ohp-page7.png")
#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page8.odg') knitr::include_graphics(path = "odg/ohp-page8.png")
#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page9.odg') knitr::include_graphics(path = "odg/ohp-page9.png")
#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page10.odg') knitr::include_graphics(path = "odg/ohp-page10.png")
#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page11.odg') knitr::include_graphics(path = "odg/ohp-page11.png")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.