|
@ -62,8 +62,8 @@ sqlShowSamples<-function(conn=dta, nhcs=nhc.test, verb=F, dbtype=NULL){ |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
sqlGenOVID<-function(conn=dta, nhcs=nhc.test, verb=T, sinc=F, dbtype=NULL){ |
|
|
sqlGenOVID<-function(conn=dta, nhcs=nhc.test, verb=T, sinc=F, dbtype=NULL){ |
|
|
if(sqlTables(dta) %>% filter(TABLE_NAME == "UMID") %>% nrow > 0){dbtype<-"UM"} |
|
|
|
|
|
if(sqlTables(dta) %>% filter(TABLE_NAME == "OVID") %>% nrow > 0){dbtype<-"OV"} |
|
|
|
|
|
|
|
|
if(sqlTables(conn) %>% filter(TABLE_NAME == "UMID") %>% nrow > 0){dbtype<-"UM"} |
|
|
|
|
|
if(sqlTables(conn) %>% filter(TABLE_NAME == "OVID") %>% nrow > 0){dbtype<-"OV"} |
|
|
|
|
|
|
|
|
if (dbtype == "OV"){ |
|
|
if (dbtype == "OV"){ |
|
|
db<-c("dbcode"="OVID") |
|
|
db<-c("dbcode"="OVID") |
|
|