PickerInputのeventReactiveの組み合わせ

はじめに

shinywidgetsのPickerInputとactionButtonを実装したので、メモする。

コード

ui.r

library(shiny)
library(leaflet)
library(shinyWidgets)



shinyUI(fluidPage(

  titlePanel("TEST"),

  #sidebarLayout settings
  sidebarLayout(
    sidebarPanel(
      pickerInput(
        inputId = "PickerID", 
        label = "testlabel", 
        choices = LETTERS, 
        options = list(
          `actions-box` = TRUE, 
          size = 7,
          `selected-text-format` = "count > 3"
        ),
        multiple = TRUE,
      ),
      actionButton("do","RUN!")
    ),
    #mainpanel settings
    mainPanel(
      textOutput("distText")
      )
    )
  ))

server.r

library(shiny)
library(leaflet)
library(dplyr)
shinyServer(function(input, output) {

  output$distText <- renderText({
    print(outtext())
  })

  outtext <- eventReactive(input$do,{
    print(input$PickerID)
    return(input$PickerID)
  })
})

＃おわりに
actionButtonの位置を間違えてせいで1時間以上苦戦してしまった。。。