Как я могу использовать расширение кнопок в DT, чтобы загрузить эту таблицу?

Question

Ниже приведена часть кода, с которой у меня проблемы. На странице есть раскрывающийся список, который позволяет пользователю выбирать между двумя различными таблицами, которые извлекаются из базы данных. У меня проблемы с выяснением, как заставить его скачать. Как вы можете видеть в коде, я изначально пытался использовать downloadLink, но мне интересно, будет ли лучше подходить расширение кнопок DT. В любом случае, я не могу заставить это работать. Есть идеи?

                #Results Tab UI
                 tabPanel(
                    "Study Results",
                    br(),
                    selectInput("resultsDisplay", "Display results by", choices = c("Single Study", "Compare Studies")),
                    uiOutput("resultsPnoDropUI"),
                    selectInput("resultsType", "Results Type", choices = c("results_mn", "results_pairwise")),

                    downloadLink("downloadResults", "Download this File"),
                    br(),
                    br(),
                    DT::dataTableOutput("studyResultsTable")

                )

    )
})

#Search and User ID Database Connections
protocolDB <-dbConnect(RSQLite::SQLite(), "clin_oral.db")


resultsDB <- dbConnect(RSQLite::SQLite(), "OralCareResults.sqlite")
results_mn <- dbReadTable(resultsDB, "Means")
pairTable <- dbReadTable(resultsDB, "Pairwise")

#Results DT Output
output$studyResultsTable = DT::renderDataTable({
    resultTable <-if(is.null(input$resultsType))
        return()

    dat<- get(input$resultsType)
})