R-基于下拉列表中选择的值更新文本输入框(tkentry) (ttkcombobox)

library(tcltk2)

# 创建主窗口
win <- tktoplevel()
tkwm.title(win, "下拉列表示例")

# 创建下拉列表控件
combobox <- ttkcombobox(win, values = c("选项1", "选项2", "选项3"))
combobox["state"] <- "readonly"  # 设置下拉列表为只读模式
combobox["postcommand"] <- function() {
  # 更新文本输入框的值为下拉列表当前选择的值
  selected_value <- combobox$get()
  entry["text"] <- selected_value
}
combobox$grid(row = 0, column = 0, padx = 10, pady = 10)

# 创建文本输入框控件
entry <- tkentry(win, width = 20)
entry$grid(row = 1, column = 0, padx = 10, pady = 10)

# 运行主窗口的事件循环
tkpack(win)
tkfocus(win)
tkwait.window(win)