Fixed issues for CRAN submission.

DESCRIPTION

@@ -13,9 +13,8 @@ Authors@R:
            role = c("aut", "cre"),
            email = "luca.belmonte@efsa.europa.eu",
            comment = c(ORCID = "0000-0002-7977-9170")))
-Description: Brings together all the functions developed for EFSA's ad hoc data
-  collections, providing tools for dataset operations as well as utilities
-  designed to preserve data history.
+Description: Provides tools for dataset operations as well as utilities
+  designed to preserve data history within EFSA's ad hoc data collections.
 License: EUPL-1.2
 URL: https://openefsa.github.io/EFSATools/
 BugReports: https://github.com/openefsa/EFSATools/issues

R/SCD2.R

@@ -28,8 +28,20 @@
 #' 4. Gets the current active records that are not present in the new data
 #'   (i.e., the records to deactivate) and deactivates them.
 #' 
-#' @examplesIf FALSE
-#' mergedData <- SCD2(newData = iris, currentData = iris)
+#' @examples
+#' currentData_ <- tibble::tribble(
+#'   ~id, ~colA, ~colB, ~colC, ~IS_ACTIVE, ~START_DATE, ~END_DATE,
+#'   1, "a1", "b1", "c1", TRUE, Sys.time(), as.Date(NA),
+#'   2, "a2", "b2", "c2", TRUE, Sys.time(), as.Date(NA),
+#'   3, "a3", "b3", "c3", TRUE, Sys.time(), as.Date(NA))
+#' 
+#' newData_ <- tibble::tribble(
+#'   ~id, ~colA, ~colB, ~colC,
+#'   1, "a1", "b1", "c1",
+#'   2, "a2", "b2", "c20",
+#'   3, "a4", "b4", "c4")
+#' 
+#' mergedData <- SCD2(newData = newData_, currentData = currentData_)
 #' 
 #' @export
 #' 

R/SSCD2.R

@@ -18,8 +18,20 @@
 #' @importFrom checkmate assert_data_frame
 #' @importFrom dplyr bind_rows
 #' 
-#' @examplesIf FALSE
-#' mergedData <- SSCD2(newData = iris, currentData = iris)
+#' @examples
+#' currentData_ <- tibble::tribble(
+#'   ~id, ~colA, ~colB, ~colC, ~IS_ACTIVE, ~START_DATE, ~END_DATE,
+#'   1, "a1", "b1", "c1", TRUE, Sys.time(), as.Date(NA),
+#'   2, "a2", "b2", "c2", TRUE, Sys.time(), as.Date(NA),
+#'   3, "a3", "b3", "c3", TRUE, Sys.time(), as.Date(NA))
+#' 
+#' newData_ <- tibble::tribble(
+#'   ~id, ~colA, ~colB, ~colC,
+#'   1, "a1", "b1", "c1",
+#'   2, "a2", "b2", "c20",
+#'   3, "a4", "b4", "c4")
+#' 
+#' mergedData <- SSCD2(newData = newData_, currentData = currentData_)
 #' 
 #' @export
 #' 

R/activate.R

@@ -11,9 +11,6 @@
 #' @importFrom checkmate assert_data_frame
 #' @importFrom dplyr mutate
 #'
-#' @examplesIf FALSE
-#' activatedDataframe <- .activate(dataframe = dataframe)
-#'
 #' @keywords internal
 #' @noRd
 #' 

R/deactivate.R

@@ -11,9 +11,6 @@
 #' @importFrom checkmate assert_data_frame
 #' @importFrom dplyr mutate
 #'
-#' @examplesIf FALSE
-#' deactivatedDataframe <- .deactivate(dataframe = dataframe)
-#'
 #' @keywords internal
 #' @noRd
 #' 

R/dropEmpty.R

@@ -12,14 +12,16 @@
 #' @importFrom checkmate assert_data_frame
 #' @importFrom dplyr filter select where mutate_all
 #' 
-#' @examplesIf FALSE
+#' @examples
 #' # The first row is going to be dropped.
-#' iris[1, ] <- NA
-#' iris <- dropEmpty(iris)
+#' irisTest_ <- iris
+#' irisTest_[1, ] <- NA
+#' irisTestDropped <- dropEmpty(irisTest_)
 #' 
 #' # The Species column is going to be dropped.
-#' iris$Species <- NA
-#' iris <- dropEmpty(iris)
+#' irisTest_ <- iris
+#' irisTest_$Test <- NA
+#' irisTestDropped <- dropEmpty(irisTest_)
 #' 
 #' @export
 #' 

R/enrich.R

@@ -20,12 +20,12 @@
 #' @importFrom dplyr select mutate left_join
 #' @importFrom rlang .data :=
 #'
-#' @examplesIf FALSE
+#' @examples
 #' dataframe_ <- iris |> dplyr::rename(CODE = Species)
 #' 
 #' catalogue_ <- iris |>
 #'   dplyr::rename(CODE = Species) |>
-#'   dplyr::mutate(NAME = "data") |>
+#'   dplyr::mutate(NAME = "test") |>
 #'   dplyr::select(CODE, NAME) |>
 #'   unique()
 #' 

R/removeReplicatedColumns.R

@@ -28,13 +28,14 @@
 #' replaced with NAs. Finally, the new column is bound with the other columns of
 #' the initial dataframe.
 #'
-#' @examplesIf FALSE
-#' iris$Species_1 <- iris$Species
-#' iris$Species_2 <- iris$Species
-#' iris$Species <- NULL
+#' @examples
+#' irisTest_ <- iris
+#' irisTest_$Species_1 <- irisTest_$Species
+#' irisTest_$Species_2 <- irisTest_$Species
+#' irisTest_$Species <- NULL
 #' 
 #' deduplicatedDataframe_ <- removeReplicatedColumns(
-#'   dataframe = iris,
+#'   dataframe = irisTest_,
 #'   prefix = "Species_")
 #'
 #' @export