Spinbox в "R" tcltk2

Question

Я создал spinbox в графическом интерфейсе "R" с помощью библиотеки "tcltk2"

   my_ratio <- tk2spinbox(my_window, from = 1, to = 10, increment = 1)

Как я могу дать значение выбора числовой переменной "R"?

Answer 1

Филипп Грожан, автор tcltk2, мягко показал мне, как это сделать с помощью следующего фрагмента:

library(tcltk2)
my_window <- tktoplevel()

spin_value <- tclVar(3)
my_ratio <- tk2spinbox(my_window, from = 1, to = 10, increment = 0.1, textvariable = spin_value, format = "%5.1f", width = 10)
tkgrid(tk2label(my_window, text = "Ratio:"), my_ratio, padx = 10, pady = c(10, 5))

on_ok <- function() {
  val <- as.numeric(tclvalue(spin_value))
  tkdestroy(my_window)
  cat("The ratio is:", val, "\n")
}
my_but_ok <- tk2button(my_window, text = "OK", width = -6, command = on_ok)
tkgrid(my_but_ok, columnspan = 2, padx = 10, pady = c(5, 15))

tkfocus(my_window)