Tidy up the pipe import

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+export("%>%")
 export(get_dataset)
 export(get_resource)
 export(get_resource_sql)

R/get_dataset.R

@@ -11,7 +11,6 @@
 #' @seealso [get_resource()] for downloading a single resource
 #' from a dataset.
 #'
-#' @importFrom magrittr %>%
 #' @return a [tibble][tibble::tibble-package] with the data
 #' @export
 #'
@@ -68,7 +67,7 @@
     )
 
     # of matching name cols, find if types match too
     inconsistent_index <- this_types[matching_names] != next_types[matching_names]
     inconsistencies[[i]] <- this_types[matching_names][inconsistent_index]
   }
 
@@ -79,7 +78,7 @@
   if (length(to_coerce) > 0) {
     cli::cli_warn(c(
       "Due to conflicts between column types across resources,
       the following {cli::qty(to_coerce)} column{?s} ha{?s/ve} been coerced to type character:",
       "{.val {to_coerce}}"
     ))
   }

R/get_resource.R

@@ -3,15 +3,14 @@
 #' @param res_id The resource ID as found on
 #' \href{https://www.opendata.nhs.scot/}{NHS Open Data platform}
 #' @param rows (optional) specify the max number of rows to return.
 #' @param row_filters (optional) a named list or vector that specifies values of columns/fields to keep.
 #' e.g. list(Date = 20220216, Sex = "Female").
 #' @param col_select (optional) a character vector containing the names of desired columns/fields.
 #' e.g. c("Date", "Sex").
 #'
 #' @seealso [get_dataset()] for downloading all resources
 #' from a given dataset.
 #'
-#' @importFrom magrittr %>%
 #' @return a [tibble][tibble::tibble-package] with the data
 #' @export
 #'
@@ -20,8 +19,8 @@
 #' filters <- list("HB" = "S08000030", "Month" = "202109")
 #' wanted_cols <- c("HB", "Month", "TotalPatientsSeen")
 #'
 #' df <- get_resource(res_id = res_id, row_filters = filters, col_select = wanted_cols)
 get_resource <- function(res_id, rows = NULL, row_filters = NULL, col_select = NULL) {
   # check res_id
   check_res_id(res_id)
 

R/get_resource_sql.R

@@ -25,9 +25,8 @@
 #'
 #' ```sql = "SELECT * FROM \"<res_id>\" WHERE \"Age\" = '34'"```.
 #'
 #' @seealso [get_resource()] for downloading a resource without using a SQL query.
 #'
-#' @importFrom magrittr %>%
 #' @return a [tibble][tibble::tibble-package] with the query results.
 #' Only 32,000 rows can be returned from a single SQL query.
 #' @export

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