В течение нескольких часов я боролся. мойShiny App должен отображать некоторые переменные, которые у меня есть в моей среде R. Это работает, все работает отлично, но когда я развертываю его в сети, я получаю такие ошибки, как:

Error: object 'df1' not found

Как я могу добавитьdf1 и мои другие фреймы данных, чтобы они могли быть упакованы как частьShiny App когда это развернуто?

Пожалуйста помоги. Вот мой пример кода:

server.R

library(shiny)

shinyServer(function(input,output){
output$datasets <- renderTable({
switch(input$choice,

         "1" = as.data.frame(df1)          
         "2" = as.data.frame(df2) })
  }))

UI.R

shinyUI(
fluidPage(theme = "bootstrap.css",

sidebarPanel(        
  conditionalPanel(
    condition = "input.theTab == 'datasets' ",
    h3('Display Sample Data'),    
    selectInput("choice", "Selection", choices = c("Group1"=1,"Group2"=2)),

  )),

mainPanel(
  tabsetPanel(
    tabPanel( "datasets", tableOutput("datasets"), value = 'datasets'),
    id = "theTab"))
)