Merge pull request #84 from inbo/Remove-doc-helper-functions

Remove doc helper functions

R/get_animals.R

@@ -82,6 +82,10 @@ get_animals <- function(connection,
 #' This function retrieves all unique scientific names
 #' @param connection A valid connection to ETN database.
 #'
+#' @keywords internal
+#'
+#' @noRd
+#'
 #' @importFrom glue glue_sql
 #' @importFrom DBI dbGetQuery
 #'

R/get_detections.R

@@ -174,7 +174,9 @@ get_detections <- function(connection, network_project = NULL,
 #'
 #' @param connection A valid connection to ETN database.
 #'
-#' @export
+#' @keywords internal
+#'
+#' @noRd
 #'
 #' @importFrom glue glue_sql
 #' @importFrom DBI dbGetQuery

R/zzz.R

@@ -5,6 +5,10 @@ MAX_PRINT <- 20
 #'
 #' @param connection A valid connection with the ETN database.
 #'
+#' @keywords internal
+#'
+#' @noRd
+#'
 #' @importFrom methods is
 #'
 check_connection  <- function(connection) {
@@ -21,6 +25,10 @@ check_connection  <- function(connection) {
 #'
 #' @return If no error, TRUE.
 #'
+#' @keywords internal
+#'
+#' @noRd
+#'
 #' @importFrom assertthat assert_that
 #' @importFrom glue glue
 #'
@@ -79,6 +87,10 @@ check_null_or_value <- function(arg, options = NULL, arg_name) {
 #' @param regex A regular expression to parse
 #' @param ... Additional arguments passed to the collapse
 #'
+#' @keywords internal
+#'
+#' @noRd
+#'
 #' @importFrom glue glue_collapse
 collapse_transformer <- function(regex = "[*]$", ...) {
   function(code, envir) {
@@ -100,6 +112,9 @@ collapse_transformer <- function(regex = "[*]$", ...) {
 #'
 #' @return FALSE | character
 #'
+#' @keywords internal
+#'
+#' @noRd
 #'
 #' @importFrom glue glue
 #' @importFrom lubridate parse_date_time
@@ -126,4 +141,3 @@ check_datetime <- function(datetime, date_name = "start_date") {
       } })
   as.character(parsed)
 }
-