tab_datos <- function() {
tabItem(
tabName = "datos",
fluidPage(
fluidRow(
wellPanel(
downloadButton("descargar", "Descargar", icon("download")),
br(),
)
),
br(),
br(),
fluidRow(
gt_output(outputId = "database_table")
)
)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.