Làm thế nào tôi có thể tải một loạt các gói cùng một lúc mà không cần gõ lại lệnh yêu cầu lặp đi lặp lại? Tôi đã thử ba cách tiếp cận tất cả trong đó sụp đổ và đốt cháy.

Về cơ bản, tôi muốn cung cấp một vectơ tên gói cho một hàm sẽ tải chúng.

x<-c("plyr", "psych", "tm")

require(x)
lapply(x, require)
do.call("require", x)

Một số hoán vị của các hàm được đề xuất của bạn hoạt động - nhưng chỉ khi bạn chỉ định character.onlyđối số là TRUE. Ví dụ nhanh:

lapply(x, require, character.only = TRUE)

Các gói phần mềm cran pacman mà tôi duy trì (tác giả với Dason Kurkiewicz) có thể thực hiện điều này:

Vì vậy, người dùng có thể làm:

## install.packages("pacman")
pacman::p_load(dplyr, psych, tm) 

và nếu gói bị thiếu p_loadsẽ tải xuống từ CRAN hoặc Bioconductor.

Cái này cần phải dùng mẹo:

lapply(x, FUN = function(X) {
    do.call("require", list(X)) 
})

(Bit chính là argsđối số trong do.call(what, args) phải là một danh sách --- ngay cả khi nó chỉ có một phần tử duy nhất!)

Đối với ai đó muốn cài đặt và tải các gói đồng thời, tôi đã xem qua chức năng này từ liên kết này

# ipak function: install and load multiple R packages.
# check to see if packages are installed. Install them if they are not, then load them into the R session.

ipak <- function(pkg){
new.pkg <- pkg[!(pkg %in% installed.packages()[, "Package"])]
if (length(new.pkg)) 
    install.packages(new.pkg, dependencies = TRUE)
sapply(pkg, require, character.only = TRUE)
}

# usage
packages <- c("ggplot2", "plyr", "reshape2", "RColorBrewer", "scales", "grid")
ipak(packages)

Một lựa chọn thay thế đến từ gói easypackages. Sau khi cài đặt, bạn có thể tải các gói theo cách trực quan nhất:

libraries("plyr", "psych", "tm")

Gói này cũng bao gồm một chức năng để cài đặt một số gói:

packages("plyr", "psych", "tm")

Tham khảo tại đây .

Bạn chỉ có thể sử dụng gói Lubripack và cài đặt gọn gàng các gói mới và sau đó tải tất cả chúng trong một dòng.

lubripack("plyr", "psych", "tm")

Đây là đầu ra sau khi bạn chạy mã trên RStudio.

Cách cài đặt Gói:

Chạy mã bên dưới để tải gói và cài đặt nó từ GitHub. Không cần phải có Tài khoản GitHub.

library(devtools)
install_github("espanta/lubripack")

Dựa trên giải pháp của daroczig, nếu bạn không muốn chỉ định danh sách làm đầu vào, bạn có thể sử dụng

# Foo
mLoad <- function(...) {
  sapply(sapply(match.call(), as.character)[-1], require, character.only = TRUE)
}

# Example 
mLoad(plyr, dplyr, data.table)

... ngắn hơn

lapply(list('plyr', 'dplyr', 'data.table'), require, character.only = TRUE)

Tôi sử dụng chức năng sau:

mrip <- function(..., install = TRUE){
    reqFun <- function(pack) {
        if(!suppressWarnings(suppressMessages(require(pack, character.only = TRUE)))) {
            message(paste0("unable to load package ", pack,
                           ": attempting to download & then load"))
            install.packages(pack)
            require(pack, character.only = TRUE)
        }
    }
    lapply(..., reqFun)
}

Điều này cố gắng tải, và nếu nó không cài đặt và sau đó thử tải lại.

Tôi nghĩ rằng mã mà @daroczig đã cung cấp có thể được cải thiện bằng cách thay thế requirebằng libraryvà gói lapplycuộc gọi bên trong invisible()hàm. Vì vậy, mã được cải tiến sẽ trông như sau:

invisible(lapply(x, library, character.only = TRUE))

Mã này được cải thiện vì:

1. library()thường được ưu tiên hơn require()cho việc tải các gói vì cái trước đưa ra lỗi nếu gói không được cài đặt trong khi gói sau chỉ đưa ra cảnh báo. Hơn nữa, require()các cuộc gọi library(), vậy tại sao không chỉ sử dụng library()trực tiếp!

   library("time")
   # Error in library("time") : there is no package called ‘time’
   
   require("time")
   # Loading required package: time
   # Warning message:
   # In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
   # there is no package called ‘time’

2. Đối tượng danh sách được trả về và in bởi lapply()cuộc gọi không có ý nghĩa trong trường hợp này, vì vậy nó có ý nghĩa để làm cho đầu ra vô hình. Giả sử bạn sử dụng R Notebook cho công việc phân tích của mình, sử dụng invisible()chức năng sẽ triệt tiêu nội dung của đối tượng danh sách và ngăn chặn sự lộn xộn trong tệp sổ ghi chép được hiển thị.

Bản mod nhẹ của câu trả lời của Tyler Rinker để thêm một kiểm tra để cài đặt và tải pacman:

#Install/load pacman
if(!require(pacman)){install.packages("pacman");require(pacman)}
#Install/load tons of packages
p_load(plyr,psych,tm)

Tôi thích giải pháp p_load vì nó tránh được trích dẫn!