R语言 RPMG包 RPMG-package()函数中文帮助文档(中英文对照)

loveR

RPMG-package(RPMG)
RPMG-package()所属R语言包：RPMG

                                         Really Poor Man's GUI: sets up buttons for a graphical user interface in R
                                         真是穷人的GUI：设置按钮的图形用户界面在R

                                         译者：生物统计家园网 机器人LoveR

描述----------Description----------

Package consists of two functions for setting up a\ GUI using only R-code.
包包含两个函数建立一个\ GUI只使用R-代码。


Details

详细信息----------Details----------


（作者）----------Author(s)----------


Jonathan M. Lees <jonathan.lees@unc.edu>



参见----------See Also----------

rowBUTTONS, whichbutt
rowBUTTONS，whichbutt


实例----------Examples----------


###  get sample image data set.[＃＃样品图像的数据集。]
data(volcano)
#####   set sample interval unit[＃＃＃＃设置采样间隔单位]
attr(volcano, 'dx') =10
attr(volcano, 'dy') =10
###  create the list of labels[＃＃创建的标签列表]
###  Actions for these buttons are described in the calling program XSECDEM[＃＃描述这些按钮在调用程序XSECDEM的行动]
mybutts = c("DONE", "REFRESH", "rainbow", "topo", "terrain", "CONT", "XSEC","PS" )
XSECDEM(volcano, mybutts)
############################################# [＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃]
#############################################  CODE STUB[＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃编码STUB]
## Not run: ###   Example code chunk:[＃不运行：＃＃＃示例代码块：]
###  general set up of RPGM usage:[＃＃一般设置，RPGM用法：]
######  make a plot[＃＃＃＃＃做的一个图]
#######  set buttons[＃＃＃＃＃＃设置按钮]
buttons = rowBUTTONS(c("BUT1","BUT2") , col=c(1,1), pch=c(1,1))
#######  after plotting, locate in plot....[＃＃＃＃＃＃绘图后，定位在图......]
zloc = locator()
Nclick = length(zloc$x)
#############  the last click on the screen before stopping (middle[＃＃＃＃＃＃＃＃＃＃＃＃最后点击屏幕上的停止前（中]
#############        mouse click) is used to set the action[＃＃＃＃＃＃＃＃＃＃＃＃鼠标点击）是用来将动作设定为]
K =  whichbutt(zloc , buttons)
while(TRUE)
      {
        if(K[Nclick] == match("BUT1", labs, nomatch = NOLAB))
          {
            ###  do what ever button 1 is supposed to do[＃＃做的是应该做的什么按钮1]
          }
        if(K[Nclick] == match("BUT2", labs, nomatch = NOLAB))
          {
            ###  do what ever button 2 is supposed to do[＃＃做的是应该做的什么按钮2]
          }
        }  ## end while loop[＃while循环结束]

## End(Not run)[＃（不执行）]




转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。


注：
注1：为了方便大家学习，本文档为生物统计家园网机器人LoveR翻译而成，仅供个人R语言学习参考使用，生物统计家园保留版权。
注2：由于是机器人自动翻译，难免有不准确之处，使用时仔细对照中、英文内容进行反复理解，可以帮助R语言的学习。
注3：如遇到不准确之处，请在本贴的后面进行回帖，我们会逐渐进行修订。