Cara elegan untuk memeriksa paket yang hilang dan menginstalnya?


337

Saya tampaknya berbagi banyak kode dengan rekan penulis hari ini. Banyak dari mereka adalah pengguna R pemula dan menengah dan tidak menyadari bahwa mereka harus menginstal paket yang belum mereka miliki.

Apakah ada cara yang elegan untuk menelepon installed.packages(), bandingkan dengan yang saya muat dan instal jika tidak ada?


1
@ krlmlr Bagaimana dengan jawaban yang diterima yang kedaluwarsa dan memerlukan revisi? Ini berfungsi untuk saya (untuk beberapa tes cepat) di bawah R version 3.0.2 (2013-09-25) x86_64-w64-mingw32/x64 (64-bit).
Brian Diggs

1
@BrianDiggs: Setidaknya tiga paket muncul yang mengatasi masalah ini, hanya satu yang dirujuk di bawah ini. Apakah ada lebih banyak lagi - itu pertanyaannya.
krlmlr

2
@ krlmlr Tampaknya ada sedikit masalah ayam dan telur yang ironis tentang penggunaan paket untuk memastikan (yang lain) memiliki paket yang diperlukan. Tetapi tentu saja layak memiliki seseorang yang tahu tentang mereka menulis jawaban.
Brian Diggs

2
@BrianDiggs: Bootstrap paket pemeriksaan-instalasi ini merupakan gangguan yang perlu, tetapi kecil. Kecuali, tentu saja, fungsionalitas menemukan jalannya ke base... ;-)
krlmlr

Jawaban:


304

Iya. Jika Anda memiliki daftar paket, bandingkan dengan output dari installed.packages()[,"Package"]dan instal paket yang hilang. Sesuatu seperti ini:

list.of.packages <- c("ggplot2", "Rcpp")
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(new.packages)

Jika tidak:

Jika Anda memasukkan kode Anda dalam sebuah paket dan menjadikannya dependensi, maka mereka akan secara otomatis diinstal ketika Anda menginstal paket Anda.


11
Saya pikir sintaks yang tepat adalah: if(length(new.packages)>0) {install.packages(new.packages)}

5
@psql, Shine benar, karena "> 0" adalah "implisit" dalam kondisi if. jalankan ini untuk memverifikasinya:new.packages <- c(1,2) length(new.packages) if(length(new.packages)){print("hello!")}else{print("oh no!")}
Andrea Cirillo

7
Doc dari install.packages menyatakan: "Ini bisa lambat ketika ribuan paket diinstal, jadi jangan gunakan ini untuk mencari tahu apakah paket bernama diinstal (gunakan system.file atau find.package) ..."
Thomas Materna

2
Setuju dengan Thomas, ini akan menjadi kinerja yang lebih baik requiredaripada memeriksainstalled.packages
Matius

1
packratdibuat untuk ini. Ini adalah sistem manajemen paket yang dapat direproduksi. Cara ini terjadi dengan cara yang salah dan mengacaukan lingkungan orang lain dan tidak dapat direproduksi. Packrat memiliki folder dan lingkungannya sendiri untuk pustaka bersama. rstudio.github.io/packrat
mtelesha

231

Dason K. dan saya memiliki paket pacman yang dapat melakukan ini dengan baik. Fungsi p_loaddalam paket melakukan ini. Baris pertama hanya untuk memastikan bahwa pacman diinstal.

if (!require("pacman")) install.packages("pacman")
pacman::p_load(package1, package2, package_n)

1
Apa status paket? Saya tidak bisa melihat di C-RAN.
MERose

4
@MERose pacman sekarang ada di CRAN cran.r-project.org/web/packages/pacman/index.html
Tyler Rinker

6
Telah diinstal sekarang dan berfungsi dengan sangat baik; harus menjadi bagian dari basis!
AndyF

3
Satu-satunya cara ini akan lebih baik adalah jika diperiksa /dan, jika ditemukan, instal / muat dari github secara otomatis.
serangan udara

4
@NealBarsch jika Anda maksud if (!require("pacman")) install.packages("pacman")ada fungsi dalam pacman disebut p_boot()maks baris ini untuk Anda secara otomatis dan menyalinnya ke clipboard.
Tyler Rinker

