使用R向量填充HTML下拉框

Question

我正在尝试使用Rook和googleVis 制作一些互动图表

我目前有一个HTML文本框，用户可以输入日期来触发更改

res <- Rook::Response$new()
res$write('<input type="text" name="theDate">')

我想用组合框替换它

res$write('<input type="dropdown" name="theDate">')

由类似于此

的R矢量填充

displayDates <- c("12 Mar 1980" ,"19 Mar 1980")

自从我完成任何这些HTML内容以来，我已经十年了 也只是从Rook

开始

Answer 1

也许是这样的：

library(Rook)
dates <- c("12 Mar 1980" ,"19 Mar 1980")

app <- function(env){
    req <- Rook::Request$new(env)
    res <- Rook::Response$new()
    res$write('<select>')
    res$write(paste("<option>", dates , "</option>"))
    res$write('</select>')
    res$finish()
}

s <- Rhttpd$new()
s$launch(name="myapp", app=app)