fix linter issues

Author: danielinteractive

R/survival_score.R

@@ -72,8 +72,7 @@ h_lr_score_no_strata_no_cov <- function(
   assert_flag(check_rand_strat_warning)
 
   # Check whether to warn about insufficient inclusion of randomization strata.
-  give_rand_strat_warning <- (check_rand_strat_warning &&
-    length(randomization_strata) > 0)
+  give_rand_strat_warning <- (check_rand_strat_warning && length(randomization_strata) > 0)
 
   # Standardize data set format, subset to relevant variables.
   df_stand <- data.frame(

R/utils.R

@@ -383,7 +383,8 @@ h_are_factors_nested <- function(f1, f2) {
 #' @param randomization_strata (`character`) A character vector of names of the randomization strata variables in `df`.
 #' @param eps (`numeric`) A small tolerance value to determine if means are close to zero.
 #'
-#' @return `TRUE` if the means of residuals across randomization strata are within the specified tolerance, `FALSE` otherwise.
+#' @return `TRUE` if the means of residuals across randomization strata are within the specified tolerance,
+#'   `FALSE` otherwise.
 #'
 #' @keywords internal
 h_unbiased_means_across_strata <- function(
@@ -401,11 +402,11 @@ h_unbiased_means_across_strata <- function(
     group_indices <- which(df$treatment == group)
     residuals_overall[group_indices] <- residuals_per_group[[group]]
   }
-  residuals_split_by_randomization_strata <- split(
+  resids_by_rand_strata <- split(
     residuals_overall,
     f = df[randomization_strata],
     drop = TRUE
   )
-  residuals_means <- sapply(residuals_split_by_randomization_strata, mean)
+  residuals_means <- sapply(resids_by_rand_strata, mean)
   all(abs(residuals_means) < eps)
 }

man/h_unbiased_means_across_strata.Rd

@@ -783,7 +783,7 @@ test_that("robin_surv does give a warning if strata are not sufficiently include
   ))
 })
 
-test_that("robin_surv does give a warning if strata are insufficiently included in covariate adjusted stratified model", {
+test_that("robin_surv warns if strata are insufficiently included in covariate adjusted stratified model", {
   expect_snapshot(
     robin_surv(
       Surv(time, status) ~ 1 + strata(ecog) + ph.karno,