# NOT RUN {
# }
# NOT RUN {
# Storing different versions of the data, use parameter valid_from
# different versions are stored with the same key
ch.kof.barometer <- kof_ts["baro_2019m11"]
names(ch.kof.barometer) <- c("ch.kof.barometer")
db_ts_store(
con = connection,
ch.kof.barometer,
valid_from = "2019-12-01",
schema = "schema"
)
ch.kof.barometer <- kof_ts["baro_2019m12"]
names(ch.kof.barometer) <- c("ch.kof.barometer")
db_ts_store(
con = connection,
ch.kof.barometer,
valid_from = "2020-01-01",
schema = "schema"
)
db_dataset_create(
con = connection,
set_name = "barometer",
set_description = "KOF Barometer",
schema = "schema"
)
db_ts_assign_dataset(
con = connection,
ts_keys = "ch.kof.barometer",
set_name = "barometer",
schema = "schema"
)
db_dataset_trim_history(
con = connection,
set_id = "barometer",
older_than = "2019-12-31",
schema = "schema"
)
# }
Run the code above in your browser using DataLab