|
@ -26,7 +26,7 @@ sqlBackUp<-function(dbfile=file,bu.dir){ |
|
|
file.copy(dbfile, cp_bu) |
|
|
file.copy(dbfile, cp_bu) |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
sqlShowSamples<-function(conn=dta, nhcs=nhc.test, verb=F){ |
|
|
|
|
|
|
|
|
sqlShowSamples<-function(conn=dta, nhcs=nhc.test, verb=F, dbtype){ |
|
|
if (isFALSE(verb)){ |
|
|
if (isFALSE(verb)){ |
|
|
sqlQuery(conn, "SELECT O.NHC,S.* |
|
|
sqlQuery(conn, "SELECT O.NHC,S.* |
|
|
FROM SAMPLES S |
|
|
FROM SAMPLES S |
|
|