inst/app/ui_tab_datos.R

tab_datos <- function() {
    tabItem(
        tabName = "datos",
        fluidPage(
            fluidRow(
                wellPanel(
                    downloadButton("descargar", "Descargar", icon("download")),
                    br(),
                )
            ),
            br(),
            br(),
            fluidRow(
                gt_output(outputId = "database_table")
            )
        )
    )
}
cantabricagr/cantabricar documentation built on Dec. 19, 2021, 1:48 p.m.