data-raw/sysdata.R

In ShichenXie/getpedr: Public Economic Data and Quantitative Analysis

## Internal data # http://r-pkgs.had.co.nz/data.html
if (FALSE) {
  
  # # china district
  # library(RSelenium); library(rvest); library(httr); library(data.table)
  # code_china_district = admin_div_cn(admin_level = 3)
  # code_china_district = admin_mca()
  
  # # country currency
  # cc = dim_country_currency()
  # code_country = cc$country
  # code_currency = cc$currency
  
  # # 
    financial_statements_163 = fread('
    type, name, name_en, urls
       fs0_summary, 财务报表摘要, Financial Statements Summary, http://quotes.money.163.com/service/cwbbzy_%s.html
        fs1_income, 利润表, Income Statement, http://quotes.money.163.com/service/lrb_%s.html
       fs2_balance, 资产负债表, Balance Sheet, http://quotes.money.163.com/service/zcfzb_%s.html
      fs3_cashflow, 现金流量表, CashFlow Statement, http://quotes.money.163.com/service/xjllb_%s.html
          fi0_main, 主要财务指标, Financial Indicators, http://quotes.money.163.com/service/zycwzb_%s.html?type=report
       fi1_earning, 盈利能力, Earning Capability, http://quotes.money.163.com/service/zycwzb_%s.html?type=report&part=ylnl
     fi2_repayment, 偿还能力, Repayment Capability, http://quotes.money.163.com/service/zycwzb_%s.html?type=report&part=chnl
        fi3_growth, 成长能力, Growth Capability, http://quotes.money.163.com/service/zycwzb_%s.html?type=report&part=cznl
     fi4_operation, 营运能力, Operation Capability, http://quotes.money.163.com/service/zycwzb_%s.html?type=report&part=yynl
    ')
    
  # # prov_indu_163
  
  # # symbol_stock_163
  # # update on 20200403
  # syb_stock1 = pedquant:::md_stock_spotall_163(symbol = c('a', 'b', 'index', 'fund'), to_sysdata=TRUE)
  # syb_stock2 = syb_stock1[
  #     ,.(market, symbol = gsub('[^0-9]', '', symbol), name, province, sector, industry)
  # ][market == 'index', symbol := paste0('^',symbol)][, market := NULL]
  # # syb_stock3 = pedquant:::md_fund_spotall_163()[market == 'index', symbol := paste0('^',symbol)][,.(symbol, name)]
  # symbol_stock_163 = setDF(
  #     setDT(
  #         rbind(syb_stock2, symbol_stock_163, fill=TRUE)
  #     )[,.SD[1], keyby=symbol
  #     ][grepl('^c.+', province), province := NA] )
    
    
    
  # # symbol_future_sina
  future1 = fread(
    'exchange symbol name board unit 
    DCE     V0  PVC     化工  人民币/吨
    DCE     L0  乙烯塑料    化工  人民币/吨
    DCE     PP0 聚丙烯PP    化工  人民币/吨
    DCE     EB0 苯乙烯  化工  人民币/吨
    DCE     EG0 乙二醇  化工  人民币/吨
    DCE     J0  焦炭    煤炭  人民币/吨
    DCE     JM0 焦煤    煤炭  人民币/吨
    DCE     A0  豆一    谷物   人民币/吨
    DCE     B0  豆二    油脂油料   人民币/吨
    DCE     M0  豆粕    油脂油料   人民币/吨
    DCE     Y0  豆油    油脂油料   人民币/吨
    DCE     C0  玉米    谷物   人民币/吨
    DCE     CS0 淀粉    谷物   人民币/吨
    DCE     RR0 粳米    谷物   人民币/吨
    DCE     JD0 鸡蛋    农副   人民币/500千克
    DCE     LH0 生猪    农副   人民币/吨
    DCE     I0  铁矿石  黑色金属   人民币/吨
    DCE     FB0 纤维板  轻工   人民币/立方米
    DCE     BB0 胶合板  轻工   人民币/张
    DCE     P0  棕榈    油脂油料    人民币/吨
    DCE     PG0 液化石油气 化工 人民币/吨
    SHFE    NR0 20号胶  化工   人民币/吨
    SHFE    SP0 纸浆    轻工   人民币/吨
    SHFE    SC0 原油    石油  人民币/桶
    SHFE    FU0 燃油    石油  人民币/吨
    SHFE    LU0 低硫燃料油  石油  人民币/吨
    SHFE    BU0 沥青    石油  人民币/吨
    SHFE    RU0 橡胶    化工  人民币/吨
    SHFE    AU0 黄金    贵金属   人民币/克
    SHFE    AG0 白银    贵金属   人民币/千克
    SHFE    BC0 国际铜  有色金属   人民币/吨
    SHFE    CU0 沪铜    有色金属   人民币/吨
    SHFE    SS0 不锈钢  黑色金属   人民币/吨
    SHFE    RB0 螺纹钢  黑色金属   人民币/吨
    SHFE    WR0 线材    黑色金属   人民币/吨
    SHFE    HC0 热轧卷板    黑色金属   人民币/吨
    SHFE    PB0 沪铅    有色金属   人民币/吨
    SHFE    AL0 沪铝    有色金属   人民币/吨
    SHFE    ZN0 沪锌    有色金属   人民币/吨
    SHFE    SN0 沪锡    有色金属   人民币/吨
    SHFE    NI0 沪镍    有色金属   人民币/吨
    SHFE    AO0 氧化铝 有色金属 人民币/吨
    SHFE    BR0 丁二烯橡胶 化工 人民币/吨
    SHFE    EC0 集运指数欧线 航运 指数点
    ZCE     TA0 PTA     化工  人民币/吨
    ZCE     ZC0 动力煤  煤炭  人民币/吨
    ZCE     MA0 郑醇    化工  人民币/吨
    ZCE     AP0 苹果    农副   人民币/吨
    ZCE     CJ0 红枣    农副   人民币/吨
    ZCE     PK0 花生    油脂油料   人民币/吨
    ZCE     RS0 菜籽    油脂油料   人民币/吨
    ZCE     RM0 菜粕    油脂油料   人民币/吨
    ZCE     OI0 菜油    油脂油料   人民币/吨
    ZCE     WH0 强麦    谷物   人民币/吨
    ZCE     JR0 粳稻    谷物   人民币/吨
    ZCE     RI0 早籼稻  谷物   人民币/吨
    ZCE     LR0 晚籼稻  谷物   人民币/吨
    ZCE     SF0 硅铁    黑色金属   人民币/吨
    ZCE     SM0 锰硅    黑色金属   人民币/吨
    ZCE     PF0 短纤    化工   人民币/吨
    ZCE     SA0 纯碱    化工   人民币/吨
    ZCE     UR0 尿素    化工   人民币/吨
    ZCE     FG0 玻璃    轻工   人民币/吨
    ZCE     SR0 白糖    软商品    人民币/吨
    ZCE     CF0 棉花    软商品    人民币/吨
    ZCE     CY0 棉纱    软商品    人民币/吨
    ZCE     SH0 烧碱    化工   人民币/吨
    ZCE     PX0 对二甲苯 化工  人民币/吨
    CFFEX   TS0 2年期国债   国债期货   百元净价报价
    CFFEX   TF0 5年期国债   国债期货   百元净价报价
    CFFEX   T0  10年期国债  国债期货   百元净价报价
    CFFEX   TL0  30年期国债  国债期货   百元净价报价
    CFFEX   IH0 上证50指数   股指期货   指数点
    CFFEX   IF0 沪深300指数  股指期货   指数点
    CFFEX   IC0 中证500指数  股指期货   指数点
    CFFEX   IM0 中证1000股指 股指期货   指数点
    GFEX    SI0 工业硅 有色金属 人民币/吨
    GFEX    LC0 碳酸锂 有色金属 人民币/吨')

  
  
  future2 = fread(
    'exchange board symbol name unit
CME-CBOT grain C 美国玉米 美分/蒲式耳
CME-CBOT grain W 美国小麦 美分/蒲式耳
CME-CBOT grain S 美国大豆 美分/蒲式耳
CME-CBOT grain SM 美黄豆粉 美元/短吨
CME-CBOT grain BO 美黄豆油 美分/磅
CME grain LHC 美瘦猪肉 美分/磅
ICE-NYBOT soft CT 美国棉花 美分/磅
ICE-NYBOT soft KC 美国咖啡 美分/磅
ICE-NYBOT soft RS 美国原糖 
MDEX soft FCPO 马棕油 令吉/吨
CME-COMEX metal GC 纽约黄金 美元/盎司
CME-COMEX metal SI 纽约白银 美元/盎司
interbank metal XAG 伦敦银 美元/盎司
interbank metal XAU 伦敦金 美元/盎司
interbank metal XPD 钯金期货 美元/盎司
interbank metal XPT 铂金期货 美元/盎司
CME-COMEX metal HG 美铜 美分/磅
LME metal CAD 伦铜 美元/吨
LME metal AHD 伦铝 美元/吨
LME metal NID 伦镍 美元/吨
LME metal PBD 伦铅 美元/吨
LME metal SND 伦锡 美元/吨
LME metal ZSD 伦锌 美元/吨
CME-COMEX energy CL WTI纽约原油 美元/桶
ICE energy OIL 布伦特原油 美元/桶
CME-NYMEX energy NG 美国天然气 美元/mmbtu
ICE energy EUA 欧洲碳排放 欧元/吨
CME financial BTC CME比特币期货 USD/BTC
CME financial YM 道琼斯指数期货
CME financial ES 标普500指数期货
CME financial NQ 纳斯达克指数期货
SGX financial NK 日经225指数期货
SGX financial CHA50CFD 富时中国A50指数
HKEX financial HSI 恒生指数期货
HKEX financial MCA MSCI中国A50指数
NA financial VX VIX恐慌指数期货', fill = TRUE)
  symbol_future_sina = setDF(rbind(future1, future2, fill=TRUE)[, exchange := toupper(exchange)])
  
  # # exchange
  # code_exchange_commodity = pedquant:::dim_exchange_commodity()
  # code_exchange_stock = pedquant:::dim_exchange_stock()
  
  # # holiday of china
  # holiday = setDF(ed_holiday(date_range = 'max'))
  
  fs_typ_em = setDF(fread('
    typ, nam, nam_en, report_name
    fs0_summary,  业绩报表,   Financial Statements Summary, RPT_LICO_FN_CPD
    fs1_income,   利润表,     Income Statement, RPT_DMSK_FN_INCOME
    fs2_balance,  资产负债表, Balance Sheet, RPT_DMSK_FN_BALANCE
    fs3_cashflow, 现金流量表, CashFlow Statement, RPT_DMSK_FN_CASHFLOW
    '))
  fs_colnam_em = 
      lapply(xefun::as.list2(c('fs0_summary', 'fs1_income', 'fs2_balance', 'fs3_cashflow')), function(x) {
          readxl::read_excel('../pedquant_ref/fscolsem.xlsx', sheet = x)
      }) |> 
      rbindlist(idcol = 'typ') |> 
      setDF()
  
  # usethis::use_data(code_china_district, code_country, code_currency, code_exchange_commodity, code_exchange_stock, fs_typ_em, fs_colnam_em, holiday, prov_indu_163, symbol_future_sina, symbol_stock_163, symbol_stooq, urls_pbc, internal = TRUE, overwrite = TRUE)
  
}