Style code (GHA)

Author: rafdoodle

R/alcohol.R

@@ -119,8 +119,10 @@ low_drink_score_fun <- function(CLC_SEX, ALC_11, ALCDWKY) {
 #' # Expected output: 2
 #'
 #' # Vector usage: Multiple respondents
-#' low_drink_score_fun1(CLC_SEX = c(1, 2, 1), ALC_11 = c(1, 1, 2), 
-#' ALCDWKY = c(3, 12, NA), ALC_17 = c(1, 1, 1), ALC_18 = c(2, 2, 1))
+#' low_drink_score_fun1(
+#'   CLC_SEX = c(1, 2, 1), ALC_11 = c(1, 1, 2),
+#'   ALCDWKY = c(3, 12, NA), ALC_17 = c(1, 1, 1), ALC_18 = c(2, 2, 1)
+#' )
 #' # Returns: c(2, 3, 2)
 #'
 #' # Database usage: Applied to survey datasets

R/blood-pressure.R

@@ -115,8 +115,10 @@ adjust_DBP <- function(BPMDPBPD) {
 #' # Output: 2 (Normal blood pressure as BP is below 140/90 mmHg and not on medication).
 #'
 #' # Vector usage: Multiple respondents
-#' determine_hypertension(BPMDPBPS = c(150, 120, 135), BPMDPBPD = c(95, 80, 85), 
-#' ANYMED2 = c(1, 0, 1), DIABX = c(2, 2, 1))
+#' determine_hypertension(
+#'   BPMDPBPS = c(150, 120, 135), BPMDPBPD = c(95, 80, 85),
+#'   ANYMED2 = c(1, 0, 1), DIABX = c(2, 2, 1)
+#' )
 #' # Returns: c(1, 2, 1)
 #'
 #' @export
@@ -191,8 +193,10 @@ determine_hypertension <- function(BPMDPBPS, BPMDPBPD, ANYMED2, CCC_32 = 2, CARD
 #' # Output: 2 (Normal blood pressure as adjusted BP is below 140/90 mmHg and not on medication).
 #'
 #' # Vector usage: Multiple respondents
-#' determine_adjusted_hypertension(SBP_adj = c(150, 120, 135), DBP_adj = c(95, 80, 85), 
-#' ANYMED2 = c(1, 0, 1), DIABX = c(2, 2, 1))
+#' determine_adjusted_hypertension(
+#'   SBP_adj = c(150, 120, 135), DBP_adj = c(95, 80, 85),
+#'   ANYMED2 = c(1, 0, 1), DIABX = c(2, 2, 1)
+#' )
 #' # Returns: c(1, 2, 1)
 #'
 #' @export
@@ -267,8 +271,10 @@ determine_adjusted_hypertension <- function(SBP_adj, DBP_adj, ANYMED2, CCC_32 =
 #' # Output: 1 (Hypertension controlled as BP is below 140/90 mmHg and on medication).
 #'
 #' # Vector usage: Multiple respondents
-#' determine_controlled_hypertension(BPMDPBPS = c(150, 120, 135), BPMDPBPD = c(95, 80, 85), 
-#' ANYMED2 = c(1, 1, 1), DIABX = c(2, 2, 1))
+#' determine_controlled_hypertension(
+#'   BPMDPBPS = c(150, 120, 135), BPMDPBPD = c(95, 80, 85),
+#'   ANYMED2 = c(1, 1, 1), DIABX = c(2, 2, 1)
+#' )
 #' # Returns: c(2, 1, 2)
 #'
 #' @export
@@ -346,8 +352,10 @@ determine_controlled_hypertension <- function(BPMDPBPS, BPMDPBPD, ANYMED2, CCC_3
 #' # Output: 1 (Hypertension controlled as adjusted BP is below 140/90 mmHg and on medication).
 #'
 #' # Vector usage: Multiple respondents
-#' determine_controlled_adjusted_hypertension(SBP_adj = c(150, 120, 135), DBP_adj = c(95, 80, 85), 
-#' ANYMED2 = c(1, 1, 1), DIABX = c(2, 2, 1))
+#' determine_controlled_adjusted_hypertension(
+#'   SBP_adj = c(150, 120, 135), DBP_adj = c(95, 80, 85),
+#'   ANYMED2 = c(1, 1, 1), DIABX = c(2, 2, 1)
+#' )
 #' # Returns: c(2, 1, 2)
 #'
 #' @export

R/exercise.R

@@ -23,8 +23,10 @@
 #' # Output: 35 (The average minutes of exercise per day across the week is 35 minutes.)
 #'
 #' # Vector usage: Multiple respondents
-#' find_week_accelerometer_average(c(30, 20), c(40, 30), c(25, 35), c(35, 45), 
-#' c(20, 25), c(45, 55), c(50, 60))
+#' find_week_accelerometer_average(
+#'   c(30, 20), c(40, 30), c(25, 35), c(35, 45),
+#'   c(20, 25), c(45, 55), c(50, 60)
+#' )
 #' # Returns: c(35, 39.28571)
 #'
 #' @export

R/family-history.R

@@ -72,8 +72,10 @@ determine_CVD_personal_history <- function(CCC_61, CCC_63, CCC_81) {
 #' # Output: 1
 #'
 #' # Vector usage: Multiple respondents
-#' determine_CVD_family_history(FMH_11 = c(1, 2, 1), FMH_12 = c(50, NA, 70), 
-#' FMH_13 = c(2, 1, 2), FMH_14 = c(NA, 55, NA))
+#' determine_CVD_family_history(
+#'   FMH_11 = c(1, 2, 1), FMH_12 = c(50, NA, 70),
+#'   FMH_13 = c(2, 1, 2), FMH_14 = c(NA, 55, NA)
+#' )
 #' # Returns: c(1, 1, 2)
 #'
 #' # Database usage: Applied to survey datasets

R/kidney.R

@@ -37,8 +37,10 @@
 #' # Output: GFR = 99.94114
 #'
 #' # Vector usage: Multiple respondents
-#' calculate_GFR(LAB_BCRE = c(80, 70, 90), PGDCGT = c(1, 2, 1), 
-#' CLC_SEX = c(2, 2, 1), CLC_AGE = c(45, 35, 50))
+#' calculate_GFR(
+#'   LAB_BCRE = c(80, 70, 90), PGDCGT = c(1, 2, 1),
+#'   CLC_SEX = c(2, 2, 1), CLC_AGE = c(45, 35, 50)
+#' )
 #' # Returns: c(67.27905, 99.94114, 70.38001)
 #'
 #' # Database usage: Applied to survey datasets

R/medications.R

@@ -1383,8 +1383,10 @@ cycles1to2_other_antiHTN_meds <- function(
 #'   mhr_102b = c(1, as.numeric(NA), 1)
 #' )
 #' survey_data %>%
-#'   mutate(is_taking_any_antihtn = 
-#'   cycles1to2_any_antiHTN_meds(atc_101a, atc_102a, mhr_101b, mhr_102b)) %>%
+#'   mutate(
+#'     is_taking_any_antihtn =
+#'       cycles1to2_any_antiHTN_meds(atc_101a, atc_102a, mhr_101b, mhr_102b)
+#'   ) %>%
 #'   select(is_taking_any_antihtn)
 #'
 #' @seealso `is_any_antiHTN_med`