Jak mogę załadować kilka pakietów naraz bez ponownego wpisywania żądanego polecenia? Wypróbowałem trzy podejścia, z których wszystkie ulegają awarii i spalają się.

Zasadniczo chcę dostarczyć wektor nazw pakietów do funkcji, która je załaduje.

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

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

Kilka permutacji proponowanych funkcji działa - ale tylko wtedy, gdy określisz character.onlyargument TRUE. Szybki przykład:

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

Pakiet CRAN pacman, który utrzymuję (którego autorem jest Dason Kurkiewicz) może to osiągnąć:

Więc użytkownik może zrobić:

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

a jeśli brakuje pakietu p_load, pobierze go z CRAN lub Bioconductor.

To powinno załatwić sprawę:

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

(Kluczowym bitem jest to, że argsargument w do.call(what, args) musi być listą --- nawet jeśli ma tylko jeden element!)

Dla kogoś, kto chce instalować i ładować pakiety jednocześnie, natrafiłem na tę funkcję z tego linku

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

Alternatywna opcja pochodzi z pakietu easypackages. Po zainstalowaniu możesz ładować pakiety w najbardziej intuicyjny sposób:

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

Pakiet zawiera również funkcję instalowania kilku pakietów:

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

Odniesienie tutaj .

Możesz po prostu użyć pakietu lubripack i starannie zainstaluje nowe pakiety, a następnie załaduje je wszystkie w jednej linii.

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

Oto dane wyjściowe po uruchomieniu powyższego kodu w RStudio.

Jak zainstalować pakiet:

Uruchom poniższy kod, aby pobrać pakiet i zainstalować go z GitHub. Nie musisz mieć konta GitHub.

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

Opierając się na rozwiązaniu darocziga, jeśli nie chcesz określać listy jako danych wejściowych, których możesz użyć

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

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

... który jest krótszy niż

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

Używam następującej funkcji:

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

Próbuje załadować, a jeśli się nie powiedzie, instaluje się, a następnie próbuje załadować ponownie.

Myślę, że kod, który @daroczig zapewnił można poprawić poprzez zastąpienie requireze libraryi owijania lapplypołączenia wewnątrz invisible()funkcji. Tak więc ulepszony kod będzie wyglądał następująco:

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

Ten kod jest ulepszony, ponieważ:

1. library()jest generalnie preferowany require()zamiast ładowania pakietów, ponieważ pierwszy wyświetla błąd, jeśli pakiet nie jest zainstalowany, podczas gdy drugi wyświetla tylko ostrzeżenie. Co więcej, require()połączenia library(), więc dlaczego nie używać library()bezpośrednio!

   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. Obiekt listy zwrócony i wypisany przez lapply()wywołanie nie ma w tym przypadku znaczenia, więc sensowne jest uczynienie wyjścia niewidocznym. Załóżmy, że używasz R Notebook do pracy analitycznej, użycie tej invisible()funkcji spowoduje wygaszenie zawartości obiektu listy i uniknięcie bałaganu w renderowanym pliku notatnika.

Nieznaczny mod odpowiedzi Tylera Rinkera, aby dodać czek, aby zainstalować i załadować pacman:

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

Podoba mi się rozwiązanie p_load, ponieważ unika cytowania!