downloadthis-reprex.qmd

---
title: "downloadthis reprex"
format: html
include-after-body: button.html
---

# Head1

<br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br> <br>

::: panel-tabset
## tab1

```{r}
library(downloadthis)
x <- "TEST"
mtcars %>%
  download_this(
    output_name = paste(x, "mtcars data set"),
    output_extension = ".csv",
    button_label = "Download data",
    button_type = "success",
    has_icon = TRUE,
    icon = "fa fa-save",
    id = "wfc-btn"
  )
```

## tab2

```{r}
library(downloadthis)
x <- "TEST"
mtcars %>%
  download_this(
    output_name = paste(x, "mtcars data set"),
    output_extension = ".csv",
    button_label = "Download data",
    button_type = "success",
    has_icon = TRUE,
    icon = "fa fa-save",
    id = "wfc-btn"
  )
```
:::