Блестящий R, всегда обновляющий код после ввода

Question

Я бы спросил. Does Shiny действительно нравится всегда обновлять код после ввода? Сначала я код этого в УИ:

box(##title="Quality Attributes", 
       selectInput("att_ViewChart", width = '100%',label="Quality Attributes", 
          ##multiple = TRUE, 
          choices=list(
          "-", 
          "Suitability", 
          "Security", 

          ) 
       ) 
     ), 
dataTableOutput("tabelstatus") 

Тогда я код этот сервер:

server = function(input, output) { 
withProgress(message = "AAAAA",{ 
     DateStatus_Sui<-c(1,2,3,4,NA,5,6,NA,7) 
     TimeStatus_Sui<-c(11,22,33,44,NA,55,66,NA,88) 
     status_Sui<-c(11,22,44,55,66,77,88) 
     jumlah<-7 
    }) 
    if(input$att_ViewChart=="Suitability"){ 
     Date<-DateStatus_Sui[!is.na(DateStatus_Sui)] 
     Time<-TimeStatus_Sui[!is.na(TimeStatus_Sui)] 
     Status<-status_Sui 
     Observation<-1:jumlah 
     #output 

     tabelstatus<-data.frame(Observation,Date,Time,Status) 
     output$tabelstatus<-renderDataTable(tabelstatus) 
} 

Я надеюсь, что, когда я запустить приложение. Блестящий обработает код (отображается индикатором выполнения «AAAAA»). И после этого, если я выберу подходящий, он сделает немного больше процесса, а затем покажет таблицу. Но я обнаружил, что индикатор выполнения снова появляется. Кажется, он снова запускает код с самого начала. Как это исправить? Спасибо

Answer 1

В Наедине из полностью воспроизводимого примера, я предполагаю, что это то, что вы пытаетесь сделать (то есть, сделать таблицу reactive в соответствии с вашими input$att_ViewChart):

library(shiny) 
library(shinydashboard) 

ui <- dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(), 
    dashboardBody(
     box(selectInput("att_ViewChart", width = '100%',label="Quality Attributes", 
            choices=c("-","Suitability","Security"))), 
     dataTableOutput("tablestatus") 
    ) 
) 

server = function(input, output) { 

    withProgress(message = "AAAAA",{ 
     DateStatus_Sui<-c(1,2,3,4,NA,5,6,NA,7) 
     TimeStatus_Sui<-c(11,22,33,44,NA,55,66,NA,88) 
     status_Sui<-c(11,22,44,55,66,77,88) 
     jumlah<-7 
    }) 

    ## make your table reactive on `input$att_ViewChart` 
    output$tablestatus <- renderDataTable({ 

     if(input$att_ViewChart=="Suitability"){ 

      Date<-DateStatus_Sui[!is.na(DateStatus_Sui)] 
      Time<-TimeStatus_Sui[!is.na(TimeStatus_Sui)] 
      Status<-status_Sui 
      Observation<-1:jumlah 

      tablestatus <- data.frame(Observation,Date,Time,Status) 
     }else{ 
      tablestatus <-data.frame() 
     } 
     return(tablestatus) 
    }) 
} 

shinyApp(ui = ui, server = server)