Fix lint, apply styler (#175)

Closes #174
insightsengineering · Oct 23, 2023 · dda9a17 · dda9a17
1 parent 0610357
commit dda9a17
Show file tree

Hide file tree

Showing 4 changed files with 26 additions and 15 deletions.
diff --git a/R/rlistings.R b/R/rlistings.R
@@ -140,8 +140,10 @@ as_listing <- function(df,
                        main_footer = NULL,
                        prov_footer = NULL) {
   if (length(non_disp_cols) > 0 && length(intersect(key_cols, non_disp_cols)) > 0) {
-    stop("Key column also listed in non_disp_cols. All key columns are by",
-         " definition display columns.")
+    stop(
+      "Key column also listed in non_disp_cols. All key columns are by",
+      " definition display columns."
+    )
   }
   if (!is.null(disp_cols) && !is.null(non_disp_cols)) {
     stop("Got non-null values for both disp_cols and non_disp_cols. This is not supported.")
@@ -153,12 +155,16 @@ as_listing <- function(df,
     cols <- disp_cols
   }
   if (!all(sapply(default_formatting, is, class2 = "fmt_config"))) {
-    stop("All format configurations supplied in `default_formatting`",
-         " must be of type `fmt_config`.")
+    stop(
+      "All format configurations supplied in `default_formatting`",
+      " must be of type `fmt_config`."
+    )
   }
   if (!(is.null(col_formatting) || all(sapply(col_formatting, is, class2 = "fmt_config")))) {
-    stop("All format configurations supplied in `col_formatting`",
-         " must be of type `fmt_config`.")
+    stop(
+      "All format configurations supplied in `col_formatting`",
+      " must be of type `fmt_config`."
+    )
   }
 
   df <- as_tibble(df)
@@ -197,9 +203,11 @@ as_listing <- function(df,
       default_formatting[[col_fmt_class]]
     } else {
       if (!"all" %in% names(default_formatting)) {
-        stop("Format configurations must be supplied for all listing columns. ",
-             "To cover all remaining columns please add an 'all' configuration",
-             " to `default_formatting`.")
+        stop(
+          "Format configurations must be supplied for all listing columns. ",
+          "To cover all remaining columns please add an 'all' configuration",
+          " to `default_formatting`."
+        )
       }
       default_formatting[["all"]]
     }

diff --git a/man/matrix_form-listing_df-method.Rd b/man/matrix_form-listing_df-method.Rd
diff --git a/tests/testthat/test-listings.R b/tests/testthat/test-listings.R
@@ -240,8 +240,10 @@ testthat::test_that("unique_rows removes duplicate rows from listing", {
   )
   result_strings <- matrix_form(lsting)$strings
   expected_strings <- matrix(
-    c("Planned Arm Code", "ARM A", "", "", "", "ARM B", "", "", "ARM C", "", "", "",
-      "Sex", "M", "F", "UNDIFFERENTIATED", "U", "F", "M", "U", "M", "F", "U", "UNDIFFERENTIATED"),
+    c(
+      "Planned Arm Code", "ARM A", "", "", "", "ARM B", "", "", "ARM C", "", "", "",
+      "Sex", "M", "F", "UNDIFFERENTIATED", "U", "F", "M", "U", "M", "F", "U", "UNDIFFERENTIATED"
+    ),
     ncol = 2,
     dimnames = list(c(), c("ARMCD", "SEX"))
   )

diff --git a/vignettes/rlistings.Rmd b/vignettes/rlistings.Rmd
@@ -114,8 +114,9 @@ are then displayed.
 
 ```{r}
 lsting <- as_listing(
-    df = adae,
-    non_disp_cols = tail(names(adae), 8))
+  df = adae,
+  non_disp_cols = tail(names(adae), 8)
+)
 head(lsting, 15)
 ```