movingwidgets

library(shiny)
library(sortableR)
library(ggplot2)

ui = shinyUI(fluidPage(
      fluidRow(
    column( width = 4
            ,tags$h4("sortableR in Shiny - Moving widgets")
            ,tags$div(id="veryUniqueId", class="list-group"
                      ,tags$div(class="list-group-item", sliderInput("slider", "Slide me:", min = 10, max = 500, value = 275))
                      ,tags$div(class="list-group-item", textInput("text", label = h3("Enter color name:"), value = "dodgerblue"))
                      ,tags$div(class="list-group-item", checkboxInput("checkbox", label = "Add mean line?", value = T))
                      ,tags$div(class="list-group-item", actionButton("goButton", "Go!"),
                                p("Click the button to get a new random sample of the same size."))
                      
                      
            )
    ),sortableROutput( "mySort" ),
  
  column(width = 8,
         wellPanel(  
           plotOutput("myPlot")
  
   )
  ))
)
)


server = function(input,output){
  
  output$mySort <- renderSortableR({
    sortableR("veryUniqueId")
  })
  
  mydata <- reactive({
  
    input$goButton
    vals <- rnorm(input$slider, 35, 15)
  })
  
  
  output$myPlot <- renderPlot({
        
    x <- data.frame(vals = mydata())
    
    g <- ggplot(x, aes(vals)) + geom_bar(color="black", fill=input$text) + theme_bw()
    
    if (input$checkbox==T){ 
    
    g + geom_vline(xintercept=mean(x$vals), lwd=1, lty=2, color="red")
    
    }
    
    else
    
    g
      
    })
}
  
shinyApp(ui=ui,server=server)

Strange on issue 1. I'm really interested in how to to drag/drop variable names using group parameter into a plot for inspection or to change axes. Let me know if you do anything on this.

Thanks so much for trying this out. I'm still trying to wrap my ahead around all the potential.

Great idea about variable name drop ins - hope to try that tomorrow