run styler

Author: markheckmann

R/preferred_poles.R

@@ -1,4 +1,3 @@
-
 preferredPoles <- function(x) {
   stop_if_not_is_repgrid(x)
   left_is_preferred <- sapply(x@constructs, function(c) c$leftpole$preferred)
@@ -106,15 +105,17 @@ preferredPolesByIdeal <- function(x, ideal, none_range = NULL, align = FALSE) {
 #' @export
 #' @seealso [alignByLoadings()]
 #' @examples
-#' #TBD
+#' # TBD
 alignByPreferredPole <- function(x, side = "right") {
   stop_if_not_is_repgrid(x)
   side <- match.arg(side, c("left", "right"))
   preferred_poles <- preferredPoles(x)
   ii_na <- is.na(preferred_poles)
   if (any(ii_na)) {
-    warning(c("Some construct do not have a preferred pole and were not aligned.\n",
-              "See 'preferredPoles() to set a preference'"), call. = FALSE)
+    warning(c(
+      "Some construct do not have a preferred pole and were not aligned.\n",
+      "See 'preferredPoles() to set a preference'"
+    ), call. = FALSE)
   }
   if (side == "left") {
     ii_reverse <- preferred_poles == "right"

R/repgrid-basicops.r

@@ -74,7 +74,7 @@ stop_if_not_in_element_range <- function(x, element) {
     stop("element name '", element, " 'is not unknown", call. = FALSE)
   }
   if (is.numeric(element) && !is_integerish(element)) {
-    stop("element index must be an integer",  call. = FALSE)
+    stop("element index must be an integer", call. = FALSE)
   }
   ii <- seq_along(.elements)
   if (is.numeric(element) && !element %in% ii) {
@@ -91,7 +91,7 @@ stop_if_not_integerish <- function(x, arg = NULL) {
     } else {
       argname <- ""
     }
-    stop("Expected integerish value ", argname, "but got '",  class(x)[1], "'", call. = FALSE)
+    stop("Expected integerish value ", argname, "but got '", class(x)[1], "'", call. = FALSE)
   }
 }
 
@@ -1616,7 +1616,7 @@ cbind.repgrid <- function(..., .reorder = TRUE, .unique = FALSE) {
 
 
 bindElements <- function(..., .reorder = TRUE, .unique = FALSE) {
-  dots <- unlist(list(...))  # in case list of repgrid objects are supplied
+  dots <- unlist(list(...)) # in case list of repgrid objects are supplied
   is.grid <- sapply(dots, function(x) inherits(x, "repgrid"))
   .f <- function(x, y) {
     bindTwoElements(x, y, .reorder = .reorder, .unique = .unique)

R/repgrid-output.r

@@ -529,7 +529,7 @@ df_out <- function(df, # data frame
     s_2 <- colorize("(-) = non-preferred", "red")
     s_3 <- colorize("(/) = none", "white")
     s_4 <- colorize("(.) = not defined", "white")
-    cat("\nPoles:", paste(s_1, ",", s_2, ",",s_3, ",", s_4))
+    cat("\nPoles:", paste(s_1, ",", s_2, ",", s_3, ",", s_4))
   }
   invisible(NULL)
 }

R/rgl-3d.r

@@ -149,7 +149,6 @@ biplot3dBase2 <- function(x, dim = 1:3, labels.e = TRUE, labels.c = TRUE, lines.
                           lef = 1.1, frame = 1, col.frame = grey(.6),
                           col.sphere = "black", alpha.sphere = .05, zoom = 1,
                           draw.xyz.axes = TRUE, ...) {
-
   if (!requireNamespace("rgl", quietly = TRUE)) {
     stop("The 'rgl' package is required to use OpenRepGrid's 3D features => please install 'rgl'.", call. = FALSE)
   }

tests/testthat/test-calc.R

@@ -1,7 +1,5 @@
-
 # test for issues #22 and #31 (constructs were missing after align)
 test_that("align()", {
-
   sorted_poles <- function(x) {
     df_con <- constructs(x)
     l <- as.list(as.data.frame(t(df_con))) # df rows as list

tests/testthat/test-helpers.R

@@ -1,5 +1,4 @@
 test_that("stop_if_not_in_element_range", {
-
   expect_no_error({
     stop_if_not_in_element_range(boeker, 1)
     stop_if_not_in_element_range(boeker, "self")
@@ -11,6 +10,3 @@ test_that("stop_if_not_in_element_range", {
   expect_error(stop_if_not_in_element_range(boeker, "xxx"))
   expect_error(stop_if_not_in_element_range(boeker, 1.1))
 })
-
-
-

tests/testthat/test-preferred-pole.R

@@ -17,4 +17,3 @@ test_that("preferredPoles", {
   preferredPoles(x) <- NA
   expect_equal(preferredPoles(x), rep_len(NA_character_, nc))
 })
-

tests/testthat/test_biplot.R

@@ -3,7 +3,6 @@ library(vdiffr)
 
 
 test_that("biplots work", {
-
   create_biplot2d <- function() {
     set.seed(0)
     biplot2d(boeker)