Charger plusieurs paquets à la fois

Comment puis-je charger un tas de paquets à la fois avec de retaper le besoin commande? J'ai essayé trois approches qui tous crash and burn.

En fait, je cherche à fournir un vecteur de noms de paquets à une fonction qui va charger.

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

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

InformationsquelleAutor Tyler Rinker | 2011-11-17

packages r

216

Plusieurs permutations de vos fonctions proposées pour faire le travail, mais seulement si vous spécifiez le character.only argument TRUE. Exemple rapide:
```
lapply(x, require, character.only = TRUE)
```
- daroczig -- Cool. C'est une bien meilleure solution. Je vais laisser le mien seulement pour la postérité, et pour ce qu'il montre sur les raisons de l'OP, les tentatives n'ont pas de travail.
- Vous pouvez profiter de la partielle de caractères de correspondance et sortir avec lapply(x, exiger, ch = T) ou même lapply(x, exiger, c = T)
- Ce code charge les paquets, mais pourquoi donne-t-il les messages d'Avertissement suivants: 1: Dans la bibliothèque(paquet, lib.loc = lib.loc, de caractère.seulement = TRUE, logique.retour = TRUE, : il n'y a pas de package appelé ‘x’ 2: if (!chargé) { : la condition est de longueur > 1 et seul le premier élément sera utilisé
- Je n'ai aucune idée de l'ATM, ce que vous avez dans votre x?
- Je suis juste en cours d'exécution de code donné ici. Changé faire de.appel de commande pour le faire.appel("l'exigent", liste(x)) sinon il ne serait pas exécuté. Si elle permet, à l'aide de rstudio.
- Je dois manquer quelque chose d'évident, mais je n'ai jamais tapé do.call dans ma réponse, donc je suis un peu perplexe au sujet de votre réponse.
- Désolé. Je pensais que vous étiez l'ajout de caractères.seulement=T pour le code en question. Et la réponse suivante par Josh également inclus le faire.appel de la commande. Peut-être une modification peut clarifier, pour les autres lecteurs.
- cela peut-il être étendu, l'ajout d'une installation de tous les paquets manquants à partir de la liste fournie par x?
- bien sûr, mais peut-être plus de temps, puis un one-liner 🙂 en fait, vous devriez vérifier la valeur retournée de require et exécuter install.packages si les résultats de FALSE, et require de nouveau. Veuillez ouvrir une nouvelle question (et, éventuellement, lien ici) si vous obtenez coincé.
- merci. Je pense que ce serait faire le travail: nouvelles.packs <- packs[!(packs %en% installé.les packages()[,"Package"])] si(longueur(de nouveau.packs)) installer.des paquets(de nouveau.packs) lapply(de nouveau.paquets, exiger, de caractère.seulement=T). La combinaison de votre et Shane exemple de here
- c'est le droit. Bien que je l'aurais pensé plutôt à quelque chose comme lapply(x, function(x) {if (!require(x, character.only=T)) {install.packages(x);require(x)}}) pour enregistrer les contrôles préalables et faire installer des trucs sur demande uniquement. Si on spécifie une liste de paquets à charger (et installé si nécessaire) dans x caractère - tout comme l'OP demandé. Mais il se fait assez longtemps pour développer davantage ce dans un commentaire 🙂
- Être gentil si R::base, a ajouté cette lapply truc natif de library(). Être grand pour être en mesure de dire: library(c("plyr", "umx"))
InformationsquelleAutor daroczig
49

CRAN paquet pacman que je maintiens (écrit en collaboration avec Dason Kurkiewicz) pouvez accomplir ceci:

Afin que l'utilisateur puisse faire:
```
## install.packages("pacman")
pacman::p_load(dplyr, psych, tm) 
```
et si le paquet est manquant p_load la télécharger à partir de CRAN ou Bioconductor.
- +1! Pourquoi avez-vous choisi le nom court p_load? Un nom plus descriptif, tel que load_packages fait l'intention de la fonction de plus en plus clair.
- Parce que le p signifie pour le package. Chaque fonction dans le paquet qui est utile et exportés commence avec p_. De Plus, nous avons tendance à utiliser la bibliothèque un peu et c'est un supplémentaire de 7 caractères. 7 caractères x ~1000000 temps de la vie d'utilisations de la fonction x .5 secondes par caractère = 3500000 secondes. C'est 58333.33 minutes, 972.2222 heures ou 40.50926 jours d'un programmeur de vie que nous avons donné de nouveau à eux 🙂 Dans tous les cas, notre objectif est de pousser à CRAN par la Feb 1
- Environ un an de retard, mais nous avons finalement soumis à CRAN. Devrait être en place dans quelques jours. @trinker (ou moi) assurez-vous de modifier cette fois, il va public.
- Je sais que je suis à des années de retard, mais je trouve votre raisonnement pour la p_ préfixe plutôt douteuse. Si laconisme est le problème, supprimez le p_ préfixe entièrement. En fait, avoir ces préfixes sont déconseillés dans d'autres langues, pour de bonnes raisons (je l'ai dit Hadley ils même en ce qui concerne son fct_ non-sens dans forcats). C'est surtout vrai puisqu'il est prévu que l'utilisation de th paquet est qualifié d'espace de noms (pacman::).
- Je peux voir le point, mais il y a déjà de nombreuses fonctions dans les communes de R des forfaits incluant des paquets de base avec ces noms. Ce protège contre les conflits d'espace de noms. Vous dire que j'ai utiliser le pacman:: mais il est idiot de croire tout le monde sera d'utiliser un paquet dans la façon dont je le fais. Comme la plupart des choses, il est nécessaire de trouver un compromis. Ici, le compromis est le laconisme vs descriptif vs conflits d'espace de noms. Plus à ce point un changement de ce genre de pause trop de gens du code.
- Excuses pour le combat sur cette question, mais je pense vraiment que le R de la communauté est tout simplement faux, et pratiquement chaque autre langue moderne est bon: Vous dites “Ce protège contre les conflits d'espace de noms.” — Mais c'est ce que les espaces de noms sont pour! Le fardeau de la preuve sur l'emballage des écrivains est d'éduquer les gens à utiliser les paquets correctement, de ne pas tenir compte de leurs bâclée pratiques de programmation.
- Cool! Je suppose que cela résout des questions stackoverflow.com/q/9341635/1169233 et stackoverflow.com/q/4090169/1169233 (je vois que vous avez posté une réponse à ce dernier, mais pas à l'ancienne, qui est fermé de toute façon).
InformationsquelleAutor Tyler Rinker
23

Cela devrait faire l'affaire:
```
lapply(x, FUN = function(X) {
    do.call("require", list(X)) 
})
```
(Le plus important est que le args argument en do.call(what, args) doit être une liste --- même si elle n'a qu'un seul élément!)
- Merci, fonctionne très bien, mais j'aime la plus courte ligne de code pour daroczig de réponse. +1
- Je suis totalement d'accord. Merci de poser la question.
- +1 pour une explication de pourquoi l'OP tentatives n'ont pas de travail.
- La partie concernant le faire.appel de la args besoin d'être une liste qui est très instructif. Merci pour l'info.
InformationsquelleAutor Josh O'Brien

pour quelqu'un qui veut installer et charger des packages simultanément, je suis tombé sur cette fonction dans le lien ci-dessous
https://gist.github.com/stevenworthington/3178163

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

Bonjour, j'ai créé un R fichier à partir de votre extrait. Quand je lance le script sur Amazon EMR service qu'il me donne la sortie suivante, comme spécifié dans l'URL suivante. pastie.org/10402378#3,10-11,13.

InformationsquelleAutor bala

7

Une option alternative vient du package easypackages. Une fois installé, vous pouvez charger des packages dans la manière la plus intuitive:
```
libraries("plyr", "psych", "tm")
```
Le forfait comprend également une fonction pour installer plusieurs paquets:
```
packages("plyr", "psych", "tm")
```
Référence ici.
- Le nom de la fonction est assez confuse dans la confusion. “bibliothèque” dans le library fonction, désigne le lieu où les paquets sont installés: le package library. Chargement de plusieurs paquets via libraries n'a pas de sens. Ayant une fonction distincte packages qui fait quelque chose d'autre tout à fait de cette pire. Je sais de nommage est un problème difficile en génie logiciel, mais vraiment. Ces noms sont particulièrement mauvais.
- Je suis en désaccord que le nom libraries n'a pas de sens. C'est le pluriel de library, et library charge un seul paquet; libraries charge une pluralité de paquets. Si vous pensez library le sens de "charger à partir de votre bibliothèque unique", et d'étendre à libraries sens "charger à partir de plusieurs bibliothèques", alors c'est peut-être pas intuitif, mais ce n'est pas mon intention; je serais tout à fait heureux avec le nom libraries.
- Mais c'est toujours (généralement) le chargement à partir d'une bibliothèque unique. Vous semblez confondre la bibliothèque et paquet (qui, pour être juste, il est devenu courant dans R): Le “R” la bibliothèque, comme mon commentaire précédent a déclaré, se réfère à l'emplacement(s) (répertoire/répertoires) où R les paquets sont installés. Dans cette réponse, l'exemple de “plyr”, “psy” et “tm” sont pas bibliothèques: ils sont forfaits.
InformationsquelleAutor luchonacho
4

Vous pouvez simplement utiliser lubripack paquet et il parfaitement installe de nouveaux paquets et ensuite chargez-les tous dans une seule ligne.
```
lubripack("plyr", "psych", "tm")
```
Voici le résultat après l'exécution de code ci-dessus dans RStudio.

Comment Installer le Paquet:

Exécuter le code ci-dessous pour télécharger le paquet et l'installer à partir de GitHub. Nul besoin d'avoir de Compte GitHub.
```
library(devtools)
install_github("espanta/lubripack")
```
- pourquoi en bas de vote? Merci de m'aider à le comprendre.
- Je suppose d'utiliser des images au lieu de texte
- Cela ne répond pas à la question qui n'est pas déjà répondu et semble être la plupart du temps d'auto-promotion.
- Vous avez raison, j'ai essayé implicite de répondre à la question. Permet de rendre explicite en espérant que cela peut être la réponse à la question.
- Comment est-ce maintenant?
InformationsquelleAutor Espanta

Bâtiment sur daroczig la solution, si vous ne voulez pas spécifier une liste en entrée, vous pouvez utiliser

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

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

... ce qui est plus courte que

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

InformationsquelleAutor goclem

J'utilise la fonction suivante:

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

Cette tente de charger, et s'il ne l'installe et ensuite essayer de le charger à nouveau.

InformationsquelleAutor ricardo

0

Je pense que le code que @daroczig a fourni peut être améliorée en remplaçant la require avec library et envelopper les lapply appeler à l'intérieur de la invisible() fonction. Ainsi, l'amélioration du code ressemblera à celui-ci:
```
invisible(lapply(x, library, character.only = TRUE))
```
Ce code est améliorée parce que:
1. library() est généralement préféré plus de require() pour le chargement des paquets parce que le premier donne une erreur si le paquet n'est pas installé alors que le second donne juste un avertissement. En outre, require() appels library(), alors pourquoi ne pas utiliser library() directement!
```
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. La liste objet retourné et imprimé par le lapply() appel n'est pas utile dans ce cas, il est donc logique de faire la sortie d'invisible. Dire que vous l'utilisez R Notebook pour votre travail d'analyse, à l'aide de la invisible() fonction supprimer le contenu de la liste d'objets et de prévenir le désordre dans le rendu du fichier notebook.
InformationsquelleAutor Ashirwad
0

Légère mod de Tyler Rinker est la réponse d'ajouter une case à installer & charge pacman:
```
#Install/load pacman
if(!require(pacman)){install.packages("pacman");require(pacman)}
#Install/load tons of packages
p_load(plyr,psych,tm)
```
J'aime la p_load solution car elle évite de citer!

InformationsquelleAutor mattador

Vous devez vous connecter pour publier un commentaire.

Comment Installer le Paquet: