air format that

Author: davidgohel

R/facet_interactive.R

@@ -214,7 +214,11 @@ label_data_to_wrap <- function(layout, gtab_layout, facets) {
 
   ## ordering
   # create a fake key in gtab_layout
-  gtab_layout$layout_key <- gsub("(.*?)([0-9]+-[0-9]+)", "\\2", gtab_layout$name)
+  gtab_layout$layout_key <- gsub(
+    "(.*?)([0-9]+-[0-9]+)",
+    "\\2",
+    gtab_layout$name
+  )
   # create a fake key in layout
   layout$layout_key <- paste(layout$COL, layout$ROW, sep = "-")
   layout$layout_key <- factor(

R/fonts.R

@@ -154,7 +154,10 @@ extract_family_names_regex <- function(lines) {
 
   # Pattern for @font-face
   fontface_pattern <- "@font-face\\s*\\{[^}]+\\}"
-  fontface_blocks <- regmatches(css_text, gregexpr(fontface_pattern, css_text, perl = TRUE))[[1]]
+  fontface_blocks <- regmatches(
+    css_text,
+    gregexpr(fontface_pattern, css_text, perl = TRUE)
+  )[[1]]
 
   if (length(fontface_blocks) == 0) {
     return(character())
@@ -210,7 +213,9 @@ list_families_from_dependencies <- function(dependencies) {
 
 fonts_checking_registered <- function(family_list) {
   datafonts <- sys_fonts()
-  missing_family_list <- family_list[!tolower(family_list) %in% tolower(datafonts$family)]
+  missing_family_list <- family_list[
+    !tolower(family_list) %in% tolower(datafonts$family)
+  ]
 
   if (length(missing_family_list) > 0) {
     cli::cli_abort(c(
@@ -239,4 +244,3 @@ fonts_checking_dependencies <- function(dependencies, family_list) {
     )
   }
 }
-

R/geom_quasirandom_interactive.R

@@ -25,4 +25,3 @@ geom_quasirandom_interactive <- function(...) {
     interactive_geom = GeomInteractivePoint
   )
 }
-

R/geom_ribbon_interactive.R

@@ -42,13 +42,21 @@ GeomInteractiveRibbon <- ggproto(
     polygon_child_index <- which(grepl("polygon", names(grtree$children)))[1]
     if (length(polygon_child_index) == 1L && is.finite(polygon_child_index)) {
       grtree$children[[polygon_child_index]] <-
-        add_interactive_attrs(grtree$children[[polygon_child_index]], aes, ipar = .ipar)
+        add_interactive_attrs(
+          grtree$children[[polygon_child_index]],
+          aes,
+          ipar = .ipar
+        )
     }
 
     polyline_child_index <- which(grepl("polyline", names(grtree$children)))[1]
     if (length(polyline_child_index) == 1L && is.finite(polyline_child_index)) {
       grtree$children[[polyline_child_index]] <-
-        add_interactive_attrs(grtree$children[[polyline_child_index]], aes, ipar = .ipar)
+        add_interactive_attrs(
+          grtree$children[[polyline_child_index]],
+          aes,
+          ipar = .ipar
+        )
       grtree$children[[polyline_child_index]]$.interactive_hooks <- c("fill_na")
     }
 

R/girafe.R

@@ -179,13 +179,20 @@ girafe <- function(
     fonts_checking_registered(family_list = family_list)
   } else if (check_fonts_registered && is.null(ggobj)) {
     cli::cli_warn(
-      c("!" = "Dependencies checking can not be performed if `ggobj` is missing.")
+      c(
+        "!" = "Dependencies checking can not be performed if `ggobj` is missing."
+      )
     )
   }
   if (check_fonts_dependencies && !is.null(ggobj)) {
-    fonts_checking_dependencies(dependencies = dependencies, family_list = family_list)
+    fonts_checking_dependencies(
+      dependencies = dependencies,
+      family_list = family_list
+    )
   } else if (check_fonts_dependencies && is.null(ggobj)) {
-    cli::cli_warn("!" = "Dependencies checking can not be performed if `ggobj` is missing.")
+    cli::cli_warn(
+      "!" = "Dependencies checking can not be performed if `ggobj` is missing."
+    )
   }
 
   # create widget -----
@@ -305,5 +312,8 @@ run_girafe_example <- function(name = "crimes") {
 
 
 UUIDgenerate <- function() {
-  paste(format(as.hexmode(sample(256, 8, replace = TRUE) - 1), width = 2), collapse = "")
+  paste(
+    format(as.hexmode(sample(256, 8, replace = TRUE) - 1), width = 2),
+    collapse = ""
+  )
 }

R/ipar.R

@@ -399,13 +399,22 @@ interactive_attr_toxml <- function(x, ids = character(0), rows = NULL) {
     }
     attrName <- switch(a, tooltip = "title", data_id = data_attr, a)
 
-    if (isTRUE("fill_na" %in% x$.interactive_hooks) && anyNA(attrValue) && !is.na(attrValue[1])) {
-      attrValue <- Reduce(f = function(a, b) {
-        newb <- if (is.na(b)) {
-          rev(a)[1]
-        } else b
-        c(a, newb)
-      }, x = attrValue)
+    if (
+      isTRUE("fill_na" %in% x$.interactive_hooks) &&
+        anyNA(attrValue) &&
+        !is.na(attrValue[1])
+    ) {
+      attrValue <- Reduce(
+        f = function(a, b) {
+          newb <- if (is.na(b)) {
+            rev(a)[1]
+          } else {
+            b
+          }
+          c(a, newb)
+        },
+        x = attrValue
+      )
     }
 
     set_attr(

R/utils_data.r

@@ -15,8 +15,8 @@ panel_path_reshape <- function(data) {
   data <- filter(data, !.data$has_na)
   data <- mutate(
     data,
-    has_na = NULL, segment_change = NULL
+    has_na = NULL,
+    segment_change = NULL
   )
   as.data.frame(data)
 }
-

examples/geom_label_interactive.R

@@ -5,9 +5,12 @@ library(gdtools)
 register_liberationsans()
 
 p <- ggplot(mtcars, aes(wt, mpg, label = rownames(mtcars))) +
-  geom_label_interactive(aes(
-    tooltip = paste(rownames(mtcars), mpg, sep = "\n")
-  ), family = "Liberation Sans") +
+  geom_label_interactive(
+    aes(
+      tooltip = paste(rownames(mtcars), mpg, sep = "\n")
+    ),
+    family = "Liberation Sans"
+  ) +
   theme_minimal(base_family = "Liberation Sans", base_size = 11)
 x <- girafe(
   ggobj = p,

examples/geom_quasirandom_interactive.R

@@ -49,7 +49,10 @@ if (
   dodge_width <- .8
   position <- position_dodge(width = dodge_width)
 
-  gg_qr <- ggplot(dat, aes(x = am, y = disp, fill = gear, group = interaction(am, gear))) +
+  gg_qr <- ggplot(
+    dat,
+    aes(x = am, y = disp, fill = gear, group = interaction(am, gear))
+  ) +
     geom_quasirandom_interactive(
       aes(tooltip = disp, data_id = name),
       shape = 21,

examples/girafe.R

@@ -10,11 +10,14 @@ dataset$carname <- row.names(mtcars)
 gg_point <- ggplot(
   data = dataset,
   mapping = aes(
-    x = wt, y = qsec, color = disp,
-    tooltip = carname, data_id = carname
+    x = wt,
+    y = qsec,
+    color = disp,
+    tooltip = carname,
+    data_id = carname
   )
 ) +
-  geom_point_interactive(hover_nearest = TRUE, size = 11/.pt) +
+  geom_point_interactive(hover_nearest = TRUE, size = 11 / .pt) +
   theme_minimal(base_family = "Liberation Sans", base_size = 11)
 
 x <- girafe(