Як я можу завантажувати купу пакетів відразу, не переробляючи команду вимагати знову і знову? Я спробував три підходи, всі з яких руйнуються і горять.

В основному, я хочу поставити вектор імен пакунків функції, яка буде їх завантажувати.

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

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

Кілька перестановок запропонованих функцій спрацьовують, але лише якщо ви вказали character.onlyаргумент TRUE. Короткий приклад:

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

CRAN пакет pacman , що я підтримую ( в співавторстві з Dason Kurkiewicz) може зробити це:

Таким чином користувач міг зробити:

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

і якщо пакет відсутній p_load, завантажте його з CRAN або Bioconductor.

Для цього слід зробити фокус:

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

(Ключовим бітом є те, що argsаргументом в do.call(what, args) повинен бути список --- навіть якщо він містить лише один елемент!)

Для тих, хто хоче одночасно встановлювати та завантажувати пакети, я натрапив на цю функцію за цим посиланням

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

Альтернативний варіант походить від пакета easypackages. Після встановлення ви можете завантажувати пакунки найбільш інтуїтивно:

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

У пакет також входить функція встановлення декількох пакетів:

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

Довідка тут .

Ви можете просто скористатися пакетом lubripack, і він акуратно встановить нові пакети, а потім завантажить їх у один рядок.

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

Ось результат після запуску вище коду в RStudio.

Як встановити пакет:

Запустіть код нижче, щоб завантажити пакет і встановити його з GitHub. Не потрібно мати обліковий запис GitHub.

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

Спираючись на рішення daroczig, якщо ви не хочете вказувати список як вхід, який ви можете використовувати

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

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

... що коротше, ніж

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

Я використовую таку функцію:

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

Це намагається завантажити, а якщо не вдалося встановити, а потім спробуйте завантажити ще раз.

Я думаю , що код , який @daroczig надав може бути поліпшена шляхом заміни requireз libraryі обертання lapplyвиклику всередині invisible()функції. Отже, вдосконалений код буде виглядати наступним чином:

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

Цей код покращено, оскільки:

1. library()як правило, перевагу над require()завантаженням пакетів, тому що перший видає помилку, якщо пакет не встановлений, а другий просто попереджає. Більше того, require()дзвінки library(), то чому б просто не скористатися library()безпосередньо!

   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. Об'єкт списку повертається та друкується lapply() виклику, в цьому випадку не має сенсу, тому має сенс зробити висновок невидимим. Скажімо, ви використовуєте R Notebook для своєї роботи з аналізу, використання invisible()функції придушить вміст об'єкта списку і запобіжить захаращення у виведеному файлі ноутбука.

Невеликий мод відповіді Тайлера Рінкера, щоб додати чек для встановлення та завантаження Pacman:

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

Мені подобається рішення p_load, оскільки воно уникає цитування!