Использование динамических кнопок radioButtons в Shiny

Question

В приложении Shiny я динамически создаю radioButtons на сервере и использую renderUI для передачи этого клиенту. Теперь у меня возникла проблема получения ответа radioButtons (выбранного элемента) для дальнейшей обработки. Ниже урезанная версия моей проблемы.

library(shiny) 

ui <- shinyUI(pageWithSidebar( 
    headerPanel("test dynamic radio buttons"), 
    sidebarPanel( 
    ), 
    mainPanel( 
     x <- uiOutput('radioTest'), 
     actionButton('submit', label = "Submit"), 
     br(), 
     print(paste("Radiobutton response is:", "reply()")), 
     textOutput('text') 
    ) 
)) 

server <- shinyServer( 
    function(input, output) { 
     output$radioTest <- renderUI({ 
      options <- c("item 1", "item 2", "item 3") 
      # The options are dynamically generated on the server 
      radioButtons('reply', 'What item do you select ?', options, selected = character(0)) 
     }) 
     observe({ 
      input$submit 
      isolate(
       output$text <- renderText({ 
        paste("Radiobutton response is:", "reply()") 
       }) 
      ) 
     }) 
    } 
) 

# Run the application 
shinyApp(ui = ui, server = server) 

Answer 1

Вы хотите что-то вроде следующего?

library(shiny) 

ui <- shinyUI(pageWithSidebar( 
    headerPanel("test dynamic radio buttons"), 
    sidebarPanel( 
), 
    mainPanel( 
    x <- uiOutput('radioTest'), 
    actionButton('submit', label = "Submit"), 
    br(), 
    #print(paste("Radiobutton response is:", "reply")), 
    textOutput('text') 
) 
)) 

server <- shinyServer( 
    function(input, output) { 
    output$radioTest <- renderUI({ 
     options <- c("item 1", "item 2", "item 3") 
     # The options are dynamically generated on the server 
     radioButtons('reply', 'What item do you select ?', options, selected = character(0)) 
    }) 
    observe({ 
     input$submit 

     isolate(
     output$text <- renderText({ 
      paste("Radiobutton response is:", input$reply) 
     }) 
    ) 
    }) 
    } 
) 

# Run the application 
shinyApp(ui = ui, server = server)