Merge pull request #45 from ttscience/add-linter-config

Add linter config
ttscience · Feb 6, 2024 · b9486ad · b9486ad
2 parents 00f3a34 + e97775f
commit b9486ad
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/.lintr b/.lintr
@@ -0,0 +1,4 @@
+linters: linters_with_defaults(
+  line_length_linter = line_length_linter(120),
+  object_usage_linter = NULL
+  )
diff --git a/R/api_randomize.R b/R/api_randomize.R
@@ -8,7 +8,7 @@ api__randomize_patient <- function(study_id, current_state, req, res) {
     checkmate::check_subset(
       x = req$args$study_id,
       choices = dplyr::tbl(db_connection_pool, "study") |>
-        dplyr::select("id") |>
+        dplyr::select(id) |>
         dplyr::pull()
     ),
     .var.name = "Study ID",
@@ -19,7 +19,7 @@ api__randomize_patient <- function(study_id, current_state, req, res) {
   method_randomization <-
     dplyr::tbl(db_connection_pool, "study") |>
     dplyr::filter(.data$id == study_id) |>
-    dplyr::select("method") |>
+    dplyr::select(method) |>
     dplyr::pull()
 
   checkmate::assert(
@@ -105,7 +105,7 @@ parse_pocock_parameters <-
     ratio_arms <-
       dplyr::tbl(db_connetion_pool, "arm") |>
       dplyr::filter(study_id == !!study_id) |>
-      dplyr::select("name", "ratio") |>
+      dplyr::select(name, ratio) |>
       dplyr::collect()
 
     params <- list(