use size in args_inner also

jgabry · jgabry · commit 6d5bfdc1ba90 · 2020-10-23T13:53:59.000-06:00
diff --git a/R/mcmc-intervals.R b/R/mcmc-intervals.R
@@ -522,6 +522,10 @@ mcmc_areas_ridges <- function(x,
         scale = scale,
         stat = "identity")
 
+    if (!is.null(size)) {
+      args_inner$size <- size
+    }
+
     layer_list_inner[[par_num]] <- do.call(ggridges::geom_ridgeline, args_inner)
   }
 

Original file line number	Diff line number	Diff line change
`@@ -522,6 +522,10 @@ mcmc_areas_ridges <- function(x,`
`522`	`522`	`scale = scale,`
`523`	`523`	`stat = "identity")`
`524`	`524`
	`525`	`+ if (!is.null(size)) {`
	`526`	`+ args_inner$size <- size`
	`527`	`+ }`
	`528`	`+`
`525`	`529`	`layer_list_inner[[par_num]] <- do.call(ggridges::geom_ridgeline, args_inner)`
`526`	`530`	`}`
`527`	`531`