R语言如何使用shinyjs和bslib显示/隐藏卡片,方法

zpgglvta 于 2023-09-27 发布在其他

关注(0)|答案(1)|浏览(129)

看看下面的shiny应用。它做了我所需要的（有效地切换显示/隐藏每张卡的基础上复选框，input$checkbox），但它不是很D.R.Y.并且将难以扩展和维护。

library(shiny)
library(tidyverse)
library(bslib)
library(shinyjs)

cards <- list(
  card(
    id = "card1",
    card_header("Card 1"),
    plotOutput("card1_plot")
  ),
  card(
    id = "card2",
    card_header("Card 2"),
    plotOutput("card2_plot")
  ),
  card(
    id = "card3",
    card_header("Card 3"),
    plotOutput("card3_plot")
  ),
  card(
    id = "card4",
    card_header("Card 4"),
    plotOutput("card4_plot")
  )
)

ui <- page_sidebar(
  useShinyjs(),
  title = "My Dashboard",
  sidebar = sidebar(
    "Controls",
    checkboxGroupInput("checkbox", "Select Stuff", 
                       choices = c("card1", "card2", "card3", "card4"), 
                       selected = c("card1", "card2", "card3", "card4"))
  ),
  "Main Content Area",
  fillable = FALSE,
  cards
)

server <- function(input, output) {
  
  observeEvent(input$checkbox, {
    if (is.null(input$checkbox)) hide("card1"); hide("card2"); hide("card3"); hide("card4");
    if ("card1" %in% input$checkbox) show("card1") else hide("card1")
    if ("card2" %in% input$checkbox) show("card2") else hide("card2")
    if ("card3" %in% input$checkbox) show("card3") else hide("card3")
    if ("card4" %in% input$checkbox) show("card4") else hide("card4")
  }, ignoreNULL = FALSE)
  
}

shinyApp(ui = ui, server = server)

快速视觉：

有没有办法抽象出对if ("cardXX" %in% input$checkbox) show("cardXX") else hide("cardXX")的多个类似调用？对于if (is.null(input$checkbox))行中对hide("cardXX");的多次调用也是如此吗？

r

来源：https://stackoverflow.com/questions/77073992/how-to-show-hide-cards-in-with-shinyjs-and-bslib-with-a-d-r-y-approach

1条答案

按热度按时间

pbossiut1#

你可以对observeEvent的内容进行矢量化：

card_ids = c("card1", "card2", "card3", "card4")

observeEvent(input$checkbox, {
    lapply(card_ids, function(card) {
        toggle(id = card, condition = card %in% input$checkbox)
    })
}, ignoreNULL = FALSE)

请注意，这里的toggle调用是if () show () else hide ()部分的缩写形式。
关于if (is.null(input$checkbox))条款，如果没有选择任何东西，它将隐藏所有卡，我认为它根本不需要。如果出于某种原因确实需要它，您可以使用所有卡ID都以“card”开头的事实，并将其缩短为

if (is.null(input$checkbox)) hide(selector = "[id^='card']");

完整示例：

library(shiny)
library(tidyverse)
library(bslib)
library(shinyjs)

card_ids = c("card1", "card2", "card3", "card4")

cards <- list(
    card(id = "card1",
         card_header("Card 1"),
         plotOutput("card1_plot")),
    card(id = "card2",
         card_header("Card 2"),
         plotOutput("card2_plot")),
    card(id = "card3",
         card_header("Card 3"),
         plotOutput("card3_plot")),
    card(id = "card4",
         card_header("Card 4"),
         plotOutput("card4_plot"))
)

ui <- page_sidebar(
    useShinyjs(),
    title = "My Dashboard",
    sidebar = sidebar(
        "Controls",
        checkboxGroupInput(
            "checkbox",
            "Select Stuff",
            choices = card_ids,
            selected = card_ids
        )
    ),
    "Main Content Area",
    fillable = FALSE,
    cards
)

server <- function(input, output) {
    
    observeEvent(input$checkbox, {
        lapply(card_ids, function(card) {
            toggle(id = card, condition = card %in% input$checkbox)
        })
    }, ignoreNULL = FALSE)
    
}

shinyApp(ui = ui, server = server)

赞(0）回复(0）举报 2023-09-27

我来回答

R语言如何使用shinyjs和bslib显示/隐藏卡片,方法

1条答案

相关问题

热门标签

最新问答

R语言 如何使用shinyjs和bslib显示/隐藏卡片,方法

1条答案

相关问题

热门标签

最新问答

R语言如何使用shinyjs和bslib显示/隐藏卡片,方法