The goal of metathis is to help you add HTML
<meta> tags to your R Markdown and Shiny apps.
HTML <meta> tags provide browsers and social media
with metadata about HTML pages. Using <meta> tags
will help your users find your articles, Shiny apps, and presentations,
and will help you make sure they look great in social media
timelines.
metathis makes the process of adding these tags to
your R Markdown pages and Shiny apps easier by using the htmltools package to add
<meta> tags as a dependency, added directly to the
document in an R code chunk or your Shiny app UI rather than requiring
you to adjust templates or write additional files.
If you want great looking social media cards, the meta_social()
function will help you add everything you need for Twitter, Facebook and
other social media sites that support the Open Graph protocol.
You can install the latest version of metathis from CRAN with:
# CRAN
install.packages("metathis")And the development version from Github or r-universe with:
# r-universe
install.packages("metathis", repos = "https://gadenbuie.r-universe.dev")
# install.packages("devtools")
devtools::install_github("gadenbuie/metathis@main")✅ R Markdown HTML
Documents
✅ Shiny Apps
✅ xaringan
✅ pagedown
✅ bookdown
❌ blogdown1
❌ pkgdown
<meta> tags can be added to ✅ packages with a
standard R chunk
```{r, echo=FALSE}
meta() %>%
meta_description("My awesome presentation")
```For other packages or situations, you can use
include_meta() to explicitly declare the meta tags as an
html dependency or use write_meta() to save the
<meta> tags to an .html file that can be
included via includes: in_header. (In blogdown, consult
your blogdown/hugo theme for the correct inclusion method.)
```{r blogdown-meta, echo = FALSE}
meta() %>%
meta_description("A fantastic blog post") %>%
write_meta("meta.html")
```This is a basic example that re-creates the <meta>
tags for the R for Data Science
book.
library(metathis)meta() %>%
meta_description(
"This book will teach you how to do data science with R..."
) %>%
meta_name("github-repo" = "hadley/r4ds") %>%
meta_viewport() %>%
meta_social(
title = "R for Data Science",
url = "https://r4ds.had.co.nz",
image = "https://r4ds.had.co.nz/cover.png",
image_alt = "The cover of the R4DS book",
og_type = "book",
og_author = c("Garrett Grolemund", "Hadley Wickham"),
twitter_card_type = "summary",
twitter_creator = "@hadley"
)#> <meta name="viewport" content="width=device-width, initial-scale=1, orientation=auto"/>
#> <meta name="description" content="This book will teach you how to do data science with R..."/>
#> <meta name="github-repo" content="hadley/r4ds"/>
#> <meta name="twitter:title" content="R for Data Science"/>
#> <meta name="twitter:description" content="This book will teach you how to do data science with R..."/>
#> <meta name="twitter:url" content="https://r4ds.had.co.nz"/>
#> <meta name="twitter:image" content="https://r4ds.had.co.nz/cover.png"/>
#> <meta name="twitter:image:alt" content="The cover of the R4DS book"/>
#> <meta name="twitter:card" content="summary"/>
#> <meta name="twitter:creator" content="@hadley"/>
#> <meta name="twitter:site" content="@hadley"/>
#> <meta property="og:title" content="R for Data Science"/>
#> <meta property="og:description" content="This book will teach you how to do data science with R..."/>
#> <meta property="og:url" content="https://r4ds.had.co.nz"/>
#> <meta property="og:image" content="https://r4ds.had.co.nz/cover.png"/>
#> <meta property="og:image:alt" content="The cover of the R4DS book"/>
#> <meta property="og:type" content="book"/>
#> <meta property="og:locale" content="en_US"/>
#> <meta property="article:author" content="Garrett Grolemund"/>
#> <meta property="article:author" content="Hadley Wickham"/>To use metathis in Shiny apps, simply call
meta() and related tags anywhere inside your page UI, for
example inside fluidPage().
ui <- fluidPage(
# Application title
titlePanel("metathis Example"),
meta() %>%
meta_social(
title = "metathis",
description = "<meta> and social media cards for web things in R",
url = "https://pkg.garrickadenbuie.com/metathis",
image = "https://garrickadenbuie.com/apple-touch-icon-114x114.png",
image_alt = "An image for social meda cards",
twitter_creator = "@grrrck",
twitter_card_type = "summary",
twitter_site = "@grrrck"
)
# ... your UI ...
)To use metathis in xaringan slides, add
meta() and related tags in a chunk anywhere in your slide’s
source .Rmd file. This example is from a presentation on the
drake package.
```{r meta, echo=FALSE}
library(metathis)
meta() %>%
meta_general(
description = "A gentle introduction to reproducible data workflows with the {drake} package.",
generator = "xaringan and remark.js"
) %>%
meta_name("github-repo" = "gadenbuie/drake-intro") %>%
meta_social(
title = "Reproducible Data Workflows With Drake",
url = "https://pkg.garrickadenbuie.com/drake-intro",
image = "https://pkg.garrickadenbuie.com/drake-intro/assets/images/drake-intro-cover.jpg",
image_alt = "The first slide of the Reproducible Data Workflows with drake presentation, featuring the drake hex logo and neatly ordered row of items on a desk (eraser, pencil, coffee cup, paperclips).",
og_type = "website",
og_author = "Garrick Aden-Buie",
twitter_card_type = "summary_large_image",
twitter_creator = "@grrrck"
)
```Thanks to Josh Buchea for
providing an excellent and
indispensable resource on <meta> tags and other
things that go in the HTML <head> tags.
Thanks also to Malcolm Barret. Watching over his shoulder as he developed ymlthis made putting this package together so much easier.
Finally, thanks to the RStudio team and others who developed htmltools for making HTML in R a breeze.