# NOT RUN {
# }
# NOT RUN {
ts1 <- list(ts(rnorm(100), start = c(1990, 1), frequency = 4))
names(ts1) <- c("ts1")
db_ts_store(con = connection, ts1, schema = "schema")
db_ts_store(con = connection, zrh_airport, schema = "schema")
db_ts_store(con = connection, kof_ts, schema = "schema")
db_collection_add_ts(
con = connection,
collection_name = "barometer and departures zurich",
ts_keys = c(
"ch.zrh_airport.departure.total",
"ch.zrh_airport.departure.total",
"ch.kof.barometer"
),
schema = "schema"
)
db_collection_add_ts(
con = connection,
collection_name = "ts1 and departures zurich",
ts_keys = c(
"ch.zrh_airport.departure.total",
"ts1"
),
schema = "schema"
)
db_collection_list(
con = connection,
schema = "schema"
)
# }
Run the code above in your browser using DataLab