From a6d0e696272de10e05ad10aafd61cc4ddd46fa07 Mon Sep 17 00:00:00 2001
From: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Date: Mon, 13 May 2024 14:49:08 +0000
Subject: [PATCH] [skip style] [skip vbump] Restyle files

---
 R/radqlqc.R | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/R/radqlqc.R b/R/radqlqc.R
index 61d5ac5c..7bbfe9d7 100644
--- a/R/radqlqc.R
+++ b/R/radqlqc.R
@@ -709,7 +709,7 @@ get_ex028 <- function() {
         QSREASND
       ) %>%
         distinct(),
-      by = c("STUDYID","USUBJID", "VISIT", "VISITNUM")
+      by = c("STUDYID", "USUBJID", "VISIT", "VISITNUM")
     )
   # evaluate each combination to see if a subject is expected to complete a
   # questionnaire at the specific visit or not.
@@ -761,7 +761,7 @@ get_ex028 <- function() {
     by = c("PARAMCD")
   )
 
-  return (subj_vis_param4)
+  return(subj_vis_param4)
 }
 
 #' @describeIn h_adqlqc Scale calculation for ADQLQC data
@@ -929,8 +929,9 @@ calc_scales <- function(adqlqc1, ex028) {
     unique_avisit <- unique(id_data$AVISIT)
     for (visit in unique_avisit) {
       if (is.na(visit)) {
-        if(ex028$AVAL == 1)
-        next
+        if (ex028$AVAL == 1) {
+          next
+        }
       }
       id_data_at_visit <- id_data[id_data$AVISIT == visit, ]