Bagaimana saya bisa memuat banyak paket sekaligus tanpa mengetik ulang perintah yang diperlukan berulang kali? Saya sudah mencoba tiga pendekatan yang semuanya crash dan burn.

Pada dasarnya, saya ingin menyediakan vektor nama paket ke fungsi yang akan memuatnya.

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

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

Beberapa permutasi dari fungsi yang Anda usulkan berfungsi - tetapi hanya jika Anda menentukan character.onlyargumennya TRUE. Contoh cepat:

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

Pacman paket CRAN yang saya pertahankan (ditulis dengan Dason Kurkiewicz) dapat mencapai ini:

Jadi pengguna dapat melakukan:

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

dan jika paket tersebut hilang p_loadakan mengunduhnya dari CRAN atau Bioconductor.

Ini harus melakukan trik:

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

(Kuncinya adalah argsargumen di do.call(what, args) harus berupa daftar --- walaupun hanya memiliki satu elemen!)

Untuk seseorang yang ingin menginstal dan memuat paket secara bersamaan, saya menemukan fungsi ini dari tautan ini

# 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)

Opsi alternatif berasal dari paket easypackages. Setelah diinstal, Anda dapat memuat paket dengan cara yang paling intuitif:

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

Paket ini juga mencakup fungsi untuk menginstal beberapa paket:

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

Referensi di sini .

Anda cukup menggunakan paket lubripack dan menginstal paket baru dengan rapi lalu memuat semuanya dalam satu baris.

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

Ini adalah output setelah Anda menjalankan kode di atas di RStudio.

Cara Memasang Paket:

Jalankan kode di bawah ini untuk mengunduh paket dan menginstalnya dari GitHub. Tidak perlu memiliki Akun GitHub.

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

Membangun solusi daroczig, jika Anda tidak ingin menentukan daftar sebagai input yang dapat Anda gunakan

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

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

... yang lebih pendek dari

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

Saya menggunakan fungsi berikut:

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)
}

Ini mencoba memuat, dan jika gagal menginstal dan kemudian mencoba memuat lagi.

Saya pikir kode yang telah disediakan @daroczig dapat ditingkatkan dengan mengganti requiredengan librarydan membungkus lapplypanggilan di dalam invisible()fungsi. Jadi, kode yang ditingkatkan akan terlihat seperti berikut:

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

Kode ini ditingkatkan karena:

1. library()umumnya lebih disukai daripada require()untuk memuat paket karena yang pertama memberikan kesalahan jika paket tidak diinstal sementara yang terakhir hanya memberikan peringatan. Apalagi require()panggilan library(), kenapa tidak library()langsung pakai saja !

   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. Objek daftar dikembalikan dan dicetak oleh lapply()panggilan tidak berarti dalam kasus ini, jadi masuk akal untuk membuat output tidak terlihat. Katakanlah Anda menggunakan R Notebook untuk pekerjaan analisis Anda, menggunakan invisible()fungsi akan menekan isi objek daftar dan mencegah kekacauan dalam file notebook yang diberikan.

Mod sedikit dari jawaban Tyler Rinker untuk menambahkan tanda centang untuk menginstal & memuat pacman:

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

Saya suka solusi p_load karena menghindari mengutip!