r - gtext：指定行数

Question

我在 R 中使用 gWidgets GUI 前端包。我可以gtext()以像素为单位指定高度，但是......如何以文本行数指定 gtext 的高度（如 html 中的 textarea ...）？

特别是，我只需要一行文本输入字段。就像<input type="text">在 html 中一样，但gtext()更像<textarea>.

Answer 1

一种解决方案（有点棘手），您可以使用字体度量来设置它。

library(gWidgets)
options(guiToolkit="RGtk2") 
w <- gwindow("brush example", visible=FALSE)

font.height <- 6   ## I don't know to get x-large metrics, so I fix it here
font.width  <- 50
obj <- gtext(container=w,height=5*font.height, width=5*font.width,
             font.attr=c(
  style="monospace", 
  color="blue", 
  size="x-large"))
add(obj,"mono blue large")
visible(w) <-  TRUE

Answer 2

基于@jverzani 的评论 - 解决方案是gedit用于单行输入，如：

xyear <- gedit("1980", height = 1, horizontal = F)