Заполнение раскрывающегося списка HTML вектором R

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)