add @export for stopifnot #161

NAMESPACE

@@ -67,6 +67,7 @@ export(pull_catch)
 export(pull_gemm)
 export(pull_haul)
 export(pull_spp)
+export(stopifnotcolumn)
 export(wh_plot_proportion)
 import(chron)
 import(cli)

R/stopifnot.R

@@ -9,6 +9,8 @@
 #' @return `TRUE` is invisibly returned if the column name is found and
 #' an informative [stop] call is initiated if the column is not present.
 #'
+#' @export
+#'
 stopifnotcolumn <- function(data, string) {
   if (is.na(match(string, colnames(data)))) {
     stop(string, " was not found in your data frame.")