# NOT RUN {
k = letters[1:26]
pk = chooser(opts=k , nsel=3 )
print(pk)
k = c( 1:26, letters[1:26])
pk = chooser(opts=k , nsel=3 )
print(pk)
k = 1:12
pk = chooser(opts=k , nsel=3 )
print(pk)
##################
plot(runif(10, 1, 100), runif(10, 1, 100), type='n')
APAL = c('tan2','red2','lightpink3','chocolate4','blue3','thistle4',
'lightcyan4',
'orangered1','purple4','darkred',
'dodgerblue1','gold3','chartreuse',
'sienna4')
## nchar( APAL )
wm = which.max(nchar( APAL ))
swidth = strwidth(APAL[wm])
upar = par("usr")
mhgt = sum( strheight(APAL )+0.5*strheight(APAL ))
mwid = max( strwidth(APAL) )
mwid = mwid + 0.05*mwid
chooser(opts=APAL , ncol=1, nsel=NA, newdev=FALSE, STAY=TRUE,
newplot=FALSE, xlim=c(upar[1], upar[1]+mwid) ,
ylim=c( (upar[4]-mhgt),upar[4]) , main="" )
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab