Javascript 使用googleVis&；R

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

因此，我现在正在考虑我的其他选择。我曾在我的VPS上尝试过Joomla，但它似乎也有一些关于Javascript的怪癖。我在网站开发方面只有适度的经验，所以我将不得不依赖于现有的产品进行网站建设，尤其是客户订阅管理

---

我意识到这是一个非常开放的要求，但我只是从那些比我更有经验的人那里寻找一些方向。如果您有任何意见，我们将不胜感激。

这里有一个关于我的流程的玩具示例供您使用：

注意，这已更新以适应wpautop。如果不删除上传片段中的所有间距，googleVis javascript将被破坏。下面的代码实现了这一点

测试Rmd

---

我做了很多类似的工作，建立了wordpress网站，提供商业智能和调查分析等方面的可搜索报告。最近，我一直在RStudio中使用R标记文档创建报告。使用readlines（）解析文件，然后再次使用pandoc清除积垢并使用RWordpress上载。wordpress主题的标题应该包含对必要javascript库的所有调用，让您可以自由地在文档主体中执行所需的操作。我看不出有任何理由不能在额外的计时作业中使用类似的过程。您是在用R Markdown或其他输出整理googleVis输出吗？我很难让googleVis的输出在Wordpress的帖子或页面上可靠地显示出来，即使我没有尝试自动化它。我尝试了十几种不同的方法和更多的插件，但Wordpress就是不喜欢googleVis。我可以让它显示为一个小部件或在页眉/页脚中，但仍然挣扎着进入帖子。我也可以用谷歌小工具输出，但我对它们的工作原理仍然一无所知。试着用results='asis'和print（）之类的工具来代替plot。应该给你你想要的结果。此外，如果您向我们展示了您尝试过的内容，我们可能会帮助您使其正常工作。对于您的第二条评论，您还应该禁用可视化编辑器。我为所有的问题道歉，我对Wordpress一无所知。如何在我的站点标题中添加对javascript的调用？外观>主题>编辑器>查找类似“标题”的内容在那里添加您的

调用。我觉得我应该提一提，如果你自己不能弄清楚，你可能会发现与一个拥有适合你目标的技能的人合作会有好处。我是一名行业统计学家，网络开发对我来说几乎是全新的。我可能最终不得不走这条路，但这也是我坚持使用Wordpress的部分原因。当我在Rstudio中输入任何以“```开头的命令时，我收到一个“错误：尝试使用零长度变量名”“。我确保加载knitr和markdown，我做错了什么？感谢您继续帮助我。除了这篇文章的实际内容，我什么都做得很好。当脚本编写文章时，它将文件扩展名输出为文本（在本例中为“C:/test.html”），而不是文件的实际内容。我如何纠正这个问题？我正慢慢地到达那里，但肯定会的，哈哈。

# 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")
```

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)