diff --git a/R/waffle.R b/R/waffle.R index 2a569cf..7df06d9 100644 --- a/R/waffle.R +++ b/R/waffle.R @@ -16,10 +16,6 @@ #' @return A waffle chart #' #' @export -#' -#' @example -#' df <- data.frame(category = c("Category 1", "Category 2", "Category 3"),proportion = c(15, 55, 30)) -#' waffle(df, category, proportion, x_title = "A caption", title = "A title", subtitle = "A subtitle") waffle <- function(df, x, y, @@ -36,7 +32,7 @@ waffle <- function(df, axis_y = FALSE, legend_position = "bottom", legend_direction = "horizontal", - hjust = 0.5)){ + title_hjust = 0.5)){ # A basic and not robust check # - add check between 0 and 1