Блестящий - Как фильтровать переменные в таблице и boxplot, используя checkboxGroupInput

Question

Я не знаю, как кодировать сервер для фильтрации выбора переменных, используя checkboxGroupInput.Я хочу, чтобы отфильтровать переменные, которые будут отображаться в боксплоте и в таблицеЯ добавил все переменные в пользовательском интерфейсе.

Мой код: (я использую набор данных multi-multi.csv)

UI

shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
      fileInput("fileInPath", label= h4("Import danych")),
      sliderInput("kolor", h4("Wybierz kolor"),min = 0, max = 1, value = 0.5, step=0.05),
      checkboxGroupInput("kolumna", h4("Wybierz kolumny"), choices = c('L1', 'L2', 'L3', 'L4', 'L5', 'L6', 'L7', 'L8', 'L9', 'L10', 'L11', 'L12', 'L13','L14', 'L15', 'L16', 'L17', 'L18', 'L19', 'L20')),
      mainPanel(
      tabsetPanel(type = "tabs",
                  tabPanel("Table", tableOutput("daneIn")),
                  tabPanel("Plot", plotOutput("plot")),
                  tabPanel("Model", verbatimTextOutput("model"))))) ))

SERVER

library(shiny)
library(ggplot2)
library(reshape)

model <- function(d){
  tmpTab <- table(as.integer(unlist((d[,-c(1:4)]))))
  ret <- as.integer(head(names(tmpTab[order(tmpTab,decreasing=T)]),10))
  ret <- as.data.frame(matrix(ret,ncol=1))
  return(ret)
}
shinyServer(function(input, output) {
  dataIn <- reactive({
    inFile <- input$fileInPath
    if (is.null(inFile)) {
      return(NULL)
    } read.table(file=inFile$datapath,sep=";",dec=",",header=T,stringsAsFactors=FALSE)
  })
  output$daneIn <- renderTable({
    ret <- rbind(
      head(dataIn(),5),
      tail(dataIn(),5)
    )
    return(ret)
  },include.rownames=FALSE)
  output$plot <- renderPlot({
    d <- dataIn()
    InColor <- rgb(as.numeric(input$kolor),0,0,1)
    d <- melt(d[,-c(2:4)],id.vars="Numer")
    wyk <- (
      ggplot(d,aes(x=variable,y=value)) 
      + geom_boxplot(color = InColor) 
      + xlab("") + ylab("Kula")
    ) 
    return(wyk)
  }) 
  output$model <- renderPrint({
    d <- dataIn()
    ret <- model(d)
    return(ret)
  }) 
  })

Answer 1

То, что вы хотите сделать, - это создать условный реактивный фильтр на основе правил, которые применяются, когда пользователь запускает checkInputBoxes.Я не могу понять, какие правила основаны на предоставленном коде, однако могу предложить следующее:

1. Добавьте следующий код на ваш сервер. R (где «Ваше правило» относится кправило фильтрации, которое вы собираетесь применить):

   filteredData <- shiny::reactive({
   switch(
     input$kolumna,
     'L1' = dataIn() %>% filter(Your Rule), 
     'L2' = dataIn() %>% filter(Your Rule), 
     'L3' = dataIn() %>% filter(Your Rule), 
     'L4' = dataIn() %>% filter(Your Rule), 
     'L5' = dataIn() %>% filter(Your Rule), 
     'L6' = dataIn() %>% filter(Your Rule), 
     'L7' = dataIn() %>% filter(Your Rule), 
     'L8' = dataIn() %>% filter(Your Rule), 
     'L9' = dataIn() %>% filter(Your Rule), 
     'L10' = dataIn() %>% filter(Your Rule), 
     'L11' = dataIn() %>% filter(Your Rule), 
     'L12' = dataIn() %>% filter(Your Rule), 
     'L13' = dataIn() %>% filter(Your Rule),
     'L14' = dataIn() %>% filter(Your Rule), 
     'L15' = dataIn() %>% filter(Your Rule), 
     'L16' = dataIn() %>% filter(Your Rule), 
     'L17' = dataIn() %>% filter(Your Rule), 
     'L18' = dataIn() %>% filter(Your Rule), 
     'L19' = dataIn() %>% filter(Your Rule), 
     'L20' = dataIn() %>% filter(Your Rule)
     )
   })
   

2. Добавьте триггер в коде рендеринга для визуализации отфильтрованных данных, опять же, я не уверен, где вы хотите фильтровать, но я буду использоватьrenderPrint в качестве примера:

   output$model <- renderPrint({
    # You have not selected any filters, hence your original upload will be rendered
    if (is.null(input$kolumna)) {
      d <- dataIn()
      ret <- model(d)
      return(ret)
    } else { # You have filtered your data, which filteredData() will handle
      d <- filteredData()
      ret <- model(d)
      return(ret)
    }
   }) 
   

3. Теперь вы сможете динамически обрабатывать и фильтровать данные.

Надеюсь, это сработает.Не забудьте проголосовать, если это работает: -).