Подогнать размер изображения под маленькую кнопку

Question

Я использую R и пакет tcl / tk, чтобы сделать приложение R GUI.Теперь у меня возникла проблема, и я не мог ее решить.Ищете hlep ...

Я хочу поместить изображение стрелки на кнопку.Однако размер изображения слишком велик, и я хочу иметь маленькую кнопку.Как я могу изменить размер изображения и соответствовать размеру кнопки?

tt <- tktoplevel()  
image1 <- tclVar()  
tcl("image","create","photo",image1,file="toRight.gif")  
imgAsButton <- tkbutton(tt,image=image1,bg="white")  
tkpack(imgAsButton) 

Спасибо

Answer 1

Использование графического конвертера было бы лучшим выбором, но если вы не можете этого сделать, вот решение с использованием GIF-файла

iconFile <- "http://barre.nom.fr/vtk/images/logo-tcl-tk.gif"
tmp <- tempfile()
download.file(iconFile, tmp)

iconName <- "::tcl::logo"
largerIconName <- "::tcl::larger_logo"
i1 <- tkimage.create("photo", iconName, file = tmp)
i2 <- tkimage.create("photo", largerIconName)
## enlarge by factor of 2
tcl(i2, "copy", i1, zoom=2)
## shrink by factor of 2
## tcl(i2, "copy", i1, subsample=2)

w <- tktoplevel()
l_full <- ttklabel(w, image=iconName) ## or ttkbutton if you want
l_twice <- ttklabel(w, image=largerIconName)
sapply(list(l_full, l_twice), tkpack)