Fix checks

DESCRIPTION

@@ -5,7 +5,7 @@ Authors@R: c(
     person("Chris", "Hartgerink", , "[email protected]", role = "cre",
            comment = c(ORCID = "0000-0003-1050-6809"))
   )
-Description: Provides tools to help label and validate data according to user-specified rules. The 'datatagr' class adds variable level attributes to 'data.frame'columns. Once labelled, these variables can be seamlessly used in downstream analyses, making data pipelines clearer, more robust, and more reliable.
+Description: Provides tools to help label and validate data according to user-specified rules. The 'datatagr' class adds variable level attributes to 'data.frame' columns. Once labelled, these variables can be seamlessly used in downstream analyses, making data pipelines clearer, more robust, and more reliable.
 License: MIT + file LICENSE
 URL: https://epiverse-trace.github.io/datatagr/, https://github.com/epiverse-trace/datatagr
 BugReports: https://github.com/epiverse-trace/datatagr/issues

R/datatagr-package.R

@@ -41,7 +41,7 @@
 #'   * `print()`: prints info about the `datatagr` in addition to the
 #'   `data.frame` or `tibble`
 #'
-#' @note The package does not aim to have complete integration with [dplyr]
+#' @note The package does not aim to have complete integration with \pkg{dplyr}
 #' functions. For example, [dplyr::mutate()] and [dplyr::bind_rows()] will
 #' not preserve labels. We only provide compatibility for [dplyr::rename()].
 #'

R/square_bracket.R

@@ -34,11 +34,11 @@
 #'   ## create a datatagr
 #'   x <- cars %>%
 #'     make_datatagr(
-#'       mph = "speed",
-#'       distance = "dist"
+#'       speed = "Miles per hour",
+#'       dist = "Distance in miles"
 #'     ) %>%
 #'     mutate(result = if_else(speed > 50, "fast", "slow")) %>%
-#'     set_labels(ticket = "result")
+#'     set_labels(result = "Ticket")
 #'   x
 #'
 #'   ## dangerous removal of a labelled column setting it to NULL issues a warning

R/type.R

@@ -18,10 +18,8 @@
 #'
 #' validate_types(
 #'   x,
-#'   types(
-#'     speed = type("numeric"),
-#'     dist = "integer"
-#'   )
+#'   speed = type("numeric"),
+#'   dist = "numeric"
 #' )
 #'
 type <- function(x) {

inst/WORDLIST

@@ -3,6 +3,8 @@ Codecov
 Lifecycle
 ORCID
 RECON
+Unlabeled
+dplyr
 lifecycle
 linelist
 tidyverse