Язык: R. Вопрос: Можно ли указать шрифт фиксированной ширины для функции menu(..,graphics=T)
?
Объяснение:
Недавно я спросил этот вопрос о том, как пользователь может выбрать строку кадра данных в интерактивном режиме:
df <- data.frame(a=c(9,10),b=c('hello','bananas'))
df.text <- apply( df, 1, paste, collapse=" | " )
menu(df.text,graphics=T)
Я хочу, чтобы |
выстроился в линию. На данный момент их нет; достаточно справедливо, я не заполнял колонки одинаковой ширины. Поэтому я использую format
для того, чтобы каждый столбец был одинаковой ширины (позже я напишу код, чтобы автоматически определить ширину на столбец, но на этот раз игнорировать):
df.padded <- apply(df,2,format,width=8)
df.padded.text <- apply( df.padded, 1, paste, collapse=" | ")
menu( df.padded.text,graphics=T )
Посмотрите, как он все еще вонючий? Тем не менее, если я посмотрю df.padded
, я получаю:
> df.padded
a b
[1,] " 9 " "hello "
[2,] "10 " "bananas "
Таким образом, каждая ячейка определенно дополняется той же длиной.
Причина этого, вероятно, в том, что шрифт по умолчанию для этого (в моей системе, в любом случае, Linux) не является фиксированной шириной.
Итак, мой вопрос:
Можно ли указать шрифт фиксированной ширины для функции menu(..,graphics=T)
?
Update
@RichieCotton заметил, что если вы посмотрите menu
на graphics=T
, он вызывает select.list
, который, в свою очередь, вызывает tcltk::tk_select.list
.
Итак, похоже, мне придется изменить tcltk
параметры для этого. От @jverzani:
library(tcltk)
tcl("option", "add", "*Listbox.font", "courier 10")
menu(df.padded.text,graphics=T)
Учитывая, что menu(...,graphics=T)
вызывает tcltk::tk_select.list
, когда graphics
TRUE, я предполагаю, что это жизнеспособный вариант, так как любой дистрибутив, который мог бы отображать графический menu
, в первую очередь, также имел бы tcltk
на нем, так как ему нужно вызвать tk_select.list
.
(В стороне, я не могу найти ничего в документации, которая дала бы мне подсказку попробовать tcl('option','add',...)
, не говоря уже о том, что этот параметр был вызван *Listbox.font
!)
Еще одно обновление - более подробно рассмотрели код select.list
и menu
, и это получается в Windows (или если .Platform$GUI=='AQUA'
- это Mac?), tcltk::tk_select.list
вообще не вызывается, а вместо этого используется только некоторый внутренний код. Поэтому изменение '* Listbox.font' не повлияет на это.
Думаю, я просто:
- Если tcltk есть, загрузите его, установите * Listbox.font в курьер и используйте
tcltk::tk_select.list
явно - если его нет, попробуйте
menu(...,graphics=T)
, чтобы хотя бы получить графический интерфейс (который не будет моноширинным, но лучше, чем ничего). - если это тоже не сработает, тогда просто вернитесь к
menu(...,graphics=F)
, который определенно будет работать.
Спасибо всем.