View source: R/pub03_DatabaseOperationFuncs.R
lcdb.update.QT_sus_res
1 2 3 4 5 | lcdb.init.QT_sus_res(begT = 19901231, endT = 99990101)
lcdb.update.QT_sus_res(endT, stockID)
lcdb.update.QT_sus_res_bugsFinding()
|
1 2 3 4 5 6 7 8 9 10 11 12 | #-- initiate:
lcdb.init.QT_sus_res(19901231,19950630)
#-- update:
dates <- c(seq(as.Date("1998-12-31"),to = Sys.Date(),by = "year"),Sys.Date())
dates <- rdate2int(dates)
for(date in dates){
message(paste("updating to ",date,"..."))
lcdb.update.QT_sus_res(endT=date)
}
#-- fix the bugs
bugs <- lcdb.update.QT_sus_res_bugsFinding()
lcdb.update.QT_sus_res(stockID=bugs)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.