https://github.com/RinteRface/flipCards

Rotating cards with Bootstrap
https://github.com/RinteRface/flipCards

Last synced: 5 months ago
JSON representation

Rotating cards with Bootstrap

• Host: GitHub
• URL: https://github.com/RinteRface/flipCards
• Owner: RinteRface
• Created: 2019-06-19T05:39:21.000Z (almost 6 years ago)
• Default Branch: master
• Last Pushed: 2019-06-21T16:52:27.000Z (almost 6 years ago)
• Last Synced: 2024-11-11T23:15:26.406Z (5 months ago)
• Language: CSS
• Size: 33.2 KB
• Stars: 6
• Watchers: 4
• Forks: 1
• Open Issues: 1
• Metadata Files:
  • Readme: README.md

Awesome Lists containing this project

• jimsghstars - RinteRface/flipCards - Rotating cards with Bootstrap (CSS)

README

        
# flipCards

[![CRAN status](https://www.r-pkg.org/badges/version/flipCards)](https://cran.r-project.org/package=flipCards)

[![Travis build status](https://travis-ci.org/RinteRface/flipCards.svg?branch=master)](https://travis-ci.org/RinteRface/flipCards)

[![AppVeyor build status](https://ci.appveyor.com/api/projects/status/github/RinteRface/flipCards?branch=master&svg=true)](https://ci.appveyor.com/project/RinteRface/flipCards)

> Rotating cards with Bootstrap 

## Demonstration

```r

library(shiny)

library(flipCards)

 

 shinyApp(

  ui = fluidPage(

    flipCard(

      front = tagList(

        numericInput("n", "n", 1),

        plotOutput("plot")

      ),

      flip_cover = flipCover("https://image.flaticon.com/icons/svg/186/186236.svg"),

      flip_user = flipUser("https://image.flaticon.com/icons/svg/145/145867.svg"),

      front_footer = "I am the front footer",

      back = tagList(

        checkboxGroupInput(

          inline = TRUE,

          "variable",

          "Variables to show:",

          c("Cylinders" = "cyl",

            "Transmission" = "am",

            "Gears" = "gear")

        ),

        tableOutput("data")

      ),

      back_footer = "This is the back footer"

    )

  ),

  server = function(input, output) {

    output$plot <- renderPlot( plot(head(cars, input$n)) )

    output$data <- renderTable({

      mtcars[, c("mpg", input$variable), drop = FALSE]

    }, rownames = TRUE)

  }

 )

```