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