remove_card: Remove a card in a Shuffle grid

In dreamRs/shufflecards: Filter and Sort Grid Layouts in 'Shiny' and 'Markdown'

Description

Use in a Shiny app to remove a card from layout.

Usage

remove_card(shuffleId, cardId, session = shiny::getDefaultReactiveDomain())

Arguments

shuffleId	The id of the shuffle container.
cardId	The id of the card to remove.
session	The session object passed to function given to shinyServer.

Examples

if (interactive()) {
  library(shiny)
  library(shufflecards)

  ui <- fluidPage(
    tags$h2("Remove a card"),
    selectInput(
      inputId = "select",
      label = "Select card to remove",
      choices = paste0("card", 1:4)
    ),
    actionButton("remove", "Remove it!"),
    shuffle_container(
      shuffleId = "grid",
      shuffle_card(
        id = "card1",
        tags$div("My first card", style = "text-align: center; line-height: 200px"),
        style = "border: 2px solid red; border-radius: 5px;",
        width = "300px", # better with fixed width/height
        height = "200px"
      ),
      shuffle_card(
        id = "card2",
        tags$div("Second one", style = "text-align: center; line-height: 200px"),
        style = "border: 2px solid red; border-radius: 5px;",
        width = "300px", # better with fixed width/height
        height = "200px"
      ),
      shuffle_card(
        id = "card3",
        tags$div("Third one", style = "text-align: center; line-height: 200px"),
        style = "border: 2px solid red; border-radius: 5px;",
        width = "300px", # better with fixed width/height
        height = "200px"
      ),
      shuffle_card(
        id = "card4",
        tags$div("Fourth one", style = "text-align: center; line-height: 200px"),
        style = "border: 2px solid red; border-radius: 5px;",
        width = "300px", # better with fixed width/height
        height = "200px"
      )
    )
  )

  server <- function(input, output, session) {
    observeEvent(input$remove, {
      remove_card("grid", input$select)
    }, ignoreInit = TRUE)
  }

  shinyApp(ui, server)
}

dreamRs/shufflecards documentation built on Dec. 4, 2019, 4:44 a.m.