diff --git a/R/autoplot-density.R b/R/autoplot-density.R index ab6cf201..0591f0e1 100644 --- a/R/autoplot-density.R +++ b/R/autoplot-density.R @@ -68,7 +68,7 @@ tidy_autoplot <- function(.data, .plot_type = "density", .line_size = .5, .point if(!attributes(.data)$tibble_type %in% c( "tidy_gaussian", "tidy_poisson","tidy_gamma","tidy_beta","tidy_f", "tidy_hypergeometric","tidy_lognormal","tidy_cauchy","tidy_chisquare", - "tidy_weibull","tidy_uniform","tidy_logistic" + "tidy_weibull","tidy_uniform","tidy_logistic","tidy_exponential" )){ rlang::abort("The data passed must come from a `tidy_` distribution function.") } @@ -117,6 +117,8 @@ tidy_autoplot <- function(.data, .plot_type = "density", .line_size = .5, .point paste0("Max: ", atb$.max, " - Min: ", atb$.min) } else if(atb$tibble_type == "tidy_logistic"){ paste0("Location: ", atb$.location, " - Scale: ", atb$.scale) + } else if(atb$tibble_type == "tidy_exponential"){ + paste0("Rate: ", atb$.rate) } )