summary.R
In replyr: Patches to Use 'dplyr' on Remote Data Sources

## ---- echo = FALSE--------------------------------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = " # "
)
options(width =100)

## ----example--------------------------------------------------------------------------------------

d <- data.frame(x=c(NA,'b'), y=c(1,NA), stringsAsFactors= FALSE)

summary(d)

replyr::replyr_summary(d)

execute_vignette <- requireNamespace("RSQLite", quietly = TRUE)
if(execute_vignette) {
  my_db <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
  RSQLite::initExtension(my_db)
  dbData <- dplyr::copy_to(my_db, d)
  
  summary(dbData)
  
  replyr::replyr_summary(dbData)
  
  # glimpse works more like str or head
  dplyr::glimpse(dbData)
}


## ----cleanup--------------------------------------------------------------------------------------
DBI::dbDisconnect(my_db)
rm(list=ls())
gc()