fix warnings (#237)

insightsengineering · Mar 10, 2021 · b2b57c7 · b2b57c7
1 parent 80dbf10
commit b2b57c7
Show file tree

Hide file tree

Showing 6 changed files with 11 additions and 6 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -44,6 +44,7 @@ importFrom(rlang,":=")
 importFrom(rlang,.data)
 importFrom(stats,dpois)
 importFrom(stats,qpois)
+importFrom(stats,rbinom)
 importFrom(stats,rchisq)
 importFrom(stats,reorder)
 importFrom(stats,rexp)

diff --git a/R/radcm.R b/R/radcm.R
@@ -161,10 +161,10 @@ radcm <- function(ADSL, # nolint
 
   ADCM <- ADCM %>% # nolint
     dplyr::mutate(
-      ATC1CD = ATC1,
-      ATC2CD = ATC2,
-      ATC3CD = ATC3,
-      ATC4CD = ATC4
+      ATC1CD = .data$ATC1,
+      ATC2CD = .data$ATC2,
+      ATC3CD = .data$ATC3,
+      ATC4CD = .data$ATC4
     )
 
   # apply metadata

diff --git a/R/raddv.R b/R/raddv.R
@@ -24,6 +24,7 @@
 #' @importFrom tibble tribble
 #' @importFrom rlang .data
 #' @importFrom utils read.table
+#' @importFrom stats rbinom
 #'
 #' @export
 #'
@@ -127,7 +128,7 @@ raddv <- function(ADSL, # nolint
     arrange(.data$STUDYID, .data$USUBJID, .data$ASTDT, .data$DVTERM, .data$DVSEQ)
 
   ADDV <- ADDV %>% # nolint
-    mutate(AEPRELFL = ifelse(DVEPRELI == "Y", DVEPRELI, ""))
+    mutate(AEPRELFL = ifelse(.data$DVEPRELI == "Y", .data$DVEPRELI, ""))
 
   if (length(na_vars) > 0 && na_percentage > 0 && na_percentage <= 1) {
     ADDV <- mutate_na(ds = ADDV, na_vars = na_vars, na_percentage = na_percentage) # nolint

diff --git a/R/radsaftte.R b/R/radsaftte.R
@@ -4,6 +4,7 @@
 #' given subject-level analysis dataset.
 #'
 #' @inheritParams radaette
+#' @param ... Additional argument to be passed to \code{radaette}
 #'
 #' @export
 #'

diff --git a/R/radsub.R b/R/radsub.R
@@ -69,7 +69,7 @@ h_anthropometrics_by_sex <- function(df,
       )
     ) %>%
     mutate(
-      BMI = WEIGHT / ((HEIGHT)^2)
+      BMI = .data$WEIGHT / ((.data$HEIGHT)^2)
     )
 
   return(df_with_measurements)

diff --git a/man/radsaftte.Rd b/man/radsaftte.Rd
-Original file line number
+Diff line change
@@ Expand Up / @@ -69,7 +69,7 @@ h_anthropometrics_by_sex <- function(df, @@
           )
         ) %>%
         mutate(
-          BMI = WEIGHT / ((HEIGHT)^2)
+          BMI = .data$WEIGHT / ((.data$HEIGHT)^2)
         )
       return(df_with_measurements)
@@ Expand Down @@