javascript - 使用 googleVis & R 为基于订阅的站点提供 Web 开发建议

Question

我正在开发一个基于订阅的网站，该网站将提供自定义金融交易指标，我需要建议。使用 R 上的 googleVis 包，我每 30 分钟以 .html 格式导出新图表，这些图表使用一些有限的 Javascript 来实现交互性。由于易于使用和易于访问的订阅管理插件，我最初考虑使用 Wordpress 作为我的 CMS，但它对 Javascript 的限制使我无法自动完成更新。 (我必须每 30 分钟手动更新一次网站)

因此，我现在正在考虑我的其他选择。我在我的 VPS 上简单地试用了 Joomla，但它似乎也有一些关于 Javascript 的怪癖。我在网站开发方面的经验一般，所以我将不得不依赖现有的产品来进行网站 build ，尤其是客户订阅管理。

我意识到这是一个非常开放的请求，但我只是想从那些比我更有经验的人那里寻找一些方向。任何输入将不胜感激。

Answer 1

这是我的流程的一个玩具示例，供您试用:

请注意，这已更新以适应 wpautop。如果您不从上传的片段中删除所有间距，googleVis javascript 就会损坏。下面实现了这一点。

测试.Rmd

# Title

```{r}
suppressPackageStartupMessages(library(googleVis))
# From example(gvisBarchart)
df=data.frame(country=c("US", "GB", "BR"), val1=c(1,3,4), val2=c(23,12,32))
Bar1 <- gvisBarChart(df, xvar="country", yvar=c("val1", "val2"))

```

## GoogleVis Plot

```{r results='asis'}
print(Bar1, "chart")
```

现在你需要一个脚本将它们全部放在一起，可以在你的服务器上使用 R/path/to/your/file.r 之类的东西进行计时不要忘记打开xmlrpc 在您的 wordpress 设置中。您还必须记住在 wordpress 主题的头部添加对 javascript 库的调用。

file.r//记录这个文件!

library(RWordPress)
library(knitr)
library(markdown)

# Setup your Wordpress information    

options(WordpressLogin = c('USERNAME'= "YOURPASS"),
WordpressURL = "http://web.address/xmlrpc.php")

knit("/path/to/test.Rmd","/path/to/test.md")
markdownToHTML("/path/to/test.md","/path/to/test.html",fragment.only=TRUE)

tmp <- getRecentPostTitles(100) # Hackish
id <- tmp$postid[which(tmp$title == title)] # Get id of same title post

post <- readLines("path/to/test.html")

# Trim Function Courtesy of 
# http://stackoverflow.com/questions/2261079/whitespace-in-r
trim <- function (x) gsub("^\\s+|\\s+$", "", x)

post <- trim(post) # Dump whitespace
post <- post[-which(post == "")] # remove line breaks to avoid wpautop()  

if(length(id) > 0) {
deletePost(postid)
}

newPost(
    list(
      description=paste(post,collapse="\n"),
      title="Post Title",
    ),
    publish=TRUE)