R+plotly: view data for highlighte points

Bonus-assignment1.R

# Credit to MLaovie, https://stackoverflow.com/a/50766967/3279307

library(plotly)
library(crosstalk) # update HTML widgets over a common dataset
library(DT)

sd <- SharedData$new(iris) # put your dataframe here

a <- plot_ly(sd, x = ~Sepal.Width, y = ~Petal.Width) %>% 
  add_markers(alpha = 0.5) %>%
  highlight("plotly_selected", dynamic = TRUE)

# options(persistent = TRUE) # or press Shift

p <- datatable(sd) # displays the data in a table

bscols(widths = c(6, 4), a, p) # two widgets side to side