update multivis to 5/23/18

IBIC · May 24, 2018 · 344cd94 · 344cd94
1 parent ac67092
commit 344cd94
Show file tree

Hide file tree

Showing 4 changed files with 3 additions and 3 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -17,6 +17,6 @@ export(udallCheckDataWide)
 export(udallCleanREDCapDataWide)
 export(udallCrosscheckEntries)
 export(udallDemographicTable)
+export(udallGetAnalyze)
 export(udallProcessGnB)
 export(udallReplaceMissing)
-export(udallTimestamp)
diff --git a/R/udallCleanREDCapDataWide.R b/R/udallCleanREDCapDataWide.R
@@ -88,7 +88,7 @@ udallCleanREDCapDataWide <- function(dat, visit = 1) {
   # closest.colnames <- as.character(Codebook_PaNUC_2017_07_07$Stata_Variable_Name)
 
 
-  closest.colnames <- tolower(colnames(panuc_multivis_2018_03_30))
+  closest.colnames <- tolower(colnames(panuc_multivis_2018_05_23))
   closest.colnames <- closest.colnames[closest.colnames != ""]
   closest.colnames <- c("idnum",
                         closest.colnames[closest.colnames %in% colnames(dat)])

diff --git a/data/panuc_multivis_2018_05_23.rda b/data/panuc_multivis_2018_05_23.rda
diff --git a/getClosestVisits b/getClosestVisits
@@ -38,7 +38,7 @@ cdat <- udallCleanREDCapDataWide(dat, visit = 1)
 # Get the closest visits, comparing to the most recent multivis
 ## UPDATE THIS LINE WHEN NECESSARY
 closest.visits  <- getClosestACVisit(cdat,
-                                     multivis.df = panuc_multivis_2018_03_30)
+                                     multivis.df = panuc_multivis_2018_05_23)
 
 # Get the numeric id from the PWAXX-XXXX string
 idnum <- gsub("[^0-9]", "", closest.visits$summary_id)