stylr

Author: smasongarrison

R/insertEven.R

@@ -31,8 +31,12 @@ insertEven <- function(m, n, verbose = FALSE) {
   }
 
 
-  if (lm == 0L) return(unname(n))
-  if (ln == 0L) return(unname(m))
+  if (lm == 0L) {
+    return(unname(n))
+  }
+  if (ln == 0L) {
+    return(unname(m))
+  }
 
   pos_m <- ceiling(seq_len(lm) * ln / lm)
 

R/simulatePedigree.R

@@ -29,7 +29,7 @@ buildBetweenGenerations <- function(df_Fam, Ngen, sizeGens, verbose = FALSE, mar
                                     code_male = "M", code_female = "F", beta = FALSE) {
   # Normalize string aliases to logical values for downstream functions
   use_optimized <- FALSE
-  
+
   if (beta %in% c("index", "indexed")) {
     stop("The 'index' or 'indexed' option for parameter 'beta' is not yet implemented.")
   } else if (isTRUE(beta) || identical(beta, "optimized")) {
@@ -39,7 +39,7 @@ buildBetweenGenerations <- function(df_Fam, Ngen, sizeGens, verbose = FALSE, mar
   } else {
     stop("Invalid value for parameter 'beta'. Accepted values are TRUE, FALSE, 'optimized', 'base', 'original', or 'index'/'indexed'.")
   }
-  
+
   if (use_optimized) {
     df_Fam <- buildBetweenGenerations_optimized(
       df_Fam = df_Fam,

R/simulatePedigree_within.R

@@ -19,7 +19,7 @@ buildWithinGenerations <- function(
 ) {
   # Normalize string aliases to logical values for downstream functions
   use_optimized <- FALSE
-  
+
   if (beta %in% c("index", "indexed")) {
     stop("The 'index' or 'indexed' option for parameter 'beta' is not yet implemented.")
   } else if (isTRUE(beta) || identical(beta, "optimized")) {
@@ -29,7 +29,7 @@ buildWithinGenerations <- function(
   } else {
     stop("Invalid value for parameter 'beta'. Accepted values are TRUE, FALSE, 'optimized', 'base', 'original', or 'index'/'indexed'.")
   }
-  
+
   if (use_optimized) {
     df_Fam <- buildWithinGenerations_optimized(
       sizeGens = sizeGens,

tests/testthat/test-simulatePedigree.R

@@ -172,52 +172,52 @@ test_that("simulatePedigree accepts string aliases for beta parameter", {
   kpc <- 4
   sexR <- .50
   marR <- .7
-  
+
   # Test that "optimized" string alias works
   set.seed(seed)
   result_true <- simulatePedigree(kpc = kpc, Ngen = Ngen, sexR = sexR, marR = marR, beta = TRUE)
-  
+
   set.seed(seed)
   result_optimized <- simulatePedigree(kpc = kpc, Ngen = Ngen, sexR = sexR, marR = marR, beta = "optimized")
-  
+
   # Results should be identical when using TRUE vs "optimized"
   expect_equal(nrow(result_true), nrow(result_optimized))
   expect_equal(ncol(result_true), ncol(result_optimized))
   expect_equal(result_true$ID, result_optimized$ID)
-  
+
   # Test that "base" string alias works
   set.seed(seed)
   result_false <- simulatePedigree(kpc = kpc, Ngen = Ngen, sexR = sexR, marR = marR, beta = FALSE)
-  
+
   set.seed(seed)
   result_base <- simulatePedigree(kpc = kpc, Ngen = Ngen, sexR = sexR, marR = marR, beta = "base")
-  
+
   # Results should be identical when using FALSE vs "base"
   expect_equal(nrow(result_false), nrow(result_base))
   expect_equal(ncol(result_false), ncol(result_base))
   expect_equal(result_false$ID, result_base$ID)
-  
+
   # Test that "original" string alias works
   set.seed(seed)
   result_original <- simulatePedigree(kpc = kpc, Ngen = Ngen, sexR = sexR, marR = marR, beta = "original")
-  
+
   # Results should be identical when using FALSE vs "original"
   expect_equal(nrow(result_false), nrow(result_original))
   expect_equal(ncol(result_false), ncol(result_original))
   expect_equal(result_false$ID, result_original$ID)
-  
+
   # Test that invalid beta values throw errors
   expect_error(
     simulatePedigree(kpc = kpc, Ngen = Ngen, sexR = sexR, marR = marR, beta = "invalid"),
     "Invalid value for parameter"
   )
-  
+
   # Test that "index" and "indexed" both throw appropriate error
   expect_error(
     simulatePedigree(kpc = kpc, Ngen = Ngen, sexR = sexR, marR = marR, beta = "index"),
     "not yet implemented"
   )
-  
+
   expect_error(
     simulatePedigree(kpc = kpc, Ngen = Ngen, sexR = sexR, marR = marR, beta = "indexed"),
     "not yet implemented"