air formatting

Author: rsh52

.github/workflows/test-coverage.yaml

@@ -12,7 +12,6 @@ jobs:
   test-coverage:
     runs-on: ubuntu-latest
     env:
-      NOT_CRAN: true
       GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
     steps:
       - name: Update Ubuntu, Install cURL Headers, add Libraries

R/codebook.R

@@ -343,9 +343,7 @@ get_codebook_forms <- function(project) {
 
 get_codebook_project_summary <- function(project) {
   project_info <- project$project_info
-  project_title <- if (
-    "project_title" %in% names(project_info) && nrow(project_info) > 0
-  ) {
+  project_title <- if ("project_title" %in% names(project_info) && nrow(project_info) > 0) {
     as.character(project_info$project_title[[1]])
   } else {
     "Unknown REDCap project"
@@ -620,9 +618,7 @@ get_codebook_validation_label <- function(
 }
 
 get_codebook_event_count <- function(project) {
-  if (
-    nrow(project$events) == 0 || !"redcap_event_name" %in% names(project$events)
-  ) {
+  if (nrow(project$events) == 0 || !"redcap_event_name" %in% names(project$events)) {
     return(NA_integer_)
   }
 

R/get_record_status_data.R

@@ -272,8 +272,11 @@ get_dashboard_record_events <- function(project) {
   project$data |>
     transmute(
       record_id = as.character(.data[[project$record_id_field]]),
-      event_name = if (is.na(event_field)) NA_character_ else
+      event_name = if (is.na(event_field)) {
+        NA_character_
+      } else {
         as.character(.data[[event_field]])
+      }
     ) |>
     distinct(.data$record_id, .data$event_name)
 }
@@ -362,8 +365,11 @@ get_dashboard_event_labels <- function(project) {
   event_field <- get_event_field(project$data)
   data_events <- project$data |>
     transmute(
-      event_name = if (is.na(event_field)) NA_character_ else
+      event_name = if (is.na(event_field)) {
+        NA_character_
+      } else {
         as.character(.data[[event_field]])
+      }
     ) |>
     distinct(.data$event_name) |>
     mutate(event_order = row_number())
@@ -376,8 +382,11 @@ get_dashboard_event_labels <- function(project) {
     )
   }
 
-  event_label_column <- if ("event_name" %in% names(events)) "event_name" else
+  event_label_column <- if ("event_name" %in% names(events)) {
+    "event_name"
+  } else {
     "redcap_event_name"
+  }
   events$event_label <- as.character(events[[event_label_column]])
 
   events |>

R/quality_report.R

@@ -157,8 +157,9 @@ get_quality_report <- function(
   )
 
   check_fns <- list(
-    missingness = \(...)
-      get_missingness_findings(project, field_summary, sparse_threshold),
+    missingness = \(...) {
+      get_missingness_findings(project, field_summary, sparse_threshold)
+    },
     metadata = \(...) get_metadata_findings(project),
     outliers = \(...) get_outlier_findings(project, outlier_iqr_multiplier),
     operational = \(...) get_operational_findings(project),

air.toml

@@ -0,0 +1,11 @@
+[format]
+line-width = 140
+indent-width = 2
+indent-style = "space"
+line-ending = "auto"
+persistent-line-breaks = true
+exclude = []
+default-exclude = true
+skip = []
+table = []
+default-table = true

data-raw/mock-data.R

@@ -3,9 +3,16 @@ devtools::load_all(".")
 mock_redcap_project <- list(
   data = tibble::tibble(
     record_id = c(
-      "C001", "C001", "C001",
-      "C002", "C002", "C002",
-      "C0003", "C0003", "C0003", "C0003"
+      "C001",
+      "C001",
+      "C001",
+      "C002",
+      "C002",
+      "C002",
+      "C0003",
+      "C0003",
+      "C0003",
+      "C0003"
     ),
     redcap_event_name = c(
       "baseline_arm_1",