set_sample_view.R

set_sample_view <- function(){
   selectText <- rstudioapi::primary_selection(rstudioapi::getSourceEditorContext())$text
   exprList <- rlang::parse_exprs(selectText)
   w <- get("(")
   exprDF <- exprList[[which(sapply(exprList, function(x) is.data.frame(w(eval(x)))))]]
   invisible(eval(exprDF))
   DT <- data.table::as.data.table(w(eval(exprDF)))
   vdf <- DT[sample(seq_len(.N), size = min(100, .N), replace = FALSE)]
   return(vdf)
}