Remove unnecessary nolint comments

Author: Bisaloo

R/coh_eff_utils.R

@@ -102,7 +102,7 @@ cox_model <- function(data_set,
   # Cox model time to event, outcome ~ vaccine status
   # Regression
   model <- survival::coxph(
-    survival::Surv( # nolint
+    survival::Surv(
       data_set[[time_to_event_col]], data_set[[outcome_status_col]]
     ) ~ data_set[[vacc_status_col]]
   )

tests/testthat/test-coh_data_wrangling.R

@@ -75,7 +75,7 @@ test_that("`set_status`: Correctness", {
     cohortdata[, c("death_date", "vaccine_date_1")],
     MARGIN = 1,
     FUN = function(x) {
-      all(!is.na(x)) # nolint
+      all(!is.na(x))
     }
   )
   expect_identical(
@@ -88,7 +88,7 @@ test_that("`set_status`: Correctness", {
     cohortdata[, c("death_date", "vaccine_date_1")],
     MARGIN = 1,
     FUN = function(x) {
-      any(!is.na(x)) # nolint
+      any(!is.na(x))
     }
   )
   expect_identical(

tests/testthat/test-coh_match.R

@@ -50,7 +50,7 @@ test_that("`match_cohort`: basic expectations", {
 })
 
 # Snapshot for summary
-test_that("`match_cohort`: summary snapshot", { # nolint
+test_that("`match_cohort`: summary snapshot", {
   for (column in c("balance_all", "balance_match", "summary")) {
     expect_snapshot_value(matching[column], style = "json2", tolerance = 1e-1)
   }