In tpemartin/rmd2drake: Turn R Markdown into a drake plan and make it

Materialized Framework

library(dplyr)
library(htmltools)

HTML Structure

html_template_rightWay <- tags$html(
  tags$head(
    do.call(htmltools::tagList, headTags),
    tags$meta(
      name="viewport",
      content="width=device-width, initial-scale=1.0"
    )
  ),
  tags$body(
    do.call(htmltools::tagList, bodyTags)
  )
)

Head Tags

headTags <- {
  list(
    htmltools::tags$link(
      href="https://fonts.googleapis.com/icon?family=Material+Icons",
      rel="stylesheet"
    )
  )
}

Body Tags

bodyTags <- {
  list(
    tags$div(class="container",
             # Page Content goes here
             tags$div(class="row",
                      tags$div(class="col s12", "This div is 12-columns wide on all screen sizes"),
                      tags$div(class="col s6", "6-columns (one-half)"),
                      tags$div(class="col s6", "6-columns (one-half)"))
             )
  )
}

Dependencies (Optional)

Materialized framework{-}

<!-- Compiled and minified CSS -->
<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/materialize/1.0.0/css/materialize.min.css">

<!-- Compiled and minified JavaScript -->
<script src="https://cdnjs.cloudflare.com/ajax/libs/materialize/1.0.0/js/materialize.min.js"></script>

mtl_dependencyGenerator <- function() {
  mtl_cdn <- "https://cdnjs.cloudflare.com/ajax/libs/materialize/1.0.0/"
  mtl_css <- "css/materialize.min.css"
  mtl_js <- "js/materialize.min.js"

  htmltools::htmlDependency(
    name = "mtl",
    version = "1.0",
    src = c(href = mtl_cdn),
    stylesheet = mtl_css,
    script = mtl_js
  )
}

Attach dependency two ways

htmltools::attachDependencies{-}

html_template_rightWay %>%
  htmltools::attachDependencies(
    mtl_dependencyGenerator(),
    append = T
  ) -> html_materializedUsingAttachDependencies

htmltools::tagList{-}

html_materializedUsingTagList <- 
  htmltools::tagList(
    html_template_rightWay,
    mtl_dependencyGenerator()
  )

htmltools::browsable(
  html_materializedUsingTagList
  )

Save

htmltools::save_html(html_materializedUsingTagList,
                     file="index.html")

tpemartin/rmd2drake documentation built on Nov. 2, 2022, 10:14 a.m.