72

Anda bisa menggunakan nilai pengembalian require:

if(!require(somepackage)){
    install.packages("somepackage")
    library(somepackage)
}

Saya menggunakan librarysetelah instalasi karena akan mengeluarkan pengecualian jika instalasi tidak berhasil atau paket tidak dapat dimuat karena alasan lain. Anda menjadikan ini lebih kuat dan dapat digunakan kembali:

dynamic_require <- function(package){
  if(eval(parse(text=paste("require(",package,")")))) return True

  install.packages(package)
  return eval(parse(text=paste("require(",package,")")))
}

Kelemahan dari metode ini adalah Anda harus memberikan nama paket dalam tanda kutip, yang sebenarnya tidak Anda lakukan require.


4
Anda dapat menyederhanakan hidup Anda jauh lebih dengan menggunakan character.only = TRUEdi require, tapi kemudian saya kira tidak ada yang membedakan jawaban Anda dari tambang.
Simon O'Hanlon

Ini terlihat bagus tetapi sepertinya tidak berhasil, setidaknya untuk saya. Ketika saya mencoba versi yang kuat ini, saya mendapatkan dua pesan kesalahan karena R tidak tahu bagaimana menangani "kembali Benar" dan "mengembalikan eval" karena beberapa alasan. Jadi saya benar-benar ingin fungsi seperti ini yang memuat paket jika ada di perpustakaan saya dan menginstal (dan kemudian memuat) paket. Idealnya saya akan menggunakan ini sebagai default untuk memuat paket. Setidaknya sepertinya masuk akal untuk melakukannya dan akan menghemat waktu.
Fabian Habersack

23
if (!require('ggplot2')) install.packages('ggplot2'); library('ggplot2')

"ggplot2" adalah paketnya. Ia memeriksa untuk melihat apakah paket diinstal, jika tidak menginstalnya. Itu kemudian memuat paket terlepas dari cabang yang dibutuhkan.


21

Solusi ini akan mengambil vektor karakter dari nama paket dan mencoba memuatnya, atau menginstalnya jika pemuatan gagal. Itu bergantung pada perilaku pengembalian requireuntuk melakukan ini karena ...

require mengembalikan (tak terlihat) logika yang menunjukkan apakah paket yang diperlukan tersedia

Karena itu kita bisa melihat apakah kita dapat memuat paket yang diperlukan dan jika tidak, instal dengan dependensi. Jadi diberi vektor karakter paket yang ingin Anda muat ...

foo <- function(x){
  for( i in x ){
    #  require returns TRUE invisibly if it was able to load package
    if( ! require( i , character.only = TRUE ) ){
      #  If package was not able to be loaded then re-install
      install.packages( i , dependencies = TRUE )
      #  Load package after installing
      require( i , character.only = TRUE )
    }
  }
}

#  Then try/install packages...
foo( c("ggplot2" , "reshape2" , "data.table" ) )

Tidakkah Anda ingin menelepon requirelagi setelah menginstal?
krlmlr

@ krlmlr Tidak, karena agar ifpernyataan dievaluasi terlebih dahulu harus dievaluasi require, efek sampingnya memuat paket jika tersedia!
Simon O'Hanlon

1
SimonO101: Saya pikir krlmlr berarti dalam pernyataan if, setelah panggilan ke install.packages, karena ini tidak akan memuat paket itu. Tetapi (untuk @krlmlr) saya menduga maksudnya adalah bahwa fragmen kode ini hanya akan dipanggil sekali; Anda tidak akan menulis ini setiap kali Anda membutuhkan paket. Sebaliknya Anda akan menjalankannya sekali sebelumnya dan kemudian menelepon requireseperti biasa sesuai kebutuhan.
Aaron meninggalkan Stack Overflow

@ Harun ah ya ok, saya mengerti maksud Anda, dan ya penafsiran Anda benar. Saya akan mengeditnya sedikit untuk lebih eksplisit tentang memuat setelah menginstal.
Simon O'Hanlon

1
bukankah lebih baik untuk membuat requirepanggilan kedua untuk librarysehingga gagal ribut jika masih tidak dapat melampirkan paket karena beberapa alasan?
kabdulla

