Это связано с вашим предыдущим вопросом. Ответ, в основном, нет, но если вы хотите использовать пробную версию gWidgets2:
require(devtools)
install_github("gWidgets2", username="jverzani")
install_github("gWidgets2RGtk2", username="jverzani")
тогда вы можете взломать это, так как эта версия позволяет вставлять виджеты в панель инструментов. Вот что-то, что работает:
w <- gwindow()
h <- function(h,...) print("hi")
l <- list(file=gaction("file", icon="ok", handler=h),
open=gaction("open", icon="open", handler=h),
quit=gaction("quit", icon="quit", handler=h))
popup <- gmenu(l, popup=TRUE)
tbl <- list(c=gaction("cancel", icon="cancel", handler=h),
b=gbutton("file")) ## adding a widget
addPopupMenu(tbl$b, popup) ## put popup menu on b
tbl$b$remove_border()
tb = gtoolbar(tbl, cont=w, style="both-horiz")
glabel("fill me in", cont=w)
Мне все еще нужно добавить некоторые виджеты в эту версию (пока нет виджета с деревом, редактора фрейма данных и других).