У меня есть приложение, в котором некоторые данные хранятся как реактивные значения и возможность выполнять SQL запросы с использованием sqldf()
Может ли пользователь присоединиться к df_one и df_two и сохранить его как df_tot ? Как лучше использовать sqldf для просмотра реактивных значений?
library(shiny)
library(sqldf)
ui <- fluidPage(
pickerInput('available_data_sets', 'Data sets', choices = c('df_one', 'df_two')),
textInput('store_table_as', 'Store table as', value = ''),
textInput('sql_query', 'sql_query'),
actionButton('execute', 'execute')
)
server <- function(input, output, session) {
available_data_sets <- reactiveValues()
df_one <- data.frame(a = c(1, 2, 3), b = c('a', 'b', 'c'))
df_two <- data.frame(x = c(4, 5, 6), b = c('a', 'b', 'c'))
available_data_sets[['df_one']] <- df_one
available_data_sets[['df_two']] <- df_two
observeEvent(input$execute, {
req(input$sql_query, input$store_table_as)
available_data_sets[[input$store_table_as]] <- sqldf(input$sql_query)
new_names <- names(available_data_sets)
updatePickerInput(session, 'available_data_sets', choices = new_names)
})
}
shinyApp(ui, server)