18

Banyak jawaban di atas (dan duplikat dari pertanyaan ini) bergantung pada installed.packagesbentuk mana yang buruk. Dari dokumentasi:

Ini bisa lambat ketika ribuan paket diinstal, jadi jangan gunakan ini untuk mencari tahu apakah paket bernama diinstal (gunakan system.file atau find.package) atau untuk mengetahui apakah suatu paket dapat digunakan (panggilan membutuhkan dan periksa nilai balik) atau untuk menemukan rincian sejumlah kecil paket (gunakan packageDescription). Perlu membaca beberapa file per paket yang diinstal, yang akan lambat pada Windows dan pada beberapa sistem file yang dipasang di jaringan.

Jadi, pendekatan yang lebih baik adalah mencoba memuat paket menggunakan requiredan menginstal jika pemuatan gagal ( requireakan kembali FALSEjika tidak ditemukan). Saya lebih suka implementasi ini:

using<-function(...) {
    libs<-unlist(list(...))
    req<-unlist(lapply(libs,require,character.only=TRUE))
    need<-libs[req==FALSE]
    if(length(need)>0){ 
        install.packages(need)
        lapply(need,require,character.only=TRUE)
    }
}

yang bisa digunakan seperti ini:

using("RCurl","ggplot2","jsonlite","magrittr")

Dengan cara ini memuat semua paket, lalu kembali dan menginstal semua paket yang hilang (yang jika Anda mau, adalah tempat yang berguna untuk memasukkan prompt untuk menanyakan apakah pengguna ingin menginstal paket). Alih-alih memanggil install.packagessecara terpisah untuk setiap paket, ia hanya mengirimkan seluruh vektor paket yang dihapus instalasinya sekali saja.

Berikut fungsi yang sama tetapi dengan dialog windows yang menanyakan apakah pengguna ingin menginstal paket yang hilang

using<-function(...) {
    libs<-unlist(list(...))
    req<-unlist(lapply(libs,require,character.only=TRUE))
    need<-libs[req==FALSE]
    n<-length(need)
    if(n>0){
        libsmsg<-if(n>2) paste(paste(need[1:(n-1)],collapse=", "),",",sep="") else need[1]
        print(libsmsg)
        if(n>1){
            libsmsg<-paste(libsmsg," and ", need[n],sep="")
        }
        libsmsg<-paste("The following packages could not be found: ",libsmsg,"\n\r\n\rInstall missing packages?",collapse="")
        if(winDialog(type = c("yesno"), libsmsg)=="YES"){       
            install.packages(need)
            lapply(need,require,character.only=TRUE)
        }
    }
}

Ini adalah cara yang cukup elegan, jauh lebih baik daripada yang diterima. Saya akan memasukkannya di perpustakaan pribadi saya. Terima kasih.
Bing

15

Walaupun jawaban Shane sangat bagus, untuk salah satu proyek saya, saya perlu menghapus pesan, peringatan, dan menginstal paket ouput secara otomatis . Saya akhirnya berhasil mendapatkan skrip ini:

InstalledPackage <- function(package) 
{
    available <- suppressMessages(suppressWarnings(sapply(package, require, quietly = TRUE, character.only = TRUE, warn.conflicts = FALSE)))
    missing <- package[!available]
    if (length(missing) > 0) return(FALSE)
    return(TRUE)
}

CRANChoosen <- function()
{
    return(getOption("repos")["CRAN"] != "@CRAN@")
}

UsePackage <- function(package, defaultCRANmirror = "http://cran.at.r-project.org") 
{
    if(!InstalledPackage(package))
    {
        if(!CRANChoosen())
        {       
            chooseCRANmirror()
            if(!CRANChoosen())
            {
                options(repos = c(CRAN = defaultCRANmirror))
            }
        }

        suppressMessages(suppressWarnings(install.packages(package)))
        if(!InstalledPackage(package)) return(FALSE)
    }
    return(TRUE)
}

Menggunakan:

libraries <- c("ReadImages", "ggplot2")
for(library in libraries) 
{ 
    if(!UsePackage(library))
    {
        stop("Error!", library)
    }
}

