1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup, message = FALSE---------------------------------------------------
library(dplyr)
library(dbplyr)
mf <- memdb_frame(x = 1, y = 2)
## -----------------------------------------------------------------------------
mf %>%
mutate(
a = y * x,
b = a ^ 2,
) %>%
show_query()
## -----------------------------------------------------------------------------
mf %>%
mutate(z = foofify(x, y)) %>%
show_query()
mf %>%
filter(x %LIKE% "%foo%") %>%
show_query()
## -----------------------------------------------------------------------------
mf %>%
transmute(factorial = sql("x!")) %>%
show_query()
mf %>%
transmute(factorial = sql("CAST(x AS FLOAT)")) %>%
show_query()
|
