Added arg to center title

This commit is contained in:
gnoblet 2023-05-28 15:40:48 +02:00
parent 9e6bfa2eb7
commit 73e3fa7c5d

View file

@ -16,10 +16,6 @@
#' @return A waffle chart #' @return A waffle chart
#' #'
#' @export #' @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, waffle <- function(df,
x, x,
y, y,
@ -36,7 +32,7 @@ waffle <- function(df,
axis_y = FALSE, axis_y = FALSE,
legend_position = "bottom", legend_position = "bottom",
legend_direction = "horizontal", legend_direction = "horizontal",
hjust = 0.5)){ title_hjust = 0.5)){
# A basic and not robust check # A basic and not robust check
# - add check between 0 and 1 # - add check between 0 and 1