为什么我的包函数找不到其他非导出标记函数？

Question

我已经阅读了 Hadley Wickham 的大部分好书：http://r-pkgs.had.co.nz/，但我很困惑为什么我的包中的函数找不到其他未导出的函数。

例如我有

#' @export
#' @import ggmap
#' @import hexbin
map  <- function(return.query, zoom, maptype, histObj) {

  UseMethod("map")

}
#' 
map.querySold  <- function(query, zoom = 11, maptype = "roadmap") {
  My Code
}

在干净的环境中运行它并加载我的包会产生错误：

> map(x) # x is of class querySold
Error in UseMethod("map") : 
  no applicable method for 'map' applied to an object of class "c('querySold', 'data.frame')"

出了什么问题，我该如何解决？我认为内部功能始终可用于包中的所有其他功能？ 直到我用devtools::load_all(".") 加载所有函数，它才能工作。

Answer 1

我怀疑你没有@export map.querySold。请尝试以下操作：

将@export 放在第一个map 函数之前。

#' @import ggmap
#' @import hexbin
#' @export
map  <- function(return.query, zoom, maptype, histObj) {

  UseMethod("map")

}

并在此处添加@export

#'@export 
map.querySold  <- function(query, zoom = 11, maptype = "roadmap") {
  My Code
}

然后运行devtools::document() 并检查NAMESPACE 文件。

如果这不起作用，发布您的NAMESPACE 可能会有所帮助。我想你应该有

S3method(map.querySold)
export(map)