inst/shiny-test/app1/app.R

In card.pro: Lightweight Modern & Responsive Card Component for 'shiny'

library(shiny)
library(card.pro)


ui <- fluidPage(
  use.cardpro(theme = "a", fix.header = TRUE),
  moveable(
    tags$h2("card.pro package: shiny 2.0 Built to your specifications..."),
    tags$h4(class ="c-purple","drag, resize, rearrage and refresh. your settings preserved!"),
    tags$hr(),
    card.pro(
      tags$p("Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua."),
      progressInput(id="id1", label = "TRACK the progress", striped = TRUE),
      progressInput(id="id2", value = "90%", color = "green"),
      progressInput(id="id3", value = "45%", color = "blue", size = "s"),
      alert.text = "Here is an alert functionality",
      alert.type = "danger",
      tabs = list(
        tabEntry(
          "Main",
          sliderInput("bins",
            "Number of bins:",
            min = 1,
            max = 50,
            value = 30
          )
        ),
        tabEntry(
          "Values",
          textInput("nor1", "Enter name"), "Content for 1",
          textInput("nor1", "Enter name"), "Content for 1",
          actionButton("nor1", "Try click"), "sample"
        )
      ),
      collapsibleGroup = list(
        collapseEntry(title = "Setup collapsible 1", "Convallis aesus."),
        collapseEntry(title = "Setup collapsible2", collapsed = TRUE, "nextGenShinyApps.")
      ),
      title = "Analysis Setup",
      width = 3,
      header.bg = "purple",
      colorbtn = FALSE,
      editbtn = FALSE
    ),
    card.pro(
      plotOutput("distPlot"),
      plotOutput("distPlot2"),
      xtra.header.content = div(class="c-red","Downloading graph..."),
      sidebar = div(
        "Plot settings",
        textInput("testy", "Y-axis title", "Concentration"),
        textInput("testx", "X-axis title", "Time"),
        textInput("dpi", "Image dpi", "300"),
        textInput("strp", "Subset", "NA"),
        actionButton("test3", "Re-graph")
      ),
      title = "Plot output",
      width = 6,
      header.bg = "yellow",
    ),
    card.pro(
      tableOutput("table1"),
      title = "Summary table",
      width = 3,
      header.bg = "red",
      collapsibleGroup = list(
        collapseEntry(title = "Summary 1", collapsed = TRUE, "eiusmod tempor incididunt"),
        collapseEntry(title = "Summary 2", collapsed = TRUE, "Lorem ipsum dolor sit amet")
      ),
      footer = "Here is a sample footer for descriptions"
    )
  )
)

server <- function(input, output) {
  output$table1 <- renderTable({
    head(mtcars)
  })

  output$distPlot <- renderPlot({
    # generate bins based on input$bins from ui.R
    x <- faithful[, 2]
    bins <- seq(min(x), max(x), length.out = input$bins + 1)

    # draw the histogram with the specified number of bins
    hist(x,
      breaks = bins, col = "darkgray", border = "white",
      xlab = input$testx,
      main = input$testy
    )
  })
  output$distPlot2 <- renderPlot({
    # generate bins based on input$bins from ui.R
    x <- faithful[, 2]
    bins <- seq(min(x), max(x), length.out = input$bins + 1)

    plot(bins,quickcode::number(length(bins)))
  })
}
# Run the application
shinyApp(ui = ui, server = server)