From b71dcf9804b2720d60b43c261a08f8eab30ca87e Mon Sep 17 00:00:00 2001
From: Trevor Riley <89118428+TNRiley@users.noreply.github.com>
Date: Thu, 23 May 2024 22:47:58 -0400
Subject: [PATCH] Update dedup.R

Enhanced examples in dedup_citations function documentation
---
 R/dedup.R | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/R/dedup.R b/R/dedup.R
index c4af832..5b897bf 100644
--- a/R/dedup.R
+++ b/R/dedup.R
@@ -8,14 +8,17 @@
 #' @param manual logical. If TRUE, manually specify pairs of duplicates to merge. Default is FALSE.
 #' @param show_unknown_tags When a label, source, or other merged field is missing, do you want this to show as "unknown"?
 #' @return unique citations formatted for CiteSource
+#'
 #' @examples
 #' # Load example data from the package
 #' examplecitations_path <- system.file("extdata", "examplecitations.rds", package = "CiteSource")
 #' examplecitations <- readRDS(examplecitations_path)
 #'
-#' # Deduplicate citations
+#' # Deduplicate citations without manually specifying pairs and without showing unknown tags
 #' dedup_results <- dedup_citations(examplecitations)
-#' 
+#'
+#' # Deduplicate citations with manual specification of pairs and showing unknown tags
+#' dedup_results_manual_unknown <- dedup_citations(examplecitations, manual = TRUE, show_unknown_tags = TRUE)
 
 dedup_citations <- function(raw_citations, manual=FALSE, show_unknown_tags=FALSE){