不带 () 的 R 编程函数

Question

所以，我有以下非常简单的 map.r 文件。

我正在尝试让用户在交互模式下键入“点击”，然后使用该功能。

由于它是一个函数，用户必须键入“click()”，我怎样才能使它只需要单词（不带括号），然后让该函数对 img 执行某些操作。

所以用户输入：

mydist("image.pnm")

点击

//然后函数click做它应该做的事情

mydist <- function(mapfile) {

    img <- read.pnm(mapfile)

    plot(img)
}

click <- function() {

    //Prompt user to click on img
}

Answer 1

如果你给它一个自己的类和一个与该信息相呼应的打印方法，你就可以实现你的目标。

  print.click <- function(x, ...){
    #
    # could do something here
    # the <something> could be a plot or calculation
    plot(1:10, 10:1, type="l")
   cat("Your click message here\n perhaps \n Downward line plotted!")
     invisible(x)
 }
 click <- "click"
 class(click) <- "click"


 click
# Your click message here
# perhaps 
# Downward line plotted!

即使您想像 Aaron 演示的那样将类定义“封装”在对象本身中，也不会局限于打印消息。你可以这样做：

print.click <- function(x, ...) {plot(1:10, 10:1, type="l")
   cat("prompt user to click on img...\n")

如果你想打电话给locator，你可以扩展与用户的交互。

Answer 2

这是“正确”的做法。这是我的 .Rprofile 文件中的一个示例。

invisible(makeActiveBinding("newq", function(...){quartz();par(cex=.75); cat("OK\n")}, .GlobalEnv))  

函数makeActiveBinding 具有某种魔力，因此无需任何括号即可调用完整的函数。

Answer 3

这是执行您所要求的一种方法。但是，可能有更好的方法来做您想做的事情。

click <- structure(1, class="click")
print.click <- function(x, ...) {
  cat("prompt user to click on img...\n")
}

然后

> click
prompt user to click on img...

Answer 4

我可能完全不知道您想做什么，但我认为下面的内容可能会回答您的问题。它可以通过添加其他“else-if”选项和其他自定义函数来扩展，以根据用户键入的任何内容运行。

customfunction <- function() {
print(1:10)
}

mydist <- function(mapfile) {

   img <- read.pnm(mapfile)
   plot(img)

ANSWER <- readline("")

# customfunction() will be run (printing 1:10) as soon as 
# the user types "click" and hits enter

if (ANSWER=="click") customfunction()

}