measure_file <- tempfile(fileext = ".R")
writeLines(
c(
"#' Revenue by region",
"#'",
"#' @param region `string` Sales region.",
"#' @measure",
"revenue_by_region <- function(region, warehouse) {",
" DBI::dbGetQuery(",
" warehouse,",
" 'SELECT sum(revenue) AS revenue FROM sales WHERE region = ?',",
" params = list(region)",
" )",
"}"
),
measure_file
)
layer <- semantic_layer(measure_file)
unlink(measure_file)
Run the code above in your browser using DataLab