json - 在R中将markdown转换为json

Question

以下是我要执行的步骤：

1. 将降价文件（见下文）读入 R
2. 将 markdown 文本转换为 JSON
3. 在 API POST 调用中发送 JSON

例如。降价文本文件：

## This is a list

+ one
+ two
+ three

#### Do a thing
```coffee
points <- rnorm(10)
plot(points)
```

#### Do something else

![](someimage)

第 1 步和第 3 步很简单，但第 2 步是我没有得到的。调用rjson::toJSON或未RJSONIO::toJSON正确格式化输出 JSON。有谁知道这样做的方法。github 上的这个 README有一个看起来不错的降价到 JSON 转换的示例。

Answer 1

rCharts 有几个实用功能可以轻松做到这一点。我假设您的 Rmd 文件保存为test.Rmd. 您可以在此处查看已发布的要点

require(rCharts)
payload = create_gist('test.Rmd', description = 'Testing Md to Gist')
post_gist(payload, viewer = 'http://gist.github.com/')

这是你要找的吗？

更新：如果您想更新您创建的要点，您可以使用该update_gist函数，并将要点 id 传递给它。

update_gist(payload, id, viewer = 'http://gist.github.com/')

options(github.username = ..., github.password = ...)如果您不想在 R 控制台中输入用户名和密码，则可以使用。