inst/example/shinyColorPal/ui.R

In metrumresearchgroup/shinyCanvas: 'Htmlwidget' that creates a reactive canvas to use in Shiny

shinyUI(
  fluidPage(
  sidebarLayout(
    sidebarPanel(
      shiny::actionButton(inputId = 'redrawBtn',label = 'Draw'),
      canvasOutput('d3',width ='300',height='300'),
      uiOutput('THREE'),
      selectInput('xAxis','Color 1',c('R','G','B'),'R'),
      selectInput('yAxis','Color 2',c('R','G','B'),'G'),
      width=6
      
    ),
    mainPanel(plotOutput("distPlot"),width=6)
  )
))