In healthinnovation/lis: InnovaLab Toolkit

options(htmltools.dir.version = FALSE)
knitr::opts_chunk$set(
  fig.width = 9, fig.height = 3.5, fig.retina = 3,
  out.width = "100%",
  cache = FALSE,
  echo = TRUE,
  message = FALSE,
  warning = FALSE,
  hiline = TRUE
)

library(xaringanthemer)
library(magrittr)
library(metathis)

style_duo_accent(
  primary_color = "#2f4871",
  secondary_color = "#2e91af",
  inverse_header_color = "#FFFFFF",
  header_color = "#106075",
  background_color = "#e9ebee",
  header_font_google = google_font("Oswald", "700", "700i"),
  text_font_google = google_font(
    "Spartan", "400", "400i",
    "700", "700i"
  ),
  code_font_google = google_font(
    "Fira Code", "400",
    "700"
  ),
  outfile = "xaringan-lis.css"
)

xaringanExtra::use_tile_view()

xaringanExtra::use_broadcast()

xaringanExtra::use_scribble()

xaringanExtra::use_panelset()

htmltools::tagList(
  xaringanExtra::use_clipboard(
    button_text = "<i class=\"fa fa-clipboard\"></i>",
    success_text = "<i class=\"fa fa-check\" style=\"color: #90BE6D\"></i>",
    error_text = "<i class=\"fa fa-times-circle\" style=\"color: #F94144\"></i>"
  ),
  rmarkdown::html_dependency_font_awesome()
)

xaringanExtra::use_logo(
  image_url = "img/InnovaLab_logo_blue.png",
  width = "100px",
  height = "116px"
)

xaringanExtra::use_extra_styles(
  hover_code_line = TRUE,
  mute_unhighlighted_code = TRUE
)

xaringanExtra::use_progress_bar(
  color = "#0051BA",
  location = "bottom"
)

meta() %>%
  meta_general(
    description = "Innovar theme of R package xaringan",
    robots = "index,follow",
    generator = "xaringan and remark.js"
  ) %>%
  meta_viewport(
    orientation = "landscape"
  ) %>%
  meta_name("github-repo" = "healthinnovation/innovar-xaringan") %>%
  meta_social(
    title = "Plantilla Innovar Xaringan",
    url = "https://healthinnovation.github.io/innovar-xaringan/",
    image = "https://raw.githubusercontent.com/healthinnovation/innovar-xaringan/main/img/cover-plantilla.png",
    image_alt = "Innovar theme of R package xaringan",
    og_type = "website",
    og_author = "Laboratorio de Innovación en Salud",
    twitter_card_type = "summary_large_image",
    twitter_creator = "@innovalab_imt"
  )

r rmarkdown::metadata$title

r rmarkdown::metadata$subtitle

r rmarkdown::metadata$author

r Sys.Date()

r fontawesome::fa(name = "github") @healthinnovation r fontawesome::fa(name = "twitter") @innovalab_imt r fontawesome::fa(name = "link") innovalab.info

---

Typography

Text can be bold, italic, ~~strikethrough~~, or inline code.

Link to another slide.

Lorem Ipsum

Dolor imperdiet nostra sapien scelerisque praesent curae metus facilisis dignissim tortor. Lacinia neque mollis nascetur neque urna velit bibendum. Himenaeos suspendisse leo varius mus risus sagittis aliquet venenatis duis nec.

• Dolor cubilia nostra nunc sodales

• Consectetur aliquet mauris blandit

• Ipsum dis nec porttitor urna sed

---

name: colors

Colors

.left-column[ Text color

Link Color

Bold Color

Italic Color

Inline Code ]

.right-column[ Lorem ipsum dolor sit amet, consectetur adipiscing elit (link), sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Erat nam at lectus urna. Pellentesque elit ullamcorper dignissim cras tincidunt (bold) lobortis feugiat. Eros donec ac odio tempor orci dapibus ultrices. Id porta nibh venenatis cras sed felis eget velit aliquet. Aliquam id diam maecenas ultricies mi. Enim sit amet code_color("inline") venenatis urna cursus eget nunc scelerisque viverra. ]

---

Big Topic or Inverse Slides #

Slide Headings ##

Sub-slide Headings ###

Bold Call-Out ####

This is a normal paragraph text. Only use header levels 1-4.

Possible, but not recommended #####

Definitely don't use h6 ######

---

Left-Column Headings

.left-column[

First

Second

Third

]

.right-column[ Dolor quis aptent mus a dictum ultricies egestas.

Amet egestas neque tempor fermentum proin massa!

Dolor elementum fermentum pharetra lectus arcu pulvinar. ]

---

class: inverse center middle

Topic Changing Interstitial

--

class: inverse center middle

---

layout: true

Blocks

---

Blockquote

This is a blockquote following a header.

When something is important enough, you do it even if the odds are not in your favor.

---

Code Blocks

R Code

ggplot(gapminder) + #<<
  aes(x = gdpPercap, y = lifeExp, size = pop, color = country) +
  geom_point() +
  facet_wrap(~year)

JavaScript

var fun = function lang(l) {
  dateformat.i18n = require('./lang/' + l)
  return true;
}

---

More R Code

dplyr::starwars %>% dplyr::slice_sample(n = 4)

---

cli::cli_alert_success("It worked!")

--

message("Just a friendly message")

--

warning("This could be bad...")

--

stop("I hope you're sitting down for this")

---

layout: true

Tables

---

exclude: r if (requireNamespace("tibble", quietly=TRUE)) "false" else "true"

tibble::as_tibble(mtcars)

---

knitr::kable(head(mtcars), format = "html")

---

exclude: r if (requireNamespace("DT", quietly=TRUE)) "false" else "true"

DT::datatable(head(mtcars), fillContainer = FALSE, options = list(pageLength = 4))

---

layout: true

Lists

---

.pull-left[

Here is an unordered list:

• Item foo
• Item bar
• Item baz
• Item zip ]

.pull-right[

And an ordered list:

1. Item one
2. Item two
3. Item three
4. Item four ]

---

And a nested list:

• level 1 item
• level 2 item
• level 2 item
  • level 3 item
  • level 3 item
• level 1 item
• level 2 item
• level 2 item
• level 2 item
• level 1 item
• level 2 item
• level 2 item
• level 1 item

---

Nesting an ol in ul in an ol

• level 1 item (ul)
• level 2 item (ol)
• level 2 item (ol)
  • level 3 item (ul)
  • level 3 item (ul)
• level 1 item (ul)
• level 2 item (ol)
• level 2 item (ol)
  • level 3 item (ul)
  • level 3 item (ul)
• level 4 item (ol)
• level 4 item (ol)
  • level 3 item (ul)
  • level 3 item (ul)

---

layout: true

Plots

---

library(ggplot2)
(g <- ggplot(mpg) +
  aes(hwy, cty, color = class) +
  geom_point())

---

g + xaringanthemer::theme_xaringan(text_font_size = 16, title_font_size = 18) +
  ggtitle("A Plot About Cars")

---

layout: false

Square image

.footnote[GitHub Octocat]

---

Wide image

.footnote[Wide images scale to 100% slide width]

---

Two images

.pull-left[ ]

.pull-right[ ]

---

Definition lists can be used with HTML syntax.

Name

Godzilla

Born

1952

Birthplace

Japan

Color

Green

---

class: center, middle

Thanks!

Slides created via the R packages:

xaringan
gadenbuie/xaringanthemer

The chakra comes from remark.js, knitr, and R Markdown.

healthinnovation/lis documentation built on June 19, 2024, 6:06 a.m.