代码之家 › 专栏 › 技术社区 › Josh

转移require()的输出

Josh · 技术社区 · 7 年前

我在rprofile.site中使用此代码在启动r时加载包。

pkg <- c("dplyr", "tidyr", "crayon", "xlsx")
apply(as.matrix(pkg), 1, function(x) {
    if (!x %in% utils::installed.packages()) {
        utils::install.packages(x)
        cat(paste0("package ", x, " installed\n"))
    }
    x <- require(x, character.only = T)
})

它很好用,不过是印刷品 [1] TRUE TRUE TRUE TRUE 到控制台。我知道我可以转移注意力 stdout 使用 textConnection(); sink(); [code]; sink(); close() 但这似乎是很多工作。有没有办法减少打字量?

tc <- textConnection("outputs","w")
sink(tc, type="output")
    pkg <- c("dplyr", "tidyr", "crayon", "xlsx")
    apply(as.matrix(pkg), 1, function(x) {
        if (!x %in% utils::installed.packages()) {
            utils::install.packages(x)
            cat(paste0("package ", x, " installed\n"))
        }
        require(x, character.only = T)
    })
sink(NULL, type="output")
close(tc)

1 回复 | 直到 7 年前

chinsoon12 7 年前

选项:

你可以用 invisible 在输出上 apply 移除输出。
或者你可以使用 pacman 打包以执行您正在执行的操作。
或者下面的代码应该更简洁(请参见 Check for installed packages before running install.packages() ):

invisible(lapply(pkg, function(x) {
    if (!nzchar(system.file(package=x)))
        install.packages(x)
    library(x, character.only=TRUE)
}))

或者编写一个r包,使依赖关系显式化。

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

1 年前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

1 年前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

1 年前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

1 年前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

1 年前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

1 年前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前