--- title: "minidown::mini_document" author: "Atsushi Yasumoto" date: "`r Sys.Date()`" output: minidown::mini_document: framework: all code_folding: source: show output: show message: hide warning: hide error: show results_folding: hide toc: true toc_float: true toc_highlight: true tabset: true number_sections: true anchor_sections: false self_contained: false code_download: false keep_md: false --- ::: {style='text-align: right'} [Manual](pkgdown/index.html){.button} [Download Rmd](skeleton.Rmd){download=minidown.Rmd .button} ::: ```{r include=FALSE} file.copy( system.file(package = "minidown", "rmarkdown", "templates", "mini_document", "skeleton", "skeleton.Rmd"), "skeleton.Rmd", overwrite = TRUE ) ``` ```{r child="skeleton.Rmd"} ``` ```{r, include=FALSE} all_framework <- identical( rmarkdown::metadata$output[["minidown::mini_document"]]$framework, "all" ) ``` ```{=html} ``` ```{r, echo=FALSE, eval=all_framework} htmltools::tags$aside(htmltools::tags$p( htmltools::tags$label("Framework:", "for" = "select-framework"), htmltools::tags$select( purrr::imap(minidown:::frameworks, function(framework, nm) { htmltools::tags$option( nm, value = nm, "data-version" = framework$version ) }), id = "select-framework", `data-minidown` = packageVersion("minidown") ), htmltools::tags$label("Theme:", id = "label-select-theme"), purrr::imap(minidown:::frameworks, function(framework, fnm) { htmltools::tags$select( purrr::map(names(framework$stylesheet), function(tnm) { htmltools::tags$option(tnm, value = paste0(fnm, '-', tnm, '.css')) }), id = paste0("select-theme-", fnm) ) }), htmltools::tags$button("Apply!", id = "button-go") ), id = "aside-select-framework") ```