Невозможно очистить отображаемый вывод в ShinyApp с помощью actionButton - PullRequest
Новая
       29

Невозможно очистить отображаемый вывод в ShinyApp с помощью actionButton

0 голосов
/ 19 января 2019

Я создаю приложение блестящие приложения на данных mtcars .Я получил 2 actionButtons (Go & Clear). Кнопка Go предназначена для отображения выходных данных на главной панели, а кнопка Clear предназначена для очистки этих выходных данных.Кнопка «Очистить» не работает по непредвиденной причине.Может кто-нибудь, пожалуйста, посмотрите на мои коды.Буду очень признателен. 

library(shiny)   
library(DT)     
library(dplyr) 
library(shinythemes) 
library(htmlwidgets) 
library(shinyWidgets) 
library(shinydashboard)

data_table<-mtcars

#ui
ui = fluidPage( 
  sidebarLayout(
    sidebarPanel (

      uiOutput("cyl_selector"),
      uiOutput("disp_selector"),

      actionButton(inputId = "go", label = "Go"),
      actionButton(inputId = "reset", label = "Clear")),


    mainPanel(
           DT::dataTableOutput('mytable') )))



#server
server = function(input, output, session) {

  output$cyl_selector <- renderUI({

    selectInput(inputId = "cyl",
                label = "cyl:", multiple = TRUE,
                choices = c( unique(as.character(data_table$cyl))),
                selected = c('4')) })


  output$disp_selector <- renderUI({

    available <- data_table[c(data_table$cyl %in% input$cyl ), "disp"]  

    selectInput(
      inputId = "disp", 
      label = "disp:",
      multiple = TRUE,
      choices = c('All',as.character(unique(available))),
      selected = 'All') })


  thedata <- eventReactive(input$go,{

    data_table<-data_table[data_table$cyl %in% input$cyl,]


    if(input$disp != 'All'){
      data_table<-data_table[data_table$disp %in% input$disp,]
    }

    data_table
 })


 # thedata <- eventReactive(input$reset,{
 #   data_table<-NULL
 # })


  output$mytable = DT::renderDataTable({

    DT::datatable( filter = "top",  rownames = FALSE, escape = FALSE,
                   options = list(pageLength = 50, autowidth=FALSE,
                                  dom = 'Brtip'  ),
                   {     
                     thedata()   # Call reactive thedata()
                   })
 })}  
shinyApp(ui = ui, server = server)

1 Ответ

0 голосов
/ 19 января 2019

Я не проанализировал ваш скрипт полностью, но я вижу, что он вообще не вызывает вторую кнопку ( Очистить ).Вы сделали eventReactive () , используя input $ go для первой кнопки построения графика, но вам также нужно вызвать input $ reset , если вы хотитезаставить это работать.

...