9
# List of packages for session
.packages = c("ggplot2", "plyr", "rms")

# Install CRAN packages (if not already installed)
.inst <- .packages %in% installed.packages()
if(length(.packages[!.inst]) > 0) install.packages(.packages[!.inst])

# Load packages into session 
lapply(.packages, require, character.only=TRUE)

6

Ini adalah tujuan dari paket rbundler : untuk menyediakan cara untuk mengontrol paket-paket yang diinstal untuk proyek tertentu. Saat ini paket bekerja dengan fungsi devtools untuk menginstal paket ke direktori proyek Anda. Fungsionalitasnya mirip dengan bundler Ruby .

Jika proyek Anda adalah sebuah paket (disarankan) maka yang harus Anda lakukan adalah memuat rbundler dan menggabungkan paket-paket tersebut. The bundlefungsi akan melihat paket Anda DESCRIPTIONberkas untuk menentukan paket bundel.

library(rbundler)
bundle('.', repos="http://cran.us.r-project.org")

Sekarang paket akan diinstal di direktori .Rundle.

Jika proyek Anda bukan paket, maka Anda bisa memalsunya dengan membuat DESCRIPTIONfile di direktori root proyek Anda dengan bidang Tergantung yang mencantumkan paket yang ingin Anda instal (dengan informasi versi opsional):

Depends: ggplot2 (>= 0.9.2), arm, glmnet

Inilah repo github untuk proyek ini jika Anda tertarik untuk berkontribusi: rbundler .


5

Tentu.

Anda perlu membandingkan 'paket yang diinstal' dengan 'paket yang diinginkan'. Itu sangat dekat dengan apa yang saya lakukan dengan CRANberries karena saya perlu membandingkan 'paket yang dikenal tersimpan' dengan 'paket yang dikenal saat ini' untuk menentukan paket baru dan / atau yang diperbarui.

Jadi lakukan sesuatu seperti

AP <- available.packages(contrib.url(repos[i,"url"]))   # available t repos[i]

untuk mendapatkan semua paket yang dikenal, panggilan simular untuk paket yang diinstal saat ini dan bandingkan dengan paket target yang diberikan.


5

Gunakan packratagar pustaka bersama sama persis dan tidak mengubah lingkungan orang lain.

Dalam hal keanggunan dan praktik terbaik, saya pikir Anda pada dasarnya akan melakukannya dengan cara yang salah. Paket packratini dirancang untuk masalah ini. Ini dikembangkan oleh RStudio oleh Hadley Wickham. Alih-alih mereka harus menginstal dependensi dan mungkin mengacaukan sistem lingkungan seseorang, packratgunakan direktori sendiri dan instal semua dependensi untuk program Anda di sana dan tidak menyentuh lingkungan seseorang.

Packrat adalah sistem manajemen ketergantungan untuk R.

Ketergantungan paket R bisa membuat frustasi. Pernahkah Anda menggunakan trial-and-error untuk mencari tahu paket R apa yang perlu Anda instal untuk membuat kode orang lain berfungsi - dan kemudian ditinggalkan dengan paket-paket tersebut terinstal secara global selamanya, karena sekarang Anda tidak yakin apakah Anda membutuhkannya ? Apakah Anda pernah memperbarui paket untuk mendapatkan kode di salah satu proyek Anda untuk bekerja, hanya untuk menemukan bahwa paket yang diperbarui membuat kode di proyek lain berhenti bekerja?

Kami membangun packrat untuk menyelesaikan masalah ini. Gunakan packrat untuk membuat proyek R Anda lebih banyak:

  • Terisolasi: Menginstal paket baru atau yang diperbarui untuk satu proyek tidak akan merusak proyek Anda yang lain, dan sebaliknya. Itu karena packrat memberikan setiap proyek perpustakaan paket pribadi mereka sendiri.
  • Portable: Mudah mengangkut proyek Anda dari satu komputer ke komputer lain, bahkan di seluruh platform yang berbeda. Packrat memudahkan untuk menginstal paket yang bergantung pada proyek Anda.
  • Reproducible: Packrat mencatat versi paket persis yang Anda andalkan, dan memastikan versi yang tepat adalah yang diinstal di mana pun Anda pergi.

