Web development recommendations for subscription based site using googleVis & R

Question

I am developing a subscription based website that will supply custom financial trading indicators and I am in need of advice. Using the googleVis package on R, I export new charts ever 30 minutes in .html format that employ some limited Javascript for interactability. I originally looked into using Wordpress as my CMS due to ease of use and readily accessible subscription management plugins, but its limitations regarding Javascript make it so that I cannot complete the updates automatically. (I'd have to manually update the site every 30 minutes)

Consequently, I am now considering my other options. I briefly tried Joomla on my VPS, but it also seems to have a number of quirks regarding Javascript. I am only moderately experienced in developing sites, so I will have to rely on preexisting products for site construction and especially customer subscription management.

I realize this is a very open ended request, but I am just looking for some direction from those with more experience than myself. Any input would be greatly appreciated.

Answer 1

Here's a toy example of my process for you to play with:

Note, this has been updated to accomodate for wpautop. googleVis javascript is broken if you don't remove all spacing from the uploaded fragment. The below accomplishes this.

test.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")
```

Now you need a script that brings them all together that can be chron'd on your server with something like R /path/to/your/file.r Don't forget to turn on xmlrpc in your wordpress settings. You'll also have to remember to add a call to the javascript library in the head of your wordpress theme.

file.r // chron this file!

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)