Style code (GHA)

sfirke · May 23, 2024 · 8f0e33d · 8f0e33d
1 parent a0f5c59
commit 8f0e33d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/tabyl.R b/R/tabyl.R
@@ -65,7 +65,7 @@ tabyl.default <- function(dat, show_na = TRUE, show_missing_levels = TRUE, ...)
   } else {
     var_name <- names(dat)
   }
-  
+
   # useful error message if input vector doesn't exist
   if (is.null(dat)) {
     stop(paste0("object ", var_name, " not found"))
@@ -74,12 +74,12 @@ tabyl.default <- function(dat, show_na = TRUE, show_missing_levels = TRUE, ...)
   if (length(var_name) > 1) {
     var_name <- paste(var_name, collapse = "")
   }
-  
+
   # Try to retrieve label
   if (is.data.frame(dat)) {
     var_label <- attr(dat[, var_name], "label", exact = TRUE) %||% var_name
   } else {
-    var_label <-  attr(dat, "label", exact = TRUE) %||% var_name
+    var_label <- attr(dat, "label", exact = TRUE) %||% var_name
   }
 
   # if show_na is not length-1 logical, error helpfully (#377)

diff --git a/tests/testthat/test-tabyl.R b/tests/testthat/test-tabyl.R
@@ -401,7 +401,7 @@ test_that("tabyl works with label attributes (#394)", {
   tab <- tabyl(mt_label, cyl)
   expect_named(tab, c("Number of cyl", "n", "percent"))
 
-  tab2 <-  tabyl(mt_label, cyl, am)
+  tab2 <- tabyl(mt_label, cyl, am)
   expect_named(tab2, c("Number of cyl", "0", "1"))
 })