https://rstudio.github.io/packrat/


4

Fungsi sederhana berikut berfungsi seperti pesona:

  usePackage<-function(p){
      # load a package if installed, else load after installation.
      # Args:
      #   p: package name in quotes

      if (!is.element(p, installed.packages()[,1])){
        print(paste('Package:',p,'Not found, Installing Now...'))
        install.packages(p, dep = TRUE)}
      print(paste('Loading Package :',p))
      require(p, character.only = TRUE)  
    }

(bukan milikku, menemukan ini di web beberapa waktu lalu dan telah menggunakannya sejak itu. tidak yakin dengan sumber aslinya)


4

Saya menggunakan fungsi berikut untuk menginstal paket jika require("<package>")keluar dengan paket tidak ditemukan kesalahan. Ini akan meminta baik - repositori CRAN dan Bioconductor untuk paket yang hilang.

Diadaptasi dari karya asli oleh Joshua Wiley, http://r.789695.n4.nabble.com/Install-package-automatically-if-not-ther-td2267532.html

install.packages.auto <- function(x) { 
  x <- as.character(substitute(x)) 
  if(isTRUE(x %in% .packages(all.available=TRUE))) { 
    eval(parse(text = sprintf("require(\"%s\")", x)))
  } else { 
    #update.packages(ask= FALSE) #update installed packages.
    eval(parse(text = sprintf("install.packages(\"%s\", dependencies = TRUE)", x)))
  }
  if(isTRUE(x %in% .packages(all.available=TRUE))) { 
    eval(parse(text = sprintf("require(\"%s\")", x)))
  } else {
    source("http://bioconductor.org/biocLite.R")
    #biocLite(character(), ask=FALSE) #update installed packages.
    eval(parse(text = sprintf("biocLite(\"%s\")", x)))
    eval(parse(text = sprintf("require(\"%s\")", x)))
  }
}

Contoh:

install.packages.auto(qvalue) # from bioconductor
install.packages.auto(rNMF) # from CRAN

PS: update.packages(ask = FALSE)& biocLite(character(), ask=FALSE)akan memperbarui semua paket yang diinstal pada sistem. Ini bisa memakan waktu lama dan menganggapnya sebagai upgrade R penuh yang mungkin tidak dijamin sepanjang waktu!


Ini dapat ditingkatkan dengan memeriksa apakah paket benar-benar tersedia pada cran atau bc. Juga harus menggunakan pustaka di akhir untuk membuat kesalahan jika instalasi gagal atau paket tidak ada. Lihat versi saya yang ditingkatkan yang disebut loadpack()di raw.githubusercontent.com/holgerbrandl/datautils/master/R/…
Holger Brandl

4

Anda cukup menggunakan setdifffungsi untuk mendapatkan paket yang tidak diinstal dan kemudian menginstalnya. Dalam contoh di bawah ini, kami memeriksa apakah ggplot2dan Rcpppaket diinstal sebelum menginstalnya.

unavailable <- setdiff(c("ggplot2", "Rcpp"), rownames(installed.packages()))
install.packages(unavailable)

Dalam satu baris, yang di atas dapat ditulis sebagai:

install.packages(setdiff(c("ggplot2", "Rcpp"), rownames(installed.packages())))

Saya menggunakan pendekatan yang sama. Kita juga bisa menggunakan installed.packages()[,'Package']bukan rownames(installed.packages()).
Scudelletti

3

Saya telah mengimplementasikan fungsi untuk menginstal dan memuat paket R yang diperlukan secara diam-diam. Semoga bisa membantu. Ini kodenya:

# Function to Install and Load R Packages
Install_And_Load <- function(Required_Packages)
{
    Remaining_Packages <- Required_Packages[!(Required_Packages %in% installed.packages()[,"Package"])];

    if(length(Remaining_Packages)) 
    {
        install.packages(Remaining_Packages);
    }
    for(package_name in Required_Packages)
    {
        library(package_name,character.only=TRUE,quietly=TRUE);
    }
}

# Specify the list of required packages to be installed and load    
Required_Packages=c("ggplot2", "Rcpp");

