get中的错误(as.character( of )，mode = "function"，envir = envir)：模式'guide_legend‘的对象’guide_legend‘

Question

我正在建立一个包，我遇到了一个问题时，建立一个小。当我试图编织vignette时，我会收到一条错误消息，但是在从控制台运行函数时没有错误。

输入数据示例

a <- c(1,1,2,2,3,3,4,4,5,5)
b <- c("T", "T", "N","N", "N","N", "T", "T", "N", "N")
c <- c("car","bike","car","bike","car","bike","car","bike","car","bike")
d <- c(10,12,15,19,25,29,38,47,66,90)
data <- data.frame(a,b,c,d)
colnames(data) <- c("xaxis", "rug", "type", "val")

在包.r文件中，我想调用一个函数：

#' Test
#'
#' @param data test data
#'
#' @return
#' @importFrom ggplot2 ggplot geom_point geom_rug
#' @importFrom ggnewscale new_scale_color
#' @export
#'
test <- function(data){
  ggplot(data, aes(x = xaxis, y = val, color = type, group = type)) + geom_point() +
    new_scale_color() + geom_rug(aes(x = xaxis, color =rug), sides = "b")
}

我检查并安装了这个包，并试图在一个RMarkdown文档(vignette)中调用这个测试函数。这是我得到的错误：

get中的错误(as.character( of )，mode = "function"，envir = envir)：找不到模式'guide_legend‘的调用：.bump_aes_scales -> lapply -> match.fun -> get执行暂停

然而，当我在控制台中调用这个函数时，我得到了预期的没有错误消息的情节：

输出

此外，当我从测试函数中删除new_scale_color()时，我没有发现任何错误，而且vignette是完美的。有没有人知道这里的问题似乎是什么，以及如何解决？

Answer 1

问题似乎是在这行的ggnewscale包中，它试图在这里创建一个对ggplot::guide_legend的调用。这是通过match.fun完成的，然后在这条线上抛出一个错误。这可能是因为match.fun只回顾了命名函数的两层父环境。您可以尝试在有问题的函数之前将一个非导出的本地别名函数添加到您自己的包中：

guide_legend <- function(...) ggplot2::guide_legend(...)