在 R 中使用 tcltk 的文本框中的文件名

Question

使用 tcltk 在 R 中创建 GUI，我想制作一个不可编辑的文本框，显示用户选择的保存文件的名称。我能够创建按钮和框，但我不知道如何显示所选文件的名称。我想我需要使用 tkinsert()

这是我目前拥有的：

library(tcltk)
library(tcltk2)
library(readxl)

test1 <- tktoplevel()
tkwm.title(test1, "Test 1")

tkgrid.rowconfigure(test1, 4)
tkgrid.columnconfigure(test1, 3)

getXlsx <- function() {
xlsheet <- tclvalue(tkgetOpenFile(
filetypes = "{ {Excel Files} {.xlsx} } { {All Files} * }"))
a <- read_excel(xlsheet)
assign("a", a, envir = .GlobalEnv)
}

test1$env$butSelect1 <- tk2button(test1, text = " Select File ", command 
= getXlsx)
tkgrid(test1$env$butSelect1, padx = c(10,0), pady = 10, column = 0, row = 
0)

test1$env$txt1 <- tk2text(test1, width = 40, height = 1)
tkgrid(test1$env$txt1, padx = c(10,10), pady = 10, column = 1, row = 0, 
columnspan = 2)
tkconfigure(test1$env$txt1, state = "disabled")
###  tkinsert(test1$env$txt1, ???)  ###

非常感谢任何帮助，谢谢。

Answer 1

我现在明白了，我必须向函数本身添加 4 行：

getXlsx <- function() {
  xlsheet <- tclvalue(tkgetOpenFile(
    filetypes = "{ {Excel Files} {.xlsx} } { {All Files} * }"))
  a <- read_excel(xlsheet)
  assign("a", a, envir = .GlobalEnv)
  assign("z", xlsheet, envir = .GlobalEnv)
  tkconfigure(test1$env$txt1, state = "normal")
  tkinsert(test1$env$txt1, "end", z)
  tkconfigure(test1$env$txt1, state = "disabled")
}

这会在全局环境中使用路径名创建一个新的 "z" 值，然后允许文本框可编辑，然后添加路径名，然后再次使文本框不可编辑。

在 R 中使用 tcltk 的文本框中的文件名

Filename in text box using tcltk in R

tk

r