Use latest changes in KWB_documents (2019-07-09)

Author: mrustl

R/check_for_differences.R

@@ -17,8 +17,8 @@
 #' ### Check differences between two different versions of "KWB_documents.xml"
 #' ############################################################################
 #'
-#' old_xml <- extdata_file("2019-01-07_KWB_documents.xml")
-#' new_xml <- extdata_file("2019-01-14_KWB_documents.xml")
+#' old_xml <- extdata_file("2019-01-14_KWB_documents.xml")
+#' new_xml <- extdata_file("2019-07-09_KWB_documents.xml")
 #' old_list <- kwb.endnote::create_endnote_list(old_xml)
 #' new_list <- kwb.endnote::create_endnote_list(new_xml)
 #' old_df <- kwb.endnote::create_references_df(old_list)

R/helper.R

@@ -20,7 +20,7 @@ colname_i <- function(name, i) {
 #' @export
 #'
 default_xml <- function() {
-  extdata_file("2019-01-07_KWB_documents.xml")
+  extdata_file("2019-07-09_KWB_documents.xml")
 }
 
 # first_of_element -------------------------------------------------------------

inst/extdata/2019-01-14_KWB_documents.xml

@@ -23,10 +23,12 @@ knitr::opts_chunk$set(
 library(kwb.endnote)
 
 ## Path to ENDNOTE XML 
-endnote_xml <- kwb.endnote::default_xml()
+endnote_xml <-  kwb.endnote::default_xml()
 endnote_list <- kwb.endnote::create_endnote_list(endnote_xml)
 ```
 
+The imported Endnote XML library is: `r basename(endnote_xml)`
+
 ## Check Import 
 
 ### Use Case 1: Unclean/Clean Versions
@@ -53,8 +55,8 @@ diffs_df %>%
 
 ```{r echo=TRUE}
 
-en_old_xml <- kwb.endnote::extdata_file("2019-01-07_KWB_documents.xml")
-en_new_xml <- kwb.endnote::extdata_file("2019-01-14_KWB_documents.xml")
+en_old_xml <- kwb.endnote::extdata_file("2019-01-14_KWB_documents.xml")
+en_new_xml <- kwb.endnote::extdata_file("2019-07-09_KWB_documents.xml")
 
 en_old_list <- kwb.endnote::create_endnote_list(en_old_xml)
 en_new_list <- kwb.endnote::create_endnote_list(en_new_xml)