Nothing
Code
sql_table_analyze(con, in_schema("schema", "tbl"))
Output
<SQL> COLLECT STATISTICS `schema`.`tbl`
Code
mf %>% head() %>% sql_render()
Output
<SQL> SELECT TOP 6 `df`.*
FROM `df`
Code
mf %>% group_by(y) %>% mutate(val2 = lead(x, order_by = x)) %>% sql_render()
Output
<SQL> SELECT `df`.*, LEAD(`x`, 1, NULL) OVER (PARTITION BY `y` ORDER BY `x`) AS `val2`
FROM `df`
Code
mf %>% group_by(y) %>% mutate(val2 = lag(x, order_by = x)) %>% sql_render()
Output
<SQL> SELECT `df`.*, LAG(`x`, 1, NULL) OVER (PARTITION BY `y` ORDER BY `x`) AS `val2`
FROM `df`
Code
mf %>% summarise(wt_mean = weighted.mean(x, y))
Output
<SQL>
SELECT SUM((`x` * `y`)) / SUM(`y`) OVER () AS `wt_mean`
FROM `df`
Code
mf %>% mutate(rown = row_number())
Output
<SQL>
SELECT `df`.*, ROW_NUMBER() OVER (ORDER BY (SELECT NULL)) AS `rown`
FROM `df`
Code
mf %>% group_by(y) %>% mutate(rown = row_number())
Output
<SQL>
SELECT
`df`.*,
ROW_NUMBER() OVER (PARTITION BY `y` ORDER BY (SELECT NULL)) AS `rown`
FROM `df`
Code
mf %>% arrange(y) %>% mutate(rown = row_number())
Output
<SQL>
SELECT `df`.*, ROW_NUMBER() OVER (ORDER BY `y`) AS `rown`
FROM `df`
ORDER BY `y`
Code
lf %>% distinct() %>% head()
Output
<SQL>
SELECT TOP 6 `q01`.*
FROM (
SELECT DISTINCT `df`.*
FROM `df`
) AS `q01`
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.