R/get_clicked.R

In padpadpadpad/dataViewer: RStudio Addin for viewing data and identifying outliers

#' subsets the rows in the data that were selected in dataViewer
#'
#' subsets the rows in the data that were selected in dataViewer
#'
#' @param data the dataframe
#' @param clicked_data the dataframe of clicked points
#' @export

get_clicked <- function(data, clicked_data){
  x.1p <- do.call("paste", data)
  x.2p <- do.call("paste", clicked_data)
  data[x.1p %in% x.2p, ]
}