2

カスタムの金融取引指標を提供する購読ベースのウェブサイトを開発していますが、アドバイスが必要です。R で googleVis パッケージを使用して、30 分ごとに新しいグラフを .html 形式でエクスポートします。私は当初、使いやすさとサブスクリプション管理プラグインへのアクセスが容易な Wordpress を CMS として使用することを検討していましたが、Javascript に関する制限により、更新を自動的に完了することができませんでした。(サイトを 30 分ごとに手動で更新する必要があります)

その結果、私は現在、他のオプションを検討しています。VPS で Joomla を簡単に試してみましたが、Javascript に関していくつかの癖があるようです。私はサイト開発の経験があまりないので、サイトの構築、特に顧客のサブスクリプション管理については、既存の製品に頼る必要があります。

これは非常に自由度の高いリクエストであることは承知していますが、私よりも経験豊富な方からの方向性を探しているだけです。任意の入力をいただければ幸いです。

4

1 に答える 1

3

これは、あなたが遊ぶための私のプロセスのおもちゃの例です:

これは、wpautop に対応するように更新されていることに注意してください。アップロードされたフラグメントからすべてのスペースを削除しないと、googleVis JavaScript が壊れます。以下はこれを実現します。

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

次に、WordpressR /path/to/your/file.r設定で xmlrpc をオンにすることを忘れないでください。また、WordPress テーマの先頭に JavaScript ライブラリへの呼び出しを追加することも忘れないでください。

file.r // このファイルを cron にします!

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)
于 2012-11-30T04:30:41.247 に答える