Skip to content

Commit

Permalink
[skip style] [skip vbump] Restyle files
Browse files Browse the repository at this point in the history
  • Loading branch information
github-actions[bot] committed May 13, 2024
1 parent e88a2c6 commit a6d0e69
Showing 1 changed file with 5 additions and 4 deletions.
9 changes: 5 additions & 4 deletions R/radqlqc.R
Original file line number Diff line number Diff line change
Expand Up @@ -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.
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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, ]

Expand Down

0 comments on commit a6d0e69

Please sign in to comment.