## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(
  echo = TRUE,
  error = Sys.getenv("IN_PKGDOWN") != "true" || (getRversion() < "3.5"),
  # FIXME: Bring back when relational.fit clone is up
  eval = FALSE
)

## -----------------------------------------------------------------------------
#  library(DBI)
#  
#  con <- dbConnect(
#    RMariaDB::MariaDB(),
#    host = "relational.fit.cvut.cz",
#    port = 3306,
#    username = "guest",
#    password = "relational",
#    dbname = "sakila"
#  )
#  
#  dbListTables(con)
#  dbDisconnect(con)

## ----eval = FALSE-------------------------------------------------------------
#  con <- dbConnect(
#    RMariaDB::MariaDB(),
#    host = "relational.fit.cvut.cz",
#    port = 3306,
#    username = "guest",
#    password = keyring::key_get("relational.fit.cvut.cz", "guest"),
#    dbname = "sakila"
#  )

## -----------------------------------------------------------------------------
#  con <- dbConnect(RMariaDB::MariaDB(), username = "guest", password = "relational", host = "relational.fit.cvut.cz", port = 3306, dbname = "sakila")
#  dbListFields(con, "film")

## -----------------------------------------------------------------------------
#  df <- dbReadTable(con, "film")
#  head(df, 3)

## -----------------------------------------------------------------------------
#  df <- dbGetQuery(con, "SELECT film_id, title, description FROM film WHERE release_year = 2006")
#  head(df, 3)

## -----------------------------------------------------------------------------
#  df <- dbGetQuery(con, "SELECT film_id, title, description FROM film WHERE release_year = 2006 AND rating = 'G'")
#  head(df, 3)

## ----message=FALSE------------------------------------------------------------
#  library(dplyr)
#  
#  lazy_df <-
#    tbl(con, "film") %>%
#    filter(release_year == 2006 & rating == "G") %>%
#    select(film_id, title, description)
#  head(lazy_df, 3)

## -----------------------------------------------------------------------------
#  dbDisconnect(con)