用 R 获取中国国债收益率曲线数据

这里直接给出代码如下，读者自行体验。 get_cn_gb_yield = function(from, to) { # 规范化日期格式 from = lubridate::ymd(from) to = lubridate::ymd(to) # 参数检查，参数输入错误后给出必要的提示 test.internet <- curl::has_internet() if (!test.internet) { stop('没有发现网络链接…') } if (is.na(as.Date(as.character(from), format = '%Y-%m-%d')) | is.na(as.Date(as.character(to), format = '%Y-%m-%d'))) { stop('输入的起止日期参数必须是包含年月日的字符。') } if ( to < from ) { stop('发现期初日期 > 期末日期，你把两者弄混了吗？') } if ( to > …