#' Transform names according to the snake case style in a fact table
#'
#' Transform foreign keys, measures and fact table names according to the snake
#' case style.
#'
#' @param ft A `fact_table` object.
#'
#' @return A `fact_table` object.
#'
#' @keywords internal
snake_case_fact <- function(ft) {
UseMethod("snake_case_fact")
}
#' @rdname snake_case_fact
#' @export
#' @keywords internal
snake_case_fact.fact_table <- function(ft) {
sep = "_"
attr(ft, "name") <-
snakecase::to_snake_case(attr(ft, "name"), sep_out = sep)
attr(ft, "foreign_keys") <-
snakecase::to_snake_case(attr(ft, "foreign_keys"), sep_out = sep)
attr(ft, "measures") <-
snakecase::to_snake_case(attr(ft, "measures"), sep_out = sep)
attr(ft, "nrow_agg") <-
snakecase::to_snake_case(attr(ft, "nrow_agg"), sep_out = sep)
names(ft) <- snakecase::to_snake_case(names(ft), sep_out = sep)
ft
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.