如何使用R中的库（tcltk）在按钮中添加图标？

Question

我使用R中的库（tcltk）来制作GUI。创建按钮的代码是：

tt <- tktoplevel()
button.widget <- tkbutton(tt, text = "", command = function())

我希望GUI上的现有按钮有一个图标。如何使用R？

中的库（tcltk）在按钮中添加图标的代码

Answer 1

使用tkimage.create功能创建图像文件的Tcl级别表示。请注意，图像格式存在一些限制，我相信GIF最容易使用。然后，将图像指定为image的{​​{1}}参数。以下是使用an Example.gif from Wikipedia：

的示例

tkbutton

您可以使用library("tcltk") img <- tclVar() tclimg <- tkimage.create("photo", img, file = "Example.gif") tt <- tktoplevel() button.widget <- tkbutton(tt, text = "Click me!", image = tclimg, compound = "top", command = function() tkmessageBox(message = "Hello!")) tkgrid(button.widget) 参数控制按钮上图像和文本的相对位置：

• “none”（仅显示图像，如果存在，否则显示文本;默认）
• “text”（仅限文字）
• “image”（仅限图片）
• “center”（图片中心的文字）
• “top”（图片上方文字）
• “left”（文字左侧）
• “bottom”（图片下方的文字）
• “right”（图片右侧的文字）