inst/examples/bivar/ui.R

In shinyRGL: Shiny Wrappers for RGL

library(shiny)
library(shinyRGL)

#' Define UI for application that replicated the 'bivar' rgl example
#' @author Jeff Allen \email{jeff@@trestletech.com}
shinyUI(pageWithSidebar(
  
  # Application title
  headerPanel("Shiny bivar WebGL!"),
  
  # Sidebar with a slider input for number of points
  sidebarPanel(
    sliderInput("pts", 
                "Number of points:", 
                min = 25, 
                max = 1000, 
                value = 100),
    HTML("<hr />"),
    helpText(HTML("Created using <a href = \"http://github.com/trestletech/shinyRGL\">shinyRGL</a>. <p>Example based on 'bivar' example by Daniel Adler."))
  ),
  
  # Show the generated 3d bivar plot
  mainPanel(
    webGLOutput("bivar")
  )
))