如何從另一個observeEvent訪問數據框？

UI.R

library(shiny)  
shinyUI(fluidPage( 
    titlePanel("Example"),  
    sidebarLayout( 
    sidebarPanel( 
     radioButtons("orderdata", "Sort by :", 

        c("Name" = "name",  
        "MRDNo" = "mrdno"       
        )) 
    ), 

    mainPanel( 
     uiOutput("deatilscv")  
    ) 
) 
)) 

Server.R  
library(shiny)  
library(shinyjs) 

shinyServer(function(input, output) {  
    observeEvent(input$orderdata, 
    { 

    output$deatilscv <- renderUI({  
    if(input$orderdata=="name")  
    { 

    mid<-c("1","2")  
    name<-c("a","b") 

    datatable1 <- data.frame(mid,name)  
    fluidPage(shinyjs::useShinyjs(),  
       actionButton("button1", "CLICK") )  
    } 

    else if(input$orderdata=="mrdno")  
    { 
     mid<-c("3","4")  
     name<-c("c","d") 

     datatable2 <- data.frame(mid,name)  
     fluidPage(shinyjs::useShinyjs(),  
       actionButton("button1", "CLICK") ) 
    } 

    })  
    }) 

    observeEvent(  
    input$button1,{   
     a <- datatable1[1,2] #this shows an error object 'datatable1' not found   
     print(a) 
    }) 
    observeEvent(

    input$button2,{ 

     a <- datatable2[1,2] #this shows an error object 'datatable2' not found   
     print(a) 
    }) 
})

有如圖above.How可在數據表中觀察事件來訪問在程序兩個錯誤？

來源

2016-08-19 Rad

你的數據是在'observeEvent'函數中定義的......所以它在按鈕函數裏面是不知道的。在全局或直接在'shinyServer'中定義數據。 – drmariod

先生，但我希望只有單擊單選按鈕時才能爲數據表1和數據表2分配一個數據框，這就是爲什麼我將數據置於observeEvent中的原因。 – Rad

嘗試熟悉像這裏http://shiny.rstudio.com/tutorial/lesson6/這樣的反應式表達式，這是如何基於單選按鈕選擇數據更新以及如何使用其他功能中的數據 – drmariod

不知道你在努力完成什麼。也許你可以解釋你的應用程序應該如何工作。我更改您的代碼以根據選定的單選按鈕顯示數據集。您不需要將輸出放入observeEvent中。

library(shiny) 
library(shinyjs) 

ui <- shinyUI(fluidPage(

    titlePanel("Example"), 
    sidebarLayout( 
    sidebarPanel( 
     radioButtons("orderdata", "Sort by :", 
        c("Name" = "name", 
        "MRDNo" = "mrdno" )) 
     ), 

    mainPanel( 
     tableOutput("deatilscv") 
    ) 
) 
)) 


server <- shinyServer(function(input, output) { 

# observeEvent(input$orderdata, { 

     output$deatilscv <- renderTable({ 

     if(input$orderdata=="name") { 

      mid  <- c("1","2"); name <-c("a","b") 
      datatable <- data.frame(mid,name) 
      # fluidPage(shinyjs::useShinyjs(), actionButton("button1", "CLICK") ) 

     } else if(input$orderdata=="mrdno") { 

      mid<-c("3","4"); name<-c("c","d") 
      datatable <- data.frame(mid,name) 
      # fluidPage(shinyjs::useShinyjs(), actionButton("button1", "CLICK") ) 

     } 


    }) 
    # }) 

    # observeEvent( input$button1,{ 
    # 
    #    a <- datatable1[1,2] #this shows an error object 'datatable1' not found 
    #    print(a) 
    #   }) 

    # observeEvent( input$button2,{ 
    #  a <- datatable2[1,2] #this shows an error object 'datatable2' not found 
    #  print(a) 
    # }) 
}) 

shinyApp(ui, server)

來源

2016-08-19 11:16:45

如何從另一個observeEvent訪問數據框？

回答

相關問題