data-raw/df.R

In dylanrussellmd/nsqipPancreatectomy: What the Package Does (One Line, Title Case)

#con <- DBI::dbConnect(
#  bigrquery::bigquery(),
#  project = "numeric-pilot-279119",
#  dataset = "nsqip"
#)

#puf <- dplyr::tbl(con, "puf")
#pan <- dplyr::tbl(con, "pan")

# Sort for CPT codes (48140 = "Pancreatectomy, distal subtotal, with or without splenectomy; without pancreaticojejunostomy")
#df <- puf %>% dplyr::filter(cpt == "48140") %>% dplyr::left_join(., pan, by = c("caseid", "pufyear")) %>% dplyr::collect()

df <- readr::read_csv("inst/extdata/df.csv", guess_max = 30000)

usethis::use_data(df, overwrite = TRUE)