Question

我创建了便利包，其功能特定于我使用的不同公司。我希望能够在加载这些库时加载ggplot2主题和geom默认值。

例如：

update_geom_defaults("line",   list(size = 2))
update_geom_defaults("bar",    list(fill="#BEBADA",colour="#000000"))
update_geom_defaults("text",   list(colour="#333333"))
scale_colour_discrete <- function(...) scale_colour_brewer(..., palette="Set2")
scale_fill_discrete <- function(...) scale_fill_brewer(... , palette="Set2")

现在，我必须记得每次进行快速分析时都要重新输入，我想让它更干。

如何在程序包执行时强制加载这些元素？

伪代码：

library(convenience.lib)
## run the above ##

Answer 1

简单地在包中添加.onLoad函数，例如：

.onLoad <- function(libname = find.package("mypackage"), pkgname = "mypackage") {
    update_geom_defaults("line",   list(size = 2))
    update_geom_defaults("bar",    list(fill="#BEBADA",colour="#000000"))
    update_geom_defaults("text",   list(colour="#333333"))
    scale_colour_discrete <- function(...) scale_colour_brewer(..., palette="Set2")
    scale_fill_discrete <- function(...) scale_fill_brewer(... , palette="Set2")
}

如何在包加载时加载主题和默认值

1 个答案: