# NOT RUN {
library(dplyr)
library(dbplyr)
con <- simulate_mssql()
query <- pivot_query( ident('##iris'), key = ident('Species')
, levels = ident(c('setosa', 'virginica', 'versicolor'))
, value = rlang::quo(mean(Petal.Length, na.rm=TRUE))
)
sql_render(query, con=con)
# }
Run the code above in your browser using DataLab