Add noRd to non-exported functions

R/dst_correct_url.R

@@ -1,6 +1,7 @@
 #' Corrects url encoding for Danish letters.
 #'
 #' @param url A build url.
+#' @noRd
 dst_correct_url <- function(url) {
   url <- stringr::str_replace_all(
     string = url,

R/dst_date_parse.R

@@ -3,6 +3,7 @@
 #' @param dst_date A vector of length one or more with date formats like
 #'   1982M12D09, 1982M12, 1982Q4 or 1982
 #' @returns Returns the input date formatted to be Europe/Copenhagen
+#' @noRd
 dst_date_parse <- function(dst_date) {
   tz <- "Europe/Copenhagen"
 

R/dst_find_val_id.R

@@ -5,6 +5,7 @@
 #' @param variable The variable to search in.
 #' @param values_text Character vector. The values you want to extract the IDs
 #'   for. If NULL, the returned value will be "*".
+#' @noRd
 dst_find_val_id <- function(meta_data, variable, values_text = NULL) {
   names(meta_data$values) <- toupper(names(meta_data$values))
 

R/dst_meta_parse.R

@@ -9,6 +9,7 @@
 #' @param meta The returned meta data from the function meta_dst.
 #' @param lang The language from the orignal dst_meta function (due to an error
 #'   in the API)
+#' @noRd
 dst_meta_parse <- function(meta, lang) {
   # Get basic info on the table.
   # The basics contains a description on what

R/dst_query_match.R

@@ -7,6 +7,7 @@
 #' @param query query to match against
 #' @param format Format to specify match for csv import (not used)
 #'
+#' @noRd
 dst_query_match <- function(table, lang, meta_data, query, format) {
   # if no meta data is supplied we download this to match the request.
   if (is.null(meta_data)) {

R/dst_value_limit.R

@@ -4,6 +4,7 @@
 #'
 #' @param query Query object to analyse
 #' @param dst_meta Meta data to filer query with
+#' @noRd
 dst_value_limit <- function(query, dst_meta) {
   # is the element in the list a "*"?
   is_star <- lapply(query, function(x) {