Skip to content

Instantly share code, notes, and snippets.

@zappingseb

zappingseb/custom_inputs_lessonone.R

Created October 2, 2018 16:45
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save zappingseb/97c4f7f45fa34ec17523b3cbc38ce8ad to your computer and use it in GitHub Desktop.
Save zappingseb/97c4f7f45fa34ec17523b3cbc38ce8ad to your computer and use it in GitHub Desktop.
Download ZIP
Raw
custom_inputs_lessonone.R
library(shiny)
library(glue)
source("DoubleColorPickerInput.R")
ui <- fluidPage(
tags$head(
tags$link(rel = "stylesheet", type = "text/css", href = "spectrum.css"),
tags$script(src="spectrum.js")
),
# Generate a row with a sidebar
sidebarLayout(
# Define the sidebar with one custom input
sidebarPanel(
DoubleColorPickerInput()
),
mainPanel(
)
)
)
server <- function(input, output) {
}
shinyApp(ui, server)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment