r - 是否可以在另一个文件（或包？）中定义一个探测函数？

Question

当在另一个文件中定义该函数时，我在获取获取探测函数的语法时遇到了一些麻烦。

我想把一个标准的铅垂函数放在一个包里。我的第一次尝试是这样的：

# in the package

#' Get results for plumber
#' 
#' @param client the clientname
#' @param date The date of data to fetch
#' @param config a config file
#' 
#' @export
plumber_ga <- function(client = "none", date = Sys.Date(), config = NULL){

  message("Calling API for client:", client, " for date:", date)

  ...

}

然后尝试在 API 文件中调用该函数：

# api.R

#* Get data
#* @param client the clientname
#* @param date One day of data to fetch
#* @param config A config file TBD
#* @post /datalake/<client>/foo
plumber_ga(client = "none", date = Sys.Date(), config = NULL){
  ...
}

...但是当我尝试这样做时，我得到了一个client is not defined错误。有没有办法做到这一点？我猜注释冲突或其他什么 - 还是我只需要在 api.R 文件中定义一次函数？

如果直接调用，相同的函数会起作用：

# api.R

#* Get data
#* @param client the clientname
#* @param date One day of data to fetch
#* @param config A config file TBD
#* @post /datalake/<client>/foo
function(client = "none", date = Sys.Date(), config = NULL){
  ...
}

（也在包GitHub 上问过）

Answer 1

这有效：

#* Get data
#* @param client the clientname
#* @param date One day of data to fetch
#* @param config A config file TBD
#* @post /datalake/<client>/google_analytics
function(client = "none", date = Sys.Date(), config = NULL){

  plumber_ga(client, date, config)

}