подмножество с использованием selectizeInput — блестящий R

У меня есть раскрывающееся меню, которое представляет собой selectizeInput, с помощью которого мне нужно подмножить свой фрейм данных для дальнейшего анализа.

Рассмотрим следующее,

d - кадр данных (имеет столбец с именем «тест»)

меню - раскрывающийся список selectizeInput

d[d$test %in% input$menu, ]

Это не делает то, что мне действительно нужно. есть идеи?


shiny shiny-server shinyjs selectize.js
person Harriss    schedule 29.08.2016    source источник
comment
Или это будет d[d$test %in% c(input$menu), ]   -  person Harriss    schedule 29.08.2016

Ответы (1)


arrow_upward
0
arrow_downward

Он должен работать.

ui

library(shiny)

shinyUI(fluidPage(

  sidebarLayout(
    sidebarPanel(
      selectizeInput("in", "in", choices = as.list(letters[1:10]), multiple = TRUE)
    ),

    mainPanel(
      verbatimTextOutput("view")
    )
  )
))

сервер

library(shiny)

d <- data.frame(test = letters[1:10], value = 1:10)

shinyServer(function(input, output) {

  view <- reactive({d[d$test %in% input$"in", ]})

  output$view <- renderPrint(view())

})
person mRcSchwering    schedule 29.08.2016