Как заставить Shiny Reactivity работать с базой данных SQL?

Хорошо, я изменил скрипт, следуя совету @Pork Chop:

server.R

library(shiny)
library(DT)
library(RMySQL)

con <- dbConnect(MySQL(), user="myuser", host="myhost", dbname="mydb")

shinyServer(function(input, output) { 

                sqlOutput <- reactive({
                    sqlInput <- paste0("select * from mydb.mytable",
                           " where value < ", input$value,
                           ";")
                    dbGetQuery(con, sqlInput)
                })

                output$table <- DT::renderDataTable(sqlOutput(), server=TRUE, rownames=FALSE, filter="top", options=list(pageLength=10))

                output$download <- downloadHandler("filtered.data.txt", content = function(file) {
                                           rows <- input$table_rows_all
                                           write.table(sqlOutput()[rows, ], file, sep="\t", quote=FALSE, col.names=TRUE, row.names=FALSE)
                })

})

DataTable теперь работает!

Однако, когда я пытаюсь загрузить отображаемые данные, я получаю файл только с именами столбцов и без данных. Согласно DT docs, input $ table_rows_all должен содержать индексы строк отображаемой таблицы .

Что случилось?

У меня проблемы с реактивностью Shiny и базой данных MySQL.

Короче говоря, я получаю входное значение от пользователя, создаю SQL-запрос, фиксирую результат и отображаю его как DataTable.

Выходные данные можно дополнительно отфильтровать с помощью фильтров столбцов DataTable, и пользователь должен иметь возможность загрузить отфильтрованный набор данных.

server.R

library(shiny)
library(DT)
library(RMySQL)

con <- dbConnect(MySQL(), user="myuser", host="myhost", dbname="mydb")

shinyServer(function(input, output) {


                sqlInput <- reactive({
                    paste0("select * from mydb.mytable",
                           " where value < ", input$value,
                           ";")
                })

                sqlOutput <- reactive({
                    dbGetQuery(con, sqlInput)
                })

                output$table <- DT::renderDataTable(sqlOutput, server=TRUE, rownames=FALSE, filter="top", options=list(pageLength=10))

                output$download <- downloadHandler("filtered.data.txt", content = function(file) {
                                           rows <- input$table_rows_all
                                           write.table(sqlOutput[rows, ], file)
                })

})

Вместо DataTable я получаю такую ​​ошибку:

Это работает должным образом, если я вставляю sqlInput и sqlOutput в реактивное выражение в DT::renderDataTable(), но тогда я не могу ссылаться на sqlOutput изнутри downloadHandler() (object 'sqlOutput' not found). Я думал, что это идеальный вариант использования reactive(), но я не могу заставить его работать.

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