In Ps2Fino/columnizeR: Utilties for Creating Column Output Using Knitr

::::::::{.columns} :::{.column}

is.text <- knitr::opts_current$get(name='content.type')
if (is.text) {
  cat (readr::read_lines(file = paste0(knitr::opts_current$get(name='wd'), '/', knitr::opts_current$get(name='left_content_path'))), sep = '\n')
} else {
  cat(knitr::knit_child(paste0(knitr::opts_current$get(name='wd'), '/', knitr::opts_current$get (name='left_content_path')),
                    options=list (name=knitr::opts_current$get (name='img_content_path'))), sep = '')
}

:::

:::{.column}

cat(knitr::knit_child(paste0(knitr::opts_current$get(name='wd'), '/', knitr::opts_current$get (name='right_content_path')),
                  options=list (name=knitr::opts_current$get (name='img_content_path'))), sep = '')

:::

::::::

Ps2Fino/columnizeR documentation built on Nov. 5, 2019, 1:30 p.m.