add curly braces

Author: yjunechoe

R/coord-.R

@@ -62,7 +62,9 @@ Coord <- ggproto("Coord",
   # Should any of the scales be reversed?
   reverse = "none",
 
-  aspect = function(ranges) NULL,
+  aspect = function(ranges) {
+    NULL
+  },
 
   labels = function(self, labels, panel_params) {
     labels
@@ -177,15 +179,23 @@ Coord <- ggproto("Coord",
     panel_params
   },
 
-  transform = function(data, range) NULL,
+  transform = function(data, range) {
+    NULL
+  },
 
-  distance = function(x, y, panel_params) NULL,
+  distance = function(x, y, panel_params) {
+    NULL
+  },
 
-  is_linear = function() FALSE,
+  is_linear = function() {
+    FALSE
+  },
 
   # Does the coordinate system support free scaling of axes in a faceted plot?
   # Will generally have to return FALSE for coordinate systems that enforce a fixed aspect ratio.
-  is_free = function() FALSE,
+  is_free = function() {
+    FALSE
+  },
 
   setup_params = function(self, data) {
     list(expand = parse_coord_expand(self$expand %||% TRUE))

R/coord-cartesian-.R

@@ -86,8 +86,13 @@ coord_cartesian <- function(xlim = NULL, ylim = NULL, expand = TRUE,
 #' @export
 CoordCartesian <- ggproto("CoordCartesian", Coord,
 
-  is_linear = function() TRUE,
-  is_free = function() TRUE,
+  is_linear = function() {
+    TRUE
+  },
+
+  is_free = function() {
+    TRUE
+  },
 
   distance = function(x, y, panel_params) {
     max_dist <- dist_euclidean(panel_params$x$dimension(), panel_params$y$dimension())

R/coord-fixed.R

@@ -46,7 +46,9 @@ coord_equal <- coord_fixed
 #' @usage NULL
 #' @export
 CoordFixed <- ggproto("CoordFixed", CoordCartesian,
-  is_free = function() FALSE,
+  is_free = function() {
+    FALSE
+  },
 
   aspect = function(self, ranges) {
     diff(ranges$y.range) / diff(ranges$x.range) * self$ratio

R/coord-polar.R

@@ -80,9 +80,13 @@ coord_polar <- function(theta = "x", start = 0, direction = 1, clip = "on") {
 #' @export
 CoordPolar <- ggproto("CoordPolar", Coord,
 
-  aspect = function(details) 1,
+  aspect = function(details) {
+    1
+  },
 
-  is_free = function() TRUE,
+  is_free = function() {
+    TRUE
+  },
 
   distance = function(self, x, y, details, boost = 0.75) {
     arc <- self$start + c(0, 2 * pi)

R/coord-radial.R

@@ -140,7 +140,9 @@ CoordRadial <- ggproto("CoordRadial", Coord,
     diff(details$bbox$y) / diff(details$bbox$x)
   },
 
-  is_free = function() TRUE,
+  is_free = function() {
+    TRUE
+  },
 
   distance = function(self, x, y, details, boost = 0.75) {
     arc <- details$arc %||% c(0, 2 * pi)

R/coord-sf.R

@@ -302,11 +302,15 @@ CoordSf <- ggproto("CoordSf", CoordCartesian,
   },
 
   # CoordSf enforces a fixed aspect ratio -> axes cannot be changed freely under faceting
-  is_free = function() FALSE,
+  is_free = function() {
+    FALSE
+  },
 
   # for regular geoms (such as geom_path, geom_polygon, etc.), CoordSf is non-linear
   # if the default_crs option is being used, i.e., not set to NULL
-  is_linear = function(self) is.null(self$get_default_crs()),
+  is_linear = function(self) {
+    is.null(self$get_default_crs())
+  },
 
   distance = function(self, x, y, panel_params) {
     d <- self$backtransform_range(panel_params)
@@ -327,7 +331,9 @@ CoordSf <- ggproto("CoordSf", CoordCartesian,
     diff(panel_params$y_range) / diff(panel_params$x_range) / ratio
   },
 
-  labels = function(labels, panel_params) labels,
+  labels = function(labels, panel_params) {
+    labels
+  },
 
   render_bg = function(self, panel_params, theme) {
     el <- calc_element("panel.grid.major", theme)

R/coord-transform.R

@@ -111,7 +111,11 @@ coord_trans <- function(x = "identity", y = "identity", xlim = NULL, ylim = NULL
 #' @usage NULL
 #' @export
 CoordTrans <- ggproto("CoordTrans", Coord,
-  is_free = function() TRUE,
+
+  is_free = function() {
+    TRUE
+  },
+
   distance = function(self, x, y, panel_params) {
     max_dist <- dist_euclidean(panel_params$x.range, panel_params$y.range)
     dist_euclidean(self$trans$x$transform(x), self$trans$y$transform(y)) / max_dist

R/facet-.R

@@ -98,7 +98,9 @@ Facet <- ggproto("Facet", NULL,
   map_data = function(data, layout, params) {
     cli::cli_abort("Not implemented.")
   },
-  setup_panel_params = function(self, panel_params, coord, ...) panel_params,
+  setup_panel_params = function(self, panel_params, coord, ...) {
+    panel_params
+  },
   init_scales = function(layout, x_scale = NULL, y_scale = NULL, params) {
     scales <- list()
     if (!is.null(x_scale)) {
@@ -161,7 +163,7 @@ Facet <- ggproto("Facet", NULL,
       params
     )
 
-    # Draw individual panels, then call `$draw_panels()` method to 
+    # Draw individual panels, then call `$draw_panels()` method to
     # assemble into gtable
     lapply(seq_along(panels[[1]]), function(i) {
       panel <- lapply(panels, `[[`, i)

R/geom-.R

@@ -109,9 +109,13 @@ Geom <- ggproto("Geom",
     cli::cli_abort("{.fn {snake_class(self)}}, has not implemented a {.fn draw_group} method")
   },
 
-  setup_params = function(data, params) params,
+  setup_params = function(data, params) {
+    params
+  },
 
-  setup_data = function(data, params) data,
+  setup_data = function(data, params) {
+    data
+  },
 
   # Combine data with defaults and set aesthetics from parameters
   use_defaults = function(self, data, params = list(), modifiers = aes(),

R/geom-blank.R

@@ -35,7 +35,11 @@ geom_blank <- function(mapping = NULL, data = NULL,
 #' @export
 GeomBlank <- ggproto("GeomBlank", Geom,
   default_aes = aes(),
-  handle_na = function(data, params) data,
+  handle_na = function(data, params) {
+    data
+  },
   check_constant_aes = FALSE,
-  draw_panel = function(...) nullGrob()
+  draw_panel = function(...) {
+    nullGrob()
+  }
 )