Add reactR colorpicker input example

157-reactr-colorpicker/.gitignore

@@ -0,0 +1,4 @@
+node_modules
+.Rproj.user
+*.swp
+.Rhistory

157-reactr-colorpicker/README.md

@@ -0,0 +1,8 @@
+This project was extracted from
+[react-R/colorpicker-example](https://github.com/react-R/colorpicker-example)
+
+Built JavaScript is checked in. If you ever need to rebuild it, you can do so
+with:
+
+1. `yarn install`
+1. `yarn run webpack`

157-reactr-colorpicker/app.R

@@ -0,0 +1,54 @@
+library(shiny)
+
+capitalize <- function(s) {
+  gsub("^(.)", perl = TRUE, replacement = '\\U\\1', s)
+}
+
+colorpickerInput <- function(inputId,
+                             defaultColor = "#fff",
+                             type = c(
+                               "sketch",
+                               "alpha",
+                               "block",
+                               "chrome",
+                               "circle",
+                               "compact",
+                               "github",
+                               "hue",
+                               "material",
+                               "photoshop",
+                               "slider",
+                               "swatches",
+                               "twitter"
+                             )) {
+  color <- restoreInput(id = inputId, default = defaultColor)
+  type <- paste0(capitalize(match.arg(type)), "Picker")
+  reactR::createReactShinyInput(
+    inputId,
+    "colorpicker",
+    htmltools::htmlDependency(
+      name = "colorpicker-input",
+      version = "1.0.0",
+      src = file.path(getwd(), "js"),
+      script = "colorpicker.js"
+    ),
+    color,
+    list(type = type),
+    tags$div
+  )
+}
+
+ui <- fluidPage(
+  titlePanel("reactR Colorpicker Example"),
+  tags$p("A colorpicker should appear below. You should be able to select colors and see their hex values appear in the text output."),
+  colorpickerInput("textInput", type = "sketch"),
+  textOutput("textOutput")
+)
+
+server <- function(input, output, session) {
+  output$textOutput <- renderText({
+    sprintf("You entered: %s", input$textInput)
+  })
+}
+
+shinyApp(ui, server)