fix lintr issue of the space

Merck · Jan 3, 2024 · cdb7981 · cdb7981
1 parent b850326
commit cdb7981
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/gs_design_ahr.R b/R/gs_design_ahr.R
@@ -236,7 +236,7 @@ gs_design_ahr <- function(
   if ((length(analysis_time) > 1) && (length(info_frac) > 1) && (length(info_frac) != length(analysis_time))) {
     stop("gs_design_ahr() info_frac and analysis_time must have the same length if both have length > 1.")
   }
-  if(all(fail_rate$hr == 1)){
+  if(all(fail_rate$hr == 1)) {
     stop("gs_design_ahr() hr must not be equal to 1 throughout the study as this is the null hypothesis.")
   }
 

diff --git a/R/gs_design_combo.R b/R/gs_design_combo.R
@@ -178,7 +178,7 @@ gs_design_combo <- function(
     two_sided <- TRUE
   }
 
-  if(all(fail_rate$hr == 1)){
+  if(all(fail_rate$hr == 1)) {
     stop("gs_design_combo() hr must not be equal to 1 throughout the study as this is the null hypothesis.")
   }
 

diff --git a/R/gs_design_wlr.R b/R/gs_design_wlr.R
@@ -152,7 +152,7 @@ gs_design_wlr <- function(
   if (max(info_frac) != 1) stop(msg)
   msg <- "gs_design_wlr(): info_frac and analysis_time must have the same length if both have length > 1"
   if ((length(analysis_time) > 1) && (length(info_frac) > 1) && (length(info_frac) != length(analysis_time))) stop(msg)
-  if(all(fail_rate$hr == 1)){
+  if(all(fail_rate$hr == 1)) {
     stop("gs_design_wlr() hr must not be equal to 1 throughout the study as this is the null hypothesis.")
   }
   # get the info_scale