Возможно ли иметь всплывающее окно, появляющееся из кнопки Selectinput - PullRequest
Новая
       37

Возможно ли иметь всплывающее окно, появляющееся из кнопки Selectinput

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

Я пытаюсь получить всплывающие окна большого размера с правой стороны от кнопок disp, cyl и vs , из которых я могу выбирать различные значения соответствующих столбцов. например, если я выберу disp , я смогу получить большое всплывающее окно, где я могу легко увидеть все значения и выбрать их Возможно ли это сделать? Спасибо 

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


  data_table<-mtcars


  ui = fluidPage( 
  sidebarLayout(
    sidebarPanel (



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




      selectInput(inputId = "vs",
                  label = "vs:",
                  choices = c("All",
                              unique(as.character(data_table$vs))),
                  selected = "All",
                  multiple = TRUE),



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




    mainPanel(width = 12,


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









  server = function(input, output, session) {


  #tab 1
  thedata <- reactive({


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



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


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

    data_table



  })



  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)
...