[skip style] [skip vbump] Restyle files

Author: github-actions[bot]

R/utils.R

@@ -374,10 +374,10 @@ select_decorators <- function(decorators, scope) {
 #' @importFrom utils modifyList
 #' @keywords internal
 set_chunk_attrs <- function(teal_card,
-                           attributes,
-                           n = 1,
-                           inner_classes = NULL,
-                           quiet = FALSE) {
+                            attributes,
+                            n = 1,
+                            inner_classes = NULL,
+                            quiet = FALSE) {
   checkmate::assert_class(teal_card, "teal_card")
   checkmate::assert_list(attributes, names = "unique")
   checkmate::assert_int(n, lower = 1)
@@ -417,29 +417,29 @@ set_chunk_attrs <- function(teal_card,
 }
 
 #' Create a reactive that sets plot dimensions on a teal_card
-#' 
+#'
 #' This is a convenience function that creates a reactive expression that
 #' automatically sets the dev.width and dev.height attributes on the last
 #' chunk outputs of a teal_card based on plot dimensions from a plot widget.
-#' 
+#'
 #' @param pws (`plot_widget`) plot widget that provides dimensions via `dim()` method
 #' @param decorated_output_q (`reactive`) reactive expression that returns a teal_card
 #' @param inner_classes (`character`) classes within `chunk_output` that should be modified.
 #' This can be used to only change `recordedplot`, `ggplot2` or other type of objects.
-#' 
+#'
 #' @return A reactive expression that returns the teal_card with updated dimensions
-#' 
+#'
 #' @keywords internal
 set_chunk_dims <- function(pws, decorated_output_q, inner_classes = NULL) {
   checkmate::assert_class(pws, "plot_widget")
   checkmate::assert_class(decorated_output_q, "reactive")
   checkmate::assert_character(inner_classes, null.ok = TRUE)
-  
+
   reactive({
     dims <- req(pws$dim())
     q <- req(decorated_output_q())
     teal.reporter::teal_card(q) <- set_chunkt_attrs(
-      teal.reporter::teal_card(q), 
+      teal.reporter::teal_card(q),
       list(dev.width = dims[[1]], dev.height = dims[[2]]),
       inner_classes = inner_classes
     )