inst/app-example/app.R

In dreamRs/wired: Wired Elements in Shiny

library(shiny)
library(ggplot2)
library(xkcd)
library(wired)

options("GloriaHallelujah" = TRUE)

ui <- fluidPage(
  tags$h2("Wired Distribution"),
  fluidRow(
    column(
      width = 4,
      wired_card(
        width = "100%",
        wired_radio(
          inputId = "dist", label = "Distribution:",
          choices = c("Normal" = "norm",
                      "Uniform" = "unif",
                      "Log-normal" = "lnorm",
                      "Exponential" = "exp")
        ),
        wired_slider(
          inputId = "n", label = "Number of observations:",
          min = 50, value = 100, max = 300
        ),
        wired_toggle(inputId = "log", label = "Use log scale"),
        wired_button(
          inputId = "wired",
          label = tags$a(
            "Made with the JavaScript Wired library",
            href = "https://wiredjs.com/"
          ),
          width = "100%"
        )
      )
    ),
    column(
      width = 8,
      verbatimTextOutput(outputId = "res"),
      plotOutput(outputId = "plot"),
      tags$span("Plot made with the", tags$code("xkcd"), "package.")
    )
  )
)

server <- function(input, output, session) {

  output$res <- renderPrint({
    inp <- reactiveValuesToList(input)
    str(inp)
  })

  d <- reactive({
    req(input$n > 0)
    dist <- switch(
      input$dist,
      norm = rnorm,
      unif = runif,
      lnorm = rlnorm,
      exp = rexp,
      rnorm
    )

    data.frame(x = dist(floor(input$n)))
  })

  # output$plot <- renderPlot({
  #   h <- ggplot(d()) + geom_histogram(aes(x))
  #
  #   if (input$log)
  #     h <- h + scale_x_log10()
  #   ggplot() +
  #     xkcdrect(
  #       mapping = aes(
  #         xmin = xmin,
  #         xmax = xmax,
  #         ymin = 0,
  #         ymax = count
  #       ),
  #       data = layer_data(h),
  #       fill = "steelblue", colour = "black"
  #     ) +
  #     theme_minimal()
  # })

}

shinyApp(ui, server)