PostgreSQL(...) "TSconnect"(q, dbname, host = if(!is.null(Sys.getenv("PGHOST"))) Sys.getenv("PGHOST") else "localhost", ...) "TSget"(serIDs, con=getOption("TSconnection"), TSrepresentation=getOption("TSrepresentation"), tf=NULL, start=tfstart(tf), end=tfend(tf), names=NULL, TSdescription=FALSE, TSdoc=FALSE, TSlabel=FALSE, TSsource=TRUE, vintage=getOption("TSvintage"), panel=getOption("TSpanel"), ...) "TSput"(x, serIDs, con, Table=NULL, TSdescription.=TSdescription(x), TSdoc.=TSdoc(x), TSlabel.=TSlabel(x), TSsource.=TSsource(x), vintage=getOption("TSvintage"), panel=getOption("TSpanel"), ...) "TSdates"(serIDs, con, vintage=getOption("TSvintage"), panel=getOption("TSpanel"), ...) "TSdelete"(serIDs, con, vintage=getOption("TSvintage"), panel=getOption("TSpanel"), ...) "TSdescription"(x, con, ...) "TSdoc"(x, con, ...) "TSlabel"(x, con, ...) "TSsource"(x, con, ...) "TSvintages"(con)
q
is a database connection object.tfwindow
.)tfwindow
.)tfwindow
.)dbConnect
.
See the TSdbi for details and see
the vignette distributed with packageTSdata for more complete examples.
Package TSsql is required for functions createTSdbTables() and
removeTSdbTables().
Typically createTSdbTables() will only be done once, and the tables
will not be removed. These steps are done in the example below.
TSdbi-package
,
dbConnect
,
TSput
require("tfplot") ## Not run: # conInit <- RPostgreSQL::dbConnect("PostgreSQL", dbname="test") # TSsql::createTSdbTables(conInit, index=FALSE) # con <- TSconnect("PostgreSQL", dbname="test") # z <- ts(rnorm(100), start=c(1975,1), frequency=12) # seriesNames(z) <- "random1" # if(TSexists("random1", con)) TSreplace(z, con) else # TSput(z, con) # z1 <- TSget("random1", con) # tfplot(z1) # z <- ts(matrix(rnorm(100),50,2), start=c(1975,1), frequency=4) # seriesNames(z) <- c("random2","random3") # if(TSexists("random2", con) | # TSexists("random3", con) ) TSreplace(z, con) else # TSput(z, con) # z2 <- TSget("random2", con) # tfplot(z2) # TSdates("D1", con) # TSdates("random2", con) # TSdates(c("random1","random2","random3"), con) # TSmeta("random2", con) # options(TSconnection=con) # z2 <- TSget(c("random2","random3")) # z <- TSdates(c("D1","random2","random3")) # print(z) # TSmeta("random2") # TSdelete("random1", con) # TSdelete("random2") # TSsql::removeTSdbTables(con, # yesIknowWhatIamDoing=TRUE, ToLower=TRUE) # ## End(Not run)
Run the code above in your browser using DataCamp Workspace