fixes #37

Author: thegargiulian

DESCRIPTION

@@ -24,6 +24,7 @@ Imports:
     glue,
     LCMCR,
     logger,
+    magrittr,
     purrr,
     Rdpack,
     readr,

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+export("%>%")
 export(combine_estimates)
 export(combine_replicates)
 export(confirm_files)
@@ -18,4 +19,5 @@ importFrom(Rdpack,reprompt)
 importFrom(dplyr,"%>%")
 importFrom(dplyr,filter)
 importFrom(dplyr,if_else)
+importFrom(magrittr,"%>%")
 importFrom(tibble,tibble)

R/estimate_mse.R

@@ -84,7 +84,7 @@ get_valid_sources <- function(stratum_data_prepped, min_n = 1) {
 #' \insertRef{manriquevallier2016}{verdata}
 #'
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' set.seed(19481210)
 #' library(dplyr)
 #'
@@ -163,7 +163,7 @@ run_lcmcr <- function(stratum_data_prepped, stratum_name, min_n = 1,
 #' @importFrom dplyr "%>%"
 #'
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' in_A <- sample(c(0, 1), size = 100, replace = TRUE, prob = c(0.45, 0.65))
 #' in_B <- sample(c(0, 1), size = 100, replace = TRUE, prob = c(0.5, 0.5))
 #' in_C <- sample(c(0, 1), size = 100, replace = TRUE, prob = c(0.75, 0.25))
@@ -245,7 +245,7 @@ estimates_exist <- function(stratum_data_prepped, estimates_dir) {
 #' @importFrom dplyr "%>%"
 #'
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' in_A <- sample(c(0, 1), size = 100, replace = TRUE, prob = c(0.45, 0.65))
 #' in_B <- sample(c(0, 1), size = 100, replace = TRUE, prob = c(0.5, 0.5))
 #' in_C <- sample(c(0, 1), size = 100, replace = TRUE, prob = c(0.75, 0.25))
@@ -341,7 +341,7 @@ lookup_estimates <- function(stratum_data_prepped, estimates_dir) {
 #' @importFrom dplyr "%>%"
 #'
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' set.seed(19481210)
 #' in_A <- sample(c(0, 1), size = 100, replace = TRUE, prob = c(0.45, 0.65))
 #' in_B <- sample(c(0, 1), size = 100, replace = TRUE, prob = c(0.5, 0.5))

R/utils-pipe.R

@@ -0,0 +1,14 @@
+#' Pipe operator
+#'
+#' See \code{magrittr::\link[magrittr:pipe]{\%>\%}} for details.
+#'
+#' @name %>%
+#' @rdname pipe
+#' @keywords internal
+#' @export
+#' @importFrom magrittr %>%
+#' @usage lhs \%>\% rhs
+#' @param lhs A value or the magrittr placeholder.
+#' @param rhs A function call using the magrittr semantics.
+#' @return The result of calling `rhs(lhs)`.
+NULL

inst/WORDLIST

@@ -350,3 +350,4 @@ BibTex
 citar
 Entrada
 et
+magrittr