Переключите выходы в R блестящие переключатели

Question

Я работаю над блестящим приложением, в котором я использую radioGroupButtons от ShinyWidgets.Поэтому для каждой кнопки я пытаюсь переключиться на другой вывод, такой как таблица или график.Как связать переключатель с выходами

library(shinyWidgets)
library(shinipsum)
library(htmlwidgets)

  ui <- navbarPage(
    div(
      id = "section1-1",
      radioGroupButtons(
        inputId = "Id069",
        # label = "Choose a graph :",
        choices = c(
          `<i class='fa fa-bar-chart'></i>` = "bar",
          `<i class='fa fa-line-chart'></i>` = "line",
          `<i class='fa fa-pie-chart'></i>` = "pie"
        ),
        justified = TRUE
      )
    )
  )

  server <- function(input, output, session) {
    # observe({
    #   x <- input$inRadioButtons
    #   
    #   # Can also set the label and select items
    #   updateRadioButtons(session, "inRadioButtons2",
    #                      label = paste("radioButtons label", x),
    #                      choices = x,
    #                      selected = x
    #   )
    # })
    output$plot <- renderPlot({
      random_ggplot()
    })
  }

  shinyApp(ui, server)

Answer 1

На стороне сервера вы можете получить доступ к идентификатору ввода следующим образом:

         Value = input$Id069

Итак, добавьте такую ​​логику на стороне сервера (в пределах вывода $ plot):

        If (Value == x) {
          Plot1()
        } else {
          Plot2()
        }

Возможно, вы захотите просмотреть условные панели в пользовательском интерфейсе.