version 0.0.4

cran · Feb 25, 2019 · 91d0720 · 91d0720
1 parent e9ae550
commit 91d0720
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 8 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: rSPARCS
 Type: Package
 Title: Statistical Package for Analysis Related Cleaning Support
-Version: 0.0.3
+Version: 0.0.4
 Author: Wangjian Zhang, Zhicheng Du, Ziqiang Lin, Jijin Yao, Yanan Jin, Wayne R. Lawrence, Yuantao Hao
 Maintainer: Wangjian Zhang <wzhang27@albany.edu>
 Description: To clean and analyze hospital data, and generate sets for statistical modeling.
@@ -10,6 +10,6 @@ Encoding: UTF-8
 LazyData: true
 Imports: foreign,data.table,spatialEco,geosphere,tigris,raster,sp,plyr
 NeedsCompilation: no
-Packaged: 2019-01-29 19:16:49 UTC; wz913947
+Packaged: 2019-02-25 14:38:34 UTC; wz913947
 Repository: CRAN
-Date/Publication: 2019-01-29 19:40:03 UTC
+Date/Publication: 2019-02-25 15:30:03 UTC
diff --git a/MD5 b/MD5
@@ -1,6 +1,6 @@
-804caea7ab849300fd6593adbc86c2b7 *DESCRIPTION
+bb56d8424873b6c60bc07b213619a5c0 *DESCRIPTION
 4adb2b4fbf1a35bacfa745fd0c8d58d7 *NAMESPACE
-4db45197f2a5182d3b17a4b132879f5d *R/CXover.data.R
+13f2d2c5342634658764c01e0c7182d5 *R/CXover.data.R
 8b16ea8364b938775656e504a8db1e3e *R/DBFgeocode.R
 284056b5ab71b75ddd7420f09e6d91cf *R/FIPS.name.R
 ab216426bc16c71407a1ab610681ce5a *R/case.series.R

diff --git a/R/CXover.data.R b/R/CXover.data.R
@@ -1,4 +1,5 @@
 CXover.data=function(data,date,ID=NULL,direction="pre4"){
+  name=names(data)
   if(length(ID)==0) data$ID=1:nrow(data) else data$ID=factor(data[,ID],levels=unique(data[,ID]))
   test=as.character(data[,date])
   test=test[test!=""&!is.na(test)]
@@ -19,7 +20,6 @@ CXover.data=function(data,date,ID=NULL,direction="pre4"){
   data$date6_1=substr(data$date6,6,7)
   data$date7_1=substr(data$date7,6,7)
   data$date8_1=substr(data$date8,6,7)
-
   if(direction=="pre4") data$date5=data$date6=data$date7=data$date8=NA
   if(direction=="month4"){
     data$d1_1=substr(data$d1,6,7)
@@ -33,11 +33,11 @@ CXover.data=function(data,date,ID=NULL,direction="pre4"){
     data$date8=ifelse(data$date8_1==data$d1_1,data$date8,NA)
   }
   if(direction!="pre4"&direction!="month4") print("You may contact author (wzhang27@albany.edu) to add more options")
-  output=data[,c("ID","d1")]
+  output=data[,c("ID","d1",name)]
   names(output)[2]="Date"
   output$status=1
   for(j in 1:8){
-    test=data[,c("ID",paste("date",j,sep=""))]
+    test=data[,c("ID",paste("date",j,sep=""),name)]
     names(test)[2]="Date"
     test=test[which(!is.na(test$Date)),]
     if(nrow(test)>0){