Embed HTML code in slides

class: center, middle, inverse, title-slide

# Embed HTML code in slides
### Lars

---

## Session Info 1

```r
sessioninfo::platform_info()
```

```
##  setting  value                       
##  version  R version 4.0.3 (2020-10-10)
##  os       macOS Big Sur 10.16         
##  system   x86_64, darwin17.0          
##  ui       X11                         
##  language (EN)                        
##  collate  en_US.UTF-8                 
##  ctype    en_US.UTF-8                 
##  tz       Europe/Zurich               
##  date     2021-02-14
```

---
## Session Info 2

```r
sessioninfo::package_info()
```

```
##  package     * version date       lib source        
##  assertthat    0.2.1   2019-03-21 [1] CRAN (R 4.0.2)
##  cli           2.3.0   2021-01-31 [1] CRAN (R 4.0.2)
##  digest        0.6.27  2020-10-24 [1] CRAN (R 4.0.2)
##  evaluate      0.14    2019-05-28 [1] CRAN (R 4.0.1)
##  glue          1.4.2   2020-08-27 [1] CRAN (R 4.0.2)
##  htmltools     0.5.1.1 2021-01-22 [1] CRAN (R 4.0.2)
##  knitr         1.31    2021-01-27 [1] CRAN (R 4.0.2)
##  magrittr      2.0.1   2020-11-17 [1] CRAN (R 4.0.2)
##  rlang         0.4.10  2020-12-30 [1] CRAN (R 4.0.2)
##  rmarkdown     2.6     2020-12-14 [1] CRAN (R 4.0.2)
##  sessioninfo   1.1.1   2018-11-05 [1] CRAN (R 4.0.2)
##  stringi       1.5.3   2020-09-09 [1] CRAN (R 4.0.2)
##  stringr       1.4.0   2019-02-10 [1] CRAN (R 4.0.2)
##  withr         2.4.1   2021-01-26 [1] CRAN (R 4.0.2)
##  xaringan      0.19    2020-12-14 [1] CRAN (R 4.0.2)
##  xfun          0.21    2021-02-10 [1] CRAN (R 4.0.2)
##  yaml          2.2.1   2020-02-01 [1] CRAN (R 4.0.2)
## 
## [1] /Library/Frameworks/R.framework/Versions/4.0/Resources/library
```

---
# Icon in code chunk

The code chunk prints the html code instead of embedding the icon and adds `{=html}`.

```r
icon::fa_git(size = 5)
```

`<i class="fab  fa-git fa-5x "></i>`{=html}

---
# Icon as HTML code

Here I pasted `<i class="fab fa-git fa-5x "></i>` without the `{=html}`

---
# Using htmltools

I have the same problem when using {htmltools} builder functions.

```r
library(htmltools)

p(rmarkdown::metadata$author)
```

`<p>Lars</p>`{=html}

Here I use r code inline: `h1("heading")`

`<h1>heading 1</h1>`{=html}