forms - 使用 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)