cleaner example

ref #485
OuhscBbmc · Jul 9, 2023 · 7cd2678 · 7cd2678
1 parent c3d7a09
commit 7cd2678
Showing 1 changed file with 15 additions and 16 deletions.
diff --git a/R/validate.R b/R/validate.R
@@ -105,27 +105,26 @@
 #'
 #' d2 <- tibble::tribble(
 #'   ~record_id, ~redcap_event_name, ~redcap_repeat_instrument, ~redcap_repeat_instance,
-#'   1L,"e1", "i1", 1L,
-#'   1L,"e1", "i1", 2L,
-#'   1L,"e1", "i1", 3L,
-#'   1L,"e1", "i1", 4L,
-#'   1L,"e1", "i2", 1L,
-#'   1L,"e1", "i2", 2L,
-#'   1L,"e1", "i2", 3L,
-#'   1L,"e1", "i2", 4L,
-#'   2L,"e1", "i1", 1L,
-#'   2L,"e1", "i1", 2L,
-#'   2L,"e1", "i1", 3L,
-#'   2L,"e1", "i1", 4L,
+#'   1L, "e1", "i1", 1L,
+#'   1L, "e1", "i1", 2L,
+#'   1L, "e1", "i1", 3L,
+#'   1L, "e1", "i1", 4L,
+#'   1L, "e1", "i2", 1L,
+#'   1L, "e1", "i2", 2L,
+#'   1L, "e1", "i2", 3L,
+#'   1L, "e1", "i2", 4L,
+#'   2L, "e1", "i1", 1L,
+#'   2L, "e1", "i1", 2L,
+#'   2L, "e1", "i1", 3L,
+#'   2L, "e1", "i1", 4L,
 #' )
 #' validate_uniqueness(d2)
 #'
 #' d3 <- tibble::tribble(
 #'   ~record_id, ~redcap_event_name, ~redcap_repeat_instrument, ~redcap_repeat_instance,
-#'   1L,"e1", "i1", 1L,
-#'   1L,"e1", "i1", 2L,
-#'   1L,"e1", "i1", 3L,
-#'   1L,"e1", "i1", 3L
+#'   1L, "e1", "i1", 1L,
+#'   1L, "e1", "i1", 3L,
+#'   1L, "e1", "i1", 3L,
 #' )
 #' # Throws error:
 #' # validate_uniqueness(d3)