聚合博客内容

欧阳松

2021-09-10

Categories: R bookdown css Tags: bookdown R

来自楚新元的blog内容：https://cxy.rbind.io/html/cy.html

例如，现在有一个博客地址是https://www.apreshill.com/blog/，这个网站右下角提供了 RSS 地址https://www.apreshill.com/blog/index.xml，复制这个地址，然后新建一个 .Rproj 项目，运行以下代码：

if (!dir.exists("content")) dir.create("content")
if (!dir.exists("content/post")) dir.create("content/post")
x = scifetch::getrss('https://www.apreshill.com/blog/index.xml')
for (i in 1:NROW(x)) {
  name = gsub("^http[s]?://|/$", "", tolower(x[i, 'linkTitle']))
  name = gsub("%", "", name)
  name = gsub("[^a-z0-9]+", "-", name)
  name = gsub("--+", "-", name)
  # file name too long issue
  name = substr(name, 1, 100)
  p = sprintf('content/post/%s.md', paste0(name))
  
  sink(p)
  cat('---\n')
  cat(yaml::as.yaml(x[i, ], ))
  cat('disable_comments: true\n')
  cat('---\n')
  cat(as.character(x[i, 5]))
  sink()
}

运行后看看 content/post 目录下是否成功生成有规律的 .md 文件，以验证该 RSS 地址是否可以聚合进我们的博客，如果生成了有规律的 .md 文件，那么这个地址就可以增加到 R/list 文件里。当然有的网站没有 RSS 按钮，一般情况，一个网站的 RSS 地址就是这个网站后面加上 index.xml 或者 feed。测试成功的地址，欢迎 PR（推送合并请求）或者给我发邮件等。在此先感谢各位 R 爱好者兄弟姐妹大力支持。

顺祝各位 R 爱好者心情愉快，一切顺利！

楚新元新疆财经大学

博士研究生

地址：新疆乌鲁木齐市北京中路449号

邮编：830012

个人主页：http://cxy.rbind.io

E-mail：chuxinyuan@outlook.com

聚合博客内容

欧阳松

2021-09-10

作者简介