---
title: "Layout Tests"
subtitle: "Testing Bulma Layout Elements"
author: 
  - name: First Author
    url: https://rstudio.com
    extra: 
      - "First Affiliation"
      - "@tweeter345"
  - name: Second Author
    url: https://duckduckgo.com
    extra: 
      - "Second Affiliation"
      - "Very Cool Guy"
date: '`r strftime(Sys.time(), "%F %T")`'
header-links:
  - name: Github
    url: https://github.com/gerkelab
  - name: Home
    url: https://gerkelab.com
bulma:
  hero: ["info", "bold"]
output: bulma::bulma_document
editor_options: 
  chunk_output_type: console
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(bulma)
```

## Level

### Basic

```r
bulma::bulma_level("Home", "Menu", "Bulma", "Reservations", "Contact")
```

`r bulma::bulma_level("Home", "Menu", "Bulma", "Reservations", "Contact")`

### Heading/Number Style

```r
bulma_level("Tweets" = 3456, Following = 123, Followers = "456K", Likes = 789, style = "header")
```

`r bulma_level("Tweets" = 3456, Following = 123, Followers = "456K", Likes = 789, style = "header")`

#### Dynamic Level

```{r}
iris_values <- purrr::map(iris, ~ length(unique(.)))
bulma_level(iris_values, style = "header")
```