## ----include = FALSE---------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>", eval = FALSE ) ## ----warning=FALSE, message=FALSE--------------------------------------------- # library(OmopOnSpark) # library(DBI) # library(dplyr) # folder <- file.path(tempdir(), "temp_spark") # working_config <- sparklyr::spark_config() # working_config$spark.sql.warehouse.dir <- folder # sc <- sparklyr::spark_connect(master = "local", # config = working_config) ## ----------------------------------------------------------------------------- # dbListTables(sc) ## ----message=FALSE, warning=FALSE--------------------------------------------- # createOmopTablesOnSpark(sc, schemaName = NULL, cdmVersion = "5.4") ## ----------------------------------------------------------------------------- # dbListTables(sc) ## ----------------------------------------------------------------------------- # tbl(sc, "person") |> # glimpse()