# Call the Function
Install_And_Load(Required_Packages);

3

Versi RStudio (1.2) yang akan datang, sudah tersedia sebagai pratinjau, akan menyertakan fitur untuk mendeteksi paket library()dan require()panggilan yang hilang , dan meminta pengguna untuk menginstalnya:

Mendeteksi paket R yang hilang

Banyak skrip R terbuka dengan panggilan ke library()dan require()untuk memuat paket yang mereka butuhkan untuk dieksekusi. Jika Anda membuka skrip R yang mereferensikan paket yang belum Anda instal, RStudio sekarang akan menawarkan untuk menginstal semua paket yang dibutuhkan dalam satu klik. Tidak perlu lagi mengetik install.packages()berulang kali hingga kesalahan hilang!
https://blog.rstudio.com/2018/11/19/rstudio-1-2-preview-the-little-things/

Hal ini tampaknya menyikapi keprihatinan asli OP dengan sangat baik:

Banyak dari mereka adalah pengguna R pemula dan menengah dan tidak menyadari bahwa mereka harus menginstal paket yang belum mereka miliki.


2

Mengenai tujuan utama Anda "untuk menginstal perpustakaan yang belum mereka miliki." Dan terlepas dari menggunakan "instllaed.packages ()". Fungsi berikut menutupi fungsi asli yang diminta. Mencoba memuat dan memeriksa paket bernama "x", jika tidak diinstal, instal langsung termasuk dependensi; dan terakhir memuatnya secara normal. Anda mengganti nama fungsi dari 'wajib' ke 'perpustakaan' untuk menjaga integritas. Satu-satunya batasan adalah nama paket harus dikutip.

require <- function(x) { 
  if (!base::require(x, character.only = TRUE)) {
  install.packages(x, dep = TRUE) ; 
  base::require(x, character.only = TRUE)
  } 
}

Jadi Anda dapat memuat dan menginstal paket dengan cara mode lama dari R. Butuhkan ("ggplot2") memerlukan ("Rcpp")


Jika Anda tidak menyukai jawaban Anda lagi, jangan merusaknya - hapus saja.
Michael Petrotta

Yah, aku sudah mencoba, tetapi aku tidak bisa. Saya pikir ekstensi NoScript FF saya menonaktifkannya atau saya tidak memiliki hak dan kredit untuk menghapus jawaban saya sendiri. Namun, saya pikir Livius cukup dekat dengan jawaban saya, berpikir tanpa menutupi. Terima kasih Michael Petrotta. untuk notifikasi.
GeoObserver

Anda harus melihat deletetautan di atas komentar ini. Jika tidak, dan Anda masih ingin menghapus, gunakan flagtautan, pilih "lain", dan jelaskan kepada moderator bahwa Anda ingin jawabannya dihapus.
Michael Petrotta

2

Cukup mendasar.

pkgs = c("pacman","data.table")
if(length(new.pkgs <- setdiff(pkgs, rownames(installed.packages())))) install.packages(new.pkgs)

2

Saya pikir saya akan berkontribusi yang saya gunakan:

testin <- function(package){if (!package %in% installed.packages())    
install.packages(package)}
testin("packagename")

2
source("https://bioconductor.org/biocLite.R")
if (!require("ggsci")) biocLite("ggsci")

2

Menggunakan pendekatan keluarga lapply dan fungsi anonim, Anda dapat:

  1. Coba lampirkan semua paket yang terdaftar.
  2. Instal hanya hilang (menggunakan || evaluasi malas).
  3. Coba pasang kembali yang hilang di langkah 1 dan pasang di langkah 2.
  4. Cetak setiap paket status pemuatan akhir ( TRUE/ FALSE).

    req <- substitute(require(x, character.only = TRUE))
    lbs <- c("plyr", "psych", "tm")
    sapply(lbs, function(x) eval(req) || {install.packages(x); eval(req)})
    
    plyr psych    tm 
    TRUE  TRUE  TRUE 

1

Saya menggunakan yang berikut ini yang akan memeriksa apakah paket diinstal dan jika dependensi diperbarui, kemudian memuat paket.

