Add examples for c14_is_lab_id() and c14_fix_lab_id()

joeroe · Nov 1, 2024 · 56b600a · 56b600a
1 parent c195f86
commit 56b600a
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 0 deletions.
diff --git a/R/lab_id.R b/R/lab_id.R
@@ -119,6 +119,14 @@ c14_parse_lab_id <- function(x, fix = TRUE) {
 #' @export
 #'
 #' @examples
+#' # Valid formats
+#' c14_is_lab_id(c("OxA-1234", "OxA 1234", "OxA", "Gif/LSN_5678"))
+#'
+#' # Invalid formats
+#' c14_is_lab_id(c("1234", "1234-OxA"))
+#'
+#' # Fix
+#' c14_fix_lab_id(c("OxA", "Gif/LSN_5678", "Ki(KIEV)-1234"))
 c14_fix_lab_id <- function(x) {
   y <- x
 

diff --git a/man/c14_fix_lab_id.Rd b/man/c14_fix_lab_id.Rd