これを実行する方法はたくさんあります。ここでは、アドオンパッケージgWidgetsを使用しています。 RGtk2またはtcltkバックエンドで動作する必要があります。
library(gWidgets)
items <- data.frame(id=numeric(0), gender=character(0), age=numeric(0), race=character(0), stringsAsFactors=FALSE)
genders <- c("Male", "Female")
race <- c("Black", "Hispanic", "Other")
w <- gwindow("Capn's GUI", visible=FALSE)
g <- ggroup(cont=w, horizontal=FALSE)
lyt <- glayout(cont=g)
lyt[1,1] <- "Gender:"
lyt[1,2] <- gradio(genders, cont=lyt)
lyt[2,1] <- "Age:"
lyt[2,2] <- gedit("40", coerce.with=as.numeric, cont=lyt)
lyt[3,1] <- "Race:"
lyt[3,2] <- gcombobox(race, selected=0L, cont=lyt)
lyt[4,2] <- gbutton("Add", cont=lyt, handler=function(h,...) {
vals <- lapply(lyt[1:3, 2], svalue)
id <- nrow(items) + 1 # or roll your own
items[id, ] <<- c(id, vals)
tbl[] <- items
})
gseparator(cont=g)
tbl <- gtable(items, cont=g)
visible(w) <- TRUE
この質問は、SOの完全な回答が得られる可能性が高いです。 – whuber
WebベースのGUIはどうですか? Apacheモジュールが存在するか、またはRに非常に関連したGUIに興味がありますか? – Iterator
あなたはWebベースの調査に従順であれば、そこにいくつかの優れたシステムがあり、そのような標準的な調査システムの出力を分析する良いRソフトウェアがあります。あなた次第、私はあなたのニーズを明確にするよう求めているだけです。 – Iterator