Shinyアプリでmultiple = TRUEのSelectinput（）は、連続した値を選択したときにのみ応答します

Question

私はシンプルなアプリを持っていて、selectinput（）で選択した名前に基づいて行を提供するデータテーブルを作成します。 。それは正常に動作しますが、私は最初から最後まで名前を選んでいますが（最初、2番目、3番目...など）、最初の名前、3番目の名前、2番目の名前などを選択すると反応しません。

nba <- data.frame(
    player = c("James", "Durant", "Curry", "Harden", "Paul", "Wade"), 
    team = c("CLEOH", "GSWOAK", "GSWOAK", "HOUTX", "HOUTX", "CLEOH"), 
    day1points = c("25","23","30","41","26","20"), 
    day2points = c("24","25","33","45","26","23"), 
    rating=c("1","2","3","4","5","1") 
) 

server.r

library(shiny) 
library(DT) 
ui <- navbarPage(
    title="SADDAS", 
      sidebarLayout(
      sidebarPanel(uiOutput("var1_select")), 
      mainPanel(tableOutput("reportOutput")) 
)) 

ui.r

server <- function(input, output) { 
    output$var1_select<-renderUI({ 
    selectInput("ind_var_select","Select Names", choices =c(as.character(nba[,1])),multiple = TRUE,selected = nba[1,1]) 
    }) 
    output$reportOutput = renderTable(
    {subset(nba[,1:3],player==input$ind_var_select)}, 
    options = list(scrollX = TRUE) 
) 
} 

Answer 1

これを試してみてください：偉大なおかげで働いた

library(shiny) 

nba <- data.frame(
    player = c("James", "Durant", "Curry", "Harden", "Paul", "Wade"), 
    team = c("CLEOH", "GSWOAK", "GSWOAK", "HOUTX", "HOUTX", "CLEOH"), 
    day1points = c("25","23","30","41","26","20"), 
    day2points = c("24","25","33","45","26","23"), 
    rating=c("1","2","3","4","5","1") 
) 

ui <- navbarPage(
    title="SADDAS", 
    sidebarLayout(
    sidebarPanel(uiOutput("var1_select")), 
    mainPanel(tableOutput("reportOutput")) 
)) 

server <- function(input, output) { 
    output$var1_select<-renderUI({ 
    selectInput("ind_var_select","Select Names", choices =c(as.character(nba[,1])),multiple = TRUE,selected = nba[1,1]) 
    }) 
    output$reportOutput = renderTable({ 
    nba[,1:3][nba$player %in% input$ind_var_select,] 
    }, 
    options = list(scrollX = TRUE) 
) 
} 

shinyApp(ui, server)