fix styling issues

R/categorize.R

@@ -282,7 +282,6 @@ categorize.grouped_df <- function(x,
                                   regex = FALSE,
                                   verbose = TRUE,
                                   ...) {
-
   grps <- attr(x, "groups", exact = TRUE)[[".rows"]]
 
   attr_data <- attributes(x)

R/data_arrange.R

@@ -103,7 +103,6 @@ data_arrange.default <- function(data, select = NULL, safe = TRUE) {
 
 #' @export
 data_arrange.grouped_df <- function(data, select = NULL, safe = TRUE) {
-
   grps <- attr(data, "groups", exact = TRUE)
   grps <- grps[[".rows"]]
 

R/data_duplicated.R

@@ -82,7 +82,7 @@ data_duplicated.grouped_df <- function(data,
     verbose = verbose
   )
 
-  
+
   grps <- attr(data, "groups", exact = TRUE)
   grps <- grps[[".rows"]]
 

R/data_modify.R

@@ -201,7 +201,7 @@ data_modify.grouped_df <- function(data, ..., .if = NULL, .at = NULL, .modify =
   # the data.frame method later...
   dots <- match.call(expand.dots = FALSE)[["..."]]
 
-  
+
   grps <- attr(data, "groups", exact = TRUE)
   grps <- grps[[".rows"]]
   attr_data <- attributes(data)

R/data_rescale.R

@@ -185,7 +185,7 @@ rescale.grouped_df <- function(x,
                                ...) {
   info <- attributes(x)
 
-  
+
   grps <- attr(x, "groups", exact = TRUE)[[".rows"]]
 
   # evaluate arguments

R/data_reverse.R

@@ -208,7 +208,7 @@ reverse.grouped_df <- function(x,
                                ...) {
   info <- attributes(x)
 
-  
+
   grps <- attr(x, "groups", exact = TRUE)[[".rows"]]
 
   # evaluate arguments

R/data_tabulate.R

@@ -317,7 +317,6 @@ data_tabulate.grouped_df <- function(x,
                                      collapse = FALSE,
                                      verbose = TRUE,
                                      ...) {
-
   grps <- attr(x, "groups", exact = TRUE)
   group_variables <- data_remove(grps, ".rows")
   grps <- grps[[".rows"]]

R/data_unique.R

@@ -118,7 +118,7 @@ data_unique.grouped_df <- function(data,
     verbose = verbose
   )
 
-  
+
   grps <- attr(data, "groups", exact = TRUE)
   grps <- grps[[".rows"]]
 

R/normalize.R

@@ -195,7 +195,7 @@ normalize.grouped_df <- function(x,
   )
 
   info <- attributes(x)
-  
+
   grps <- attr(x, "groups", exact = TRUE)[[".rows"]]
 
   # when we append variables, we call ".process_append()", which will

R/ranktransform.R

@@ -110,7 +110,7 @@ ranktransform.grouped_df <- function(x,
                                      verbose = TRUE,
                                      ...) {
   info <- attributes(x)
-  
+
   grps <- attr(x, "groups", exact = TRUE)[[".rows"]]
 
   # evaluate arguments

R/unnormalize.R

@@ -113,7 +113,7 @@ unnormalize.grouped_df <- function(x,
   )
 
   info <- attributes(x)
-  
+
   grps <- attr(x, "groups", exact = TRUE)[[".rows"]]
 
   x <- as.data.frame(x)

R/unstandardize.R

@@ -177,7 +177,7 @@ unstandardize.grouped_df <- function(x,
 
   info <- attributes(x)
 
-  
+
   grps <- attr(x, "groups", exact = TRUE)[[".rows"]]
 
   x <- as.data.frame(x)

R/utils-rows.R

@@ -124,7 +124,7 @@ rowid_as_column.grouped_df <- function(x, var = "rowid") {
       paste0("There is already a variable named `", var, "` in your dataset.")
     )
   }
-  
+
   grps <- attr(x, "groups", exact = TRUE)
   grps <- grps[[".rows"]]
 

R/utils_standardize_center.R

@@ -399,7 +399,7 @@
   }
 
   info <- attributes(x)
-  
+
   grps <- attr(x, "groups", exact = TRUE)[[".rows"]]
 
   # for grouped data frames, we can decide to remove group variable from selection