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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
# case_when converted to CASE WHEN
Code
test_translate_sql(case_when(x > 1L ~ "a"))
Output
<SQL> CASE WHEN (`x` > 1) THEN 'a' END
# even inside mutate
Code
out$select[[2]]
Output
[1] "CASE WHEN (`x` > 1) THEN 'a' END"
# case_when translates correctly to ELSE when TRUE ~ is used 2
Code
test_translate_sql(case_when(x == 1L ~ "yes", x == 0L ~ "no", TRUE ~
"undefined"))
Output
<SQL> CASE WHEN (`x` = 1) THEN 'yes' WHEN (`x` = 0) THEN 'no' ELSE 'undefined' END
# case_when uses the .default arg
Code
test_translate_sql(case_when(x == 1L ~ "yes", x == 0L ~ "no", .default = "undefined"))
Output
<SQL> CASE WHEN (`x` = 1) THEN 'yes' WHEN (`x` = 0) THEN 'no' ELSE 'undefined' END
---
Code
test_translate_sql(case_when(x == 1L ~ "yes", x == 0L ~ "no", .default = x + 1))
Output
<SQL> CASE WHEN (`x` = 1) THEN 'yes' WHEN (`x` = 0) THEN 'no' ELSE `x` + 1.0 END
---
Code
test_translate_sql(case_when(x == 1L ~ "yes", x == 0L ~ "no", TRUE ~ "true",
.default = "undefined"))
Output
<SQL> CASE WHEN (`x` = 1) THEN 'yes' WHEN (`x` = 0) THEN 'no' ELSE 'true' END
# case_when does not support .ptype and .size
Code
(expect_error(test_translate_sql(case_when(x == 1L ~ "yes", .ptype = character())))
)
Output
<error/rlang_error>
Error in `case_when()`:
! Argument `.ptype` isn't supported on database backends.
Code
(expect_error(test_translate_sql(case_when(x == 1L ~ "yes", .size = 1))))
Output
<error/rlang_error>
Error in `case_when()`:
! Argument `.size` isn't supported on database backends.
# long case_when is on multiple lines
Code
test_translate_sql(case_when(x == 1L ~ "this is long", x == 0L ~ "so it should",
TRUE ~ "be wrapped"))
Output
<SQL> CASE
WHEN (`x` = 1) THEN 'this is long'
WHEN (`x` = 0) THEN 'so it should'
ELSE 'be wrapped'
END
# conditionals check arguments
Code
test_translate_sql(case_when())
Condition
Error in `sql_case_when()`:
! No cases provided
---
Code
test_translate_sql(switch(x, 1L, 2L))
Condition
Error in `sql_switch()`:
! Can only have one unnamed (ELSE) input
# LHS can handle bang bang
Code
test_translate_sql(case_match(x, !!1L ~ "x"))
Output
<SQL> CASE WHEN (`x` IN (1)) THEN 'x' END
Code
test_translate_sql(case_match(x, !!c(1L, 2L) ~ "x"))
Output
<SQL> CASE WHEN (`x` IN (1, 2)) THEN 'x' END
Code
test_translate_sql(case_match(x, !!c(NA, 1L) ~ "x"))
Output
<SQL> CASE WHEN (`x` IN (1) OR `x` IS NULL) THEN 'x' END
# requires at least one condition
Code
test_translate_sql(case_match(x))
Condition
Error in `case_match()`:
! No cases provided
---
Code
test_translate_sql(case_match(x, NULL))
Condition
Error in `case_match()`:
! No cases provided
# `.ptype` not supported
Code
(expect_error(test_translate_sql(case_match(x, 1 ~ 1, .ptype = integer()))))
Output
<error/rlang_error>
Error in `case_match()`:
! Argument `.ptype` isn't supported on database backends.
# .x must be a symbol
Code
(expect_error(test_translate_sql(case_match(1, 1 ~ 1))))
Output
<error/rlang_error>
Error in `case_match()`:
! `.x` must be a variable or function call, not a number.
|
