correct linted lines of code

R/02-merge.R

@@ -64,5 +64,5 @@ merge_estimates <- function(x, y, prop2percent = FALSE) {
   estimates <- tibble::tibble(estimates)
 
   ## Return
-  return(estimates)
+  estimates
 }

R/03-fullTable.R

@@ -28,5 +28,5 @@ fullTable <- function(x, values) {
   }
   tab[is.na(tab)] <- 0
   names(tab) <- as.character(values)
-  return(tab)
+  tab
 }

R/04-get_variables.R

@@ -106,5 +106,5 @@ get_variables <- function(indicators = c("demo", "food", "hunger", "adl",
     vars <- c(vars, "chew", "food", "NFRI")
   }
   ##
-  return(vars)
+  vars
 }

R/05-classicBoot.R

@@ -115,5 +115,5 @@ estimate_classic  <- function(x,
   classicEstimates <- tibble::tibble(classicEstimates)
 
   ## Return results
-  return(classicEstimates)
+  classicEstimates
 }

R/06-probitBoot.R

@@ -162,5 +162,5 @@ estimate_probit <- function(x,
   probitEstimates <- tibble::tibble(probitEstimates)
 
   ## Return probitEstimates
-  return(probitEstimates)
+  probitEstimates
 }

R/07-probit_muac.R

@@ -48,7 +48,7 @@ probit_gam <- function(x, params, threshold = 210) {
   x <- stats::pnorm(q = threshold, mean = m, sd = s)
 
   ## Return x
-  return(x)
+  x
 }
 
 
@@ -102,5 +102,5 @@ probit_sam <- function(x, params, threshold = 185) {
   x <- stats::pnorm(q = threshold, mean = m, sd = s)
 
   ## Return x
-  return(x)
+  x
 }

R/08-estimate_op.R

@@ -66,5 +66,5 @@ estimate_op_all <- function(x, w,
   resultsDF <- tibble::tibble(resultsDF)
 
   ## Return resultsDF
-  return(resultsDF)
+  resultsDF
 }