Brushing includes NA valued rows

[McClellandLegge]

Rows that have NA values for plotting variables are excluded from the plot but are returned by event_data with spurious x and y coordinates with brushing.

library(shiny)
library(plotly)


adds <- mtcars[1:5, ]
adds[, c(1, 6)] <- NA
rownames(adds) <- paste(rownames(adds), "(NA)")
some_null_cars <- rbind(mtcars, adds)

ui <- fluidPage(
  radioButtons("plotType", "Plot Type:", choices = c("ggplotly", "plotly")),
  plotlyOutput("plot"),
  verbatimTextOutput("brush")
)

server <- function(input, output, session) {

  output$plot <- renderPlotly({
    # use the key aesthetic/argument to help uniquely identify selected observations
    key <- row.names(some_null_cars)
    if (identical(input$plotType, "ggplotly")) {
      p <- ggplot(some_null_cars, aes(x = mpg, y = wt, colour = factor(vs), key = key)) + 
        geom_point()
      ggplotly(p) %>% layout(dragmode = "select")
    } else {
      plot_ly(some_null_cars, x = mpg, y = wt, key = key, mode = "markers") %>%
        layout(dragmode = "select")
    }
  })

  output$brush <- renderPrint({
    d <- event_data("plotly_selected")
    if (is.null(d)) "Click and drag events (i.e., select/lasso) appear here (double-click to clear)" else d
  })
}

shinyApp(ui, server, options = list(display.mode = "showcase"))


> devtools::session_info()
Session info ----------------------------------------------------------------------------------------------------------------
  setting  value                       
version  R version 3.2.5 (2016-04-14)
system   x86_64, mingw32             
ui       RStudio (0.99.879)          
language (EN)                        
collate  English_United States.1252  
tz       America/Chicago             
date     2016-05-23                  

Packages --------------------------------------------------------------------------------------------------------------------
  package       * version date       source        
assertthat      0.1     2013-12-06 CRAN (R 3.2.5)
base64enc       0.1-3   2015-07-28 CRAN (R 3.2.3)
chron           2.3-47  2015-06-24 CRAN (R 3.2.5)
colorspace      1.2-6   2015-03-11 CRAN (R 3.2.5)
data.table    * 1.9.6   2015-09-19 CRAN (R 3.2.5)
DBI             0.4-1   2016-05-08 CRAN (R 3.2.5)
devtools      * 1.10.0  2016-01-23 CRAN (R 3.2.4)
digest          0.6.9   2016-01-08 CRAN (R 3.2.5)
dplyr           0.4.3   2015-09-01 CRAN (R 3.2.5)
DT            * 0.1     2015-06-09 CRAN (R 3.2.5)
ggplot2       * 2.1.0   2016-03-01 CRAN (R 3.2.5)
gridExtra       2.2.1   2016-02-29 CRAN (R 3.2.5)
gtable          0.2.0   2016-02-26 CRAN (R 3.2.5)
htmltools       0.3.5   2016-03-21 CRAN (R 3.2.5)
htmlwidgets     0.6     2016-02-25 CRAN (R 3.2.5)
httpuv          1.3.3   2015-08-04 CRAN (R 3.2.5)
httr            1.1.0   2016-01-28 CRAN (R 3.2.5)
jsonlite        0.9.20  2016-05-10 CRAN (R 3.2.5)
labeling        0.3     2014-08-23 CRAN (R 3.2.3)
magrittr        1.5     2014-11-22 CRAN (R 3.2.5)
memoise         0.2.1   2014-04-22 CRAN (R 3.2.2)
mime            0.4     2015-09-03 CRAN (R 3.2.3)
munsell         0.4.3   2016-02-13 CRAN (R 3.2.5)
packrat         0.4.6-1 2015-11-05 CRAN (R 3.2.5)
plotly        * 3.6.0   2016-05-18 CRAN (R 3.2.5)
plyr            1.8.3   2015-06-12 CRAN (R 3.2.5)
R6              2.1.2   2016-01-26 CRAN (R 3.2.5)
Rcpp            0.12.5  2016-05-14 CRAN (R 3.2.5)
reshape2      * 1.4.1   2014-12-06 CRAN (R 3.2.5)
rJava           0.9-8   2016-01-07 CRAN (R 3.2.3)
scales          0.4.0   2016-02-26 CRAN (R 3.2.5)
shiny         * 0.13.2  2016-03-28 CRAN (R 3.2.5)
stringi         1.0-1   2015-10-22 CRAN (R 3.2.3)
stringr         1.0.0   2015-04-30 CRAN (R 3.2.5)
tidyr           0.4.1   2016-02-05 CRAN (R 3.2.5)
viridis         0.3.4   2016-03-12 CRAN (R 3.2.5)
XLConnect     * 0.2-11  2015-03-01 CRAN (R 3.2.5)
XLConnectJars * 0.2-9   2014-08-14 CRAN (R 3.2.3)
xtable          1.8-0   2015-11-02 CRAN (R 3.2.5)
yaml            2.1.13  2014-06-12 CRAN (R 3.2.5)

[cpsievert]

This doesn't appear to be an issue anymore