simplify extractors

IndrajeetPatil · Dec 21, 2023 · f9ac60d · f9ac60d
1 parent d598e75
commit f9ac60d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/extract-stats.R b/R/extract-stats.R
@@ -65,8 +65,8 @@ extract_stats <- function(p, ...) {
 
 #' @rdname extract_stats
 #' @export
-extract_subtitle <- function(p) extract_stats(p)$subtitle_data$expression[[1L]]
+extract_subtitle <- function(p) purrr::pluck(extract_stats(p), "subtitle_data", "expression", 1L)
 
 #' @rdname extract_stats
 #' @export
-extract_caption <- function(p) extract_stats(p)$caption_data$expression[[1L]]
+extract_caption <- function(p) purrr::pluck(extract_stats(p), "caption_data", "expression", 1L)