fixed tag_levels issue of plot_list when ggplot2 > 3.5.2

Author: xiangpin

NAMESPACE

@@ -45,6 +45,7 @@ importFrom(ggplot2,element_text)
 importFrom(ggplot2,ggplot)
 importFrom(ggplot2,ggplotGrob)
 importFrom(ggplot2,ggplot_add)
+importFrom(ggplot2,ggplot_build)
 importFrom(ggplot2,ggsave)
 importFrom(ggplot2,is.ggplot)
 importFrom(ggplot2,labs)
@@ -67,5 +68,4 @@ importFrom(patchwork,plot_annotation)
 importFrom(patchwork,plot_layout)
 importFrom(patchwork,plot_spacer)
 importFrom(pillar,style_subtle)
-importFrom(utils,modifyList)
 importFrom(utils,packageDescription)

R/plot-list.R

@@ -22,7 +22,6 @@
 ##' @importFrom ggplot2 theme
 ##' @importFrom ggplot2 element_text
 ##' @importFrom ggplot2 labs
-##' @importFrom utils modifyList
 ##' @importFrom ggfun ggbreak2ggplot
 ##' @export
 ##' @author Guangchuang Yu
@@ -93,7 +92,7 @@ plot_list <- function(..., gglist = NULL,
 
 
 
-
+#' @importFrom ggplot2 ggplot_build
 plot_list2 <- function(gglist = NULL,
                       ncol = NULL, 
                       nrow = NULL, 
@@ -117,11 +116,11 @@ plot_list2 <- function(gglist = NULL,
                     )
 
     if (!is.null(tag_levels) || !is.null(labels)) {
-        pt <- p$theme$plot.tag
+        pt <- ggplot_build(p)$plot$theme$plot.tag
         if (is.null(pt)){
             pt <- ggplot2::element_text()
         }
-        pt <- modifyList(pt, list(size = tag_size))
+        pt$size <- tag_size
         p <- p + plot_annotation(tag_levels=tag_levels) &
             theme(plot.tag = pt)
     }