isop-phmx / ggplot-shiny Goto Github PK

Warning in validateSelected(selected, choices, inputId) :
  'selected' must be the values instead of names of 'choices' for the input 'facet_col'
Warning in validateSelected(selected, choices, inputId) :
  'selected' must be the values instead of names of 'choices' for the input 'facet_row'
output file: /var/folders/w7/cmnsdwfs30d6qc0ww6cypbb00000gn/T//Rtmp1DxppV/GGPLOTSHINY.knit.md

NULL
Warning in min(data2[, input$x_input]) :
  no non-missing arguments to min; returning Inf
Warning in max(data2[, input$x_input]) :
  no non-missing arguments to max; returning -Inf
Warning in min(data2[, input$y_input]) :
  no non-missing arguments to min; returning Inf
Warning in max(data2[, input$y_input]) :
  no non-missing arguments to max; returning -Inf
Warning in is.na(plotdata[, input$y_input]) :
  is.na() applied to non-(list or vector) of type 'NULL'
NULL
Warning in is.na(plotdata[, input$y_input]) :
  is.na() applied to non-(list or vector) of type 'NULL'
NULL
Warning in is.na(plotdata[, input$y_input]) :
  is.na() applied to non-(list or vector) of type 'NULL'
NULL
Warning in is.na(plotdata[, input$y_input]) :
  is.na() applied to non-(list or vector) of type 'NULL'

Error in `[.data.frame`(plotdata, , input$y_input) : 
  undefined columns selected
Warning: Unhandled error in observer: undefined columns selected
observe({
    inputx <- input$x_input
    data2 <- myData()
    val1 <- min(min(data2[, input$x_input]), 0)
    val2 <- max(data2[, input$x_input])
    val <- c(val1, val2)
    updateSliderInput(session, "receivex", value = val, min = val1, 
        max = val2, step = (val2 - val1)/10)
})
Warning: Unhandled error in observer: undefined columns selected
observe({
    inputx <- input$y_input
    data2 <- myData()
    val1 <- min(min(data2[, input$y_input]), 0)
    val2 <- max(data2[, input$y_input])
    val <- c(val1, val2)
    updateSliderInput(session, "receivey", value = val, min = val1, 
        max = val2, step = (val2 - val1)/10)
})