Replace remainder noRd

Author: averissimo

R/check_selector.R

@@ -17,7 +17,8 @@ check_selector_dataname <- function(dataname) {
 #'
 #' @return Raises an error when the check fails, otherwise it returns `NULL`, invisibly.
 #'
-#' @noRd
+#' @keywords internal
+#'
 check_selector_filters <- function(filters) {
   check_selector_filter <- function(x) {
     is.list(x) &&
@@ -39,7 +40,8 @@ check_selector_filters <- function(filters) {
 #' @return Raises an error when check fails, otherwise, it returns the `select`
 #' parameter, invisibly and unchanged.
 #'
-#' @noRd
+#' @keywords internal
+#'
 check_selector_select <- function(select) {
   checkmate::assert_character(select)
 }
@@ -51,7 +53,8 @@ check_selector_select <- function(select) {
 #' @return Raises an error when check fails, otherwise, it returns the `keys`
 #' parameter, invisibly and unchanged.
 #'
-#' @noRd
+#' @keywords internal
+#'
 check_selector_keys <- function(keys) {
   checkmate::assert_character(keys, min.len = 0L, any.missing = FALSE)
 }
@@ -63,7 +66,8 @@ check_selector_keys <- function(keys) {
 #' @return Raises an error when check fails, otherwise, it returns the `reshape`
 #' parameter, invisibly and unchanged.
 #'
-#' @noRd
+#' @keywords internal
+#'
 check_selector_reshape <- function(reshape) {
   checkmate::assert_flag(reshape)
 }
@@ -75,7 +79,8 @@ check_selector_reshape <- function(reshape) {
 #' @return Raises an error when check fails, otherwise, it returns the `internal_id`
 #' parameter, invisibly and unchanged.
 #'
-#' @noRd
+#' @keywords internal
+#'
 check_selector_internal_id <- function(internal_id) {
   checkmate::assert_string(internal_id)
 }
@@ -87,7 +92,8 @@ check_selector_internal_id <- function(internal_id) {
 #' @return Raises an error when check fails, otherwise, it returns the `selector`
 #' parameter, invisibly and unchanged.
 #'
-#' @noRd
+#' @keywords internal
+#'
 check_selector <- function(selector) {
   # An error from the checks below is transformed to a shiny::validate error
   # so shiny can display it in grey not in red in an application

R/data_extract_module.R

@@ -5,7 +5,8 @@
 #' @return Raises an error when check fails, otherwise, it returns the `data_extract_spec`
 #' parameter, invisibly and unchanged.
 #'
-#' @noRd
+#' @keywords internal
+#'
 check_data_extract_spec <- function(data_extract_spec) {
   checkmate::assert_list(data_extract_spec, types = "data_extract_spec", null.ok = TRUE)
 }
@@ -16,7 +17,8 @@ check_data_extract_spec <- function(data_extract_spec) {
 #'
 #' @return `character(1)`.
 #'
-#' @noRd
+#' @keywords internal
+#'
 id_for_dataset <- function(dataname) {
   paste0("dataset_", dataname, "_singleextract")
 }

R/merge_data_utils.R

@@ -4,7 +4,8 @@
 #'
 #' @return Raises an error when check fails, otherwise, it returns `NULL`, invisibly.
 #'
-#' @noRd
+#' @keywords internal
+#'
 check_merge_function <- function(merge_function) {
   checkmate::assert_string(merge_function)
   stopifnot(length(intersect(methods::formalArgs(eval(rlang::parse_expr(merge_function))), c("x", "y", "by"))) == 3)

R/utils.R

@@ -173,7 +173,8 @@ compose_and_enable_validators <- function(iv, selector_list, validator_names = N
 #'
 #' @return List of `reactive` expressions that contains all the individual `datasets`.
 #'
-#' @noRd
+#' @keywords internal
+#'
 convert_teal_data <- function(datasets) {
   if (is.list(datasets)) {
     sapply(X = datasets, simplify = FALSE, FUN = function(x) {