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")
}

OHP Picture 1

#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page1.odg')
knitr::include_graphics(path = "odg/ohp-page1.png")

OHP Picture 2

#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page2.odg')
knitr::include_graphics(path = "odg/ohp-page2.png")

OHP Picture 3

#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page3.odg')
knitr::include_graphics(path = "odg/ohp-page3.png")

OHP Picture 4

#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page4.odg')
knitr::include_graphics(path = "odg/ohp-page4.png")

OHP Picture 5

#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page5.odg')
knitr::include_graphics(path = "odg/ohp-page5.png")

OHP Picture 6

#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page6.odg')
knitr::include_graphics(path = "odg/ohp-page6.png")

OHP Picture 7

#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page7.odg')
knitr::include_graphics(path = "odg/ohp-page7.png")

OHP Picture 8

#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page8.odg')
knitr::include_graphics(path = "odg/ohp-page8.png")

OHP Picture 9

#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page9.odg')
knitr::include_graphics(path = "odg/ohp-page9.png")

OHP Picture 10

#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page10.odg')
knitr::include_graphics(path = "odg/ohp-page10.png")

OHP Picture 11

#rmdhelp::use_odg_graphic(ps_path = 'odg/ohp-page11.odg')
knitr::include_graphics(path = "odg/ohp-page11.png")


charlotte-ngs/lbgfs2021 documentation built on Dec. 19, 2021, 3:01 p.m.