Как использовать переключатель материалов с шинидашбордом [R] - PullRequest
Новая
       7

Как использовать переключатель материалов с шинидашбордом [R]

0 голосов
/ 03 декабря 2018

Я знаю, что упускаю что-то очевидное, но по какой-то причине я не могу переключить материал, чтобы что-то сделать в блестящем приложении, используя shinydashboard.

Я хочу использовать его на боковой панели, чтобы активировать другой вход.Однако, с кодом ниже, хотя переключатель появляется, он ничего не делает.

Я думаю, что ключ, вероятно, находится в состоянии условной панели ... 

library("shiny")
library("shinydashboard")
library("shinyWidgets")

sidebar <- dashboardSidebar(materialSwitch(inputId = "check", 
        label = h4("View by options")),
        conditionalPanel(condition = "input.check == TRUE",
        awesomeRadio(inputId = "options", label = NULL, choices = c("A", "B", "C"),
                           selected = c("A"))))

body <- dashboardBody()

ui <- dashboardPage(dashboardHeader(title = "Example"),
                sidebar,
                body
                )

server <- function(input, output) {
}

shinyApp(ui, server)

1 Ответ

0 голосов
/ 03 декабря 2018

Обратите внимание, что это javascript условно, поэтому он не знает, что такое TRUE как его R оценка, измените его на true

library("shiny")
library("shinydashboard")
library("shinyWidgets")

sidebar <- dashboardSidebar(materialSwitch(inputId = "check", 
                                           label = h4("View by options")),
                            conditionalPanel(condition = "input.check == true",
                                             awesomeRadio(inputId = "options", label = NULL, choices = c("A", "B", "C"),
                                                          selected = c("A"))))

body <- dashboardBody()

ui <- dashboardPage(dashboardHeader(title = "Example"),
                    sidebar,
                    body
)

server <- function(input, output) {
}

shinyApp(ui, server)
...