p<-c('ggplot2','Rcpp')
install_package<-function(pack)
{if(!(pack %in% row.names(installed.packages())))
{
  update.packages(ask=F)
  install.packages(pack,dependencies=T)
}
 require(pack,character.only=TRUE)
}
for(pack in p) {install_package(pack)}

completeFun <- function(data, desiredCols) {
  completeVec <- complete.cases(data[, desiredCols])
  return(data[completeVec, ])
}

1

Ini kode saya untuk itu:

packages <- c("dplyr", "gridBase", "gridExtra")
package_loader <- function(x){
    for (i in 1:length(x)){
        if (!identical((x[i], installed.packages()[x[i],1])){
            install.packages(x[i], dep = TRUE)
        } else {
            require(x[i], character.only = TRUE)
        }
    }
}
package_loader(packages)

1
 48 lapply_install_and_load <- function (package1, ...)
 49 {
 50     #
 51     # convert arguments to vector
 52     #
 53     packages <- c(package1, ...)
 54     #
 55     # check if loaded and installed
 56     #
 57     loaded        <- packages %in% (.packages())
 58     names(loaded) <- packages
 59     #
 60     installed        <- packages %in% rownames(installed.packages())
 61     names(installed) <- packages
 62     #
 63     # start loop to determine if each package is installed
 64     #
 65     load_it <- function (p, loaded, installed)
 66     {
 67         if (loaded[p])
 68         {
 69             print(paste(p, "loaded"))
 70         }
 71         else
 72         {
 73             print(paste(p, "not loaded"))
 74             if (installed[p])
 75             {
 76                 print(paste(p, "installed"))
 77                 do.call("library", list(p))
 78             }
 79             else
 80             {
 81                 print(paste(p, "not installed"))
 82                 install.packages(p)
 83                 do.call("library", list(p))
 84             }
 85         }
 86     }
 87     #
 88     lapply(packages, load_it, loaded, installed)
 89 }

1
library <- function(x){
  x = toString(substitute(x))
if(!require(x,character.only=TRUE)){
  install.packages(x)
  base::library(x,character.only=TRUE)
}}

Ini berfungsi dengan nama paket yang tidak dikutip dan cukup elegan (lih. Jawaban GeoObserver)


1

Dalam kasus saya, saya ingin satu liner yang dapat saya jalankan dari commandline (sebenarnya melalui Makefile). Berikut adalah contoh menginstal "VGAM" dan "feather" jika belum diinstal:

R -e 'for (p in c("VGAM", "feather")) if (!require(p, character.only=TRUE)) install.packages(p, repos="http://cran.us.r-project.org")'

Dari dalam R itu hanya akan:

for (p in c("VGAM", "feather")) if (!require(p, character.only=TRUE)) install.packages(p, repos="http://cran.us.r-project.org")

Tidak ada apa pun di sini selain solusi sebelumnya kecuali bahwa:

  • Saya menyimpannya dalam satu baris
  • Saya sulit mengode reposparameter (untuk menghindari sembulan menanyakan tentang mirror untuk digunakan)
  • Saya tidak peduli untuk mendefinisikan fungsi yang akan digunakan di tempat lain

Perhatikan juga yang penting character.only=TRUE(tanpa itu, requireakan mencoba memuat paket p).


0
  packages_installed <- function(pkg_list){
        pkgs <- unlist(pkg_list)
        req <- unlist(lapply(pkgs, require, character.only = TRUE))
        not_installed <- pkgs[req == FALSE]
        lapply(not_installed, install.packages, 
               repos = "http://cran.r-project.org")# add lib.loc if needed
        lapply(pkgs, library, character.only = TRUE)
}

0

Biarkan saya berbagi sedikit kegilaan:

c("ggplot2","ggsci", "hrbrthemes", "gghighlight", "dplyr") %>%  # What will you need to load for this script?
  (function (x) ifelse(t =!(x %in% installed.packages()), 
    install.packages(x[t]),
    lapply(x, require))) 
Dengan menggunakan situs kami, Anda mengakui telah membaca dan memahami Kebijakan Cookie dan Kebijakan Privasi kami.
Licensed under cc by-sa 3.0 with attribution required.