Làm cách nào để biết một gói nhất định đã được cài đặt chưa?

Question

Khi tôi cài đặt gói yaml, một thông báo lỗi gây phiền nhiễu xuất hiện trong RStudio nếu nó đã được cài đặt trước đó. Làm thế nào tôi có thể biết nếu gói đã được cài đặt để tôi có thể quyết định trong mã của tôi cho dù cài đặt gói hay không?

Thông điệp là trong một cửa sổ pop-up và nó là:

Một hoặc nhiều các gói sẽ được cập nhật bởi việc cài đặt này hiện được nạp. Khởi động lại R trước khi cập nhật các gói này là được khuyến khích mạnh mẽ. RStudio có thể khởi động lại R và sau đó tự động tiếp tục cài đặt sau khi khởi động lại (tất cả công việc và dữ liệu sẽ được bảo quản trong khi khởi động lại). Bạn có muốn khởi động lại R trước khi cài đặt không?

Answer 1

này sẽ được tải yaml, cài đặt nó đầu tiên nếu nó vẫn chưa được cài đặt:

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

hoặc nếu bạn muốn parameterize nó:

pkg <- "yaml" 
if (!require(pkg, character.only = TRUE)) { 
    install.packages(pkg) 
    if (!require(pkg, character.only = TRUE)) stop("load failure: ", pkg) 
} 

UPDATE. Parametrization.

Answer 2

bạn có thể sử dụng installed.packages() để tìm các gói cài đặt

Answer 3

Tôi đang sử dụng xây dựng sau trong mã của tôi. Các phần thiết yếu là về gọi library trong tryCatch và cài đặt nó nếu nó không thành công:

lib.auto <- function(lib, version=NULL, install.fun=install.packages, ...) { 
    tryCatch(
    library(lib, character.only=T), 
    error=function(e) { 
     install.fun(lib, ...) 
     library(lib, character.only=T) 
    } 
) 
    if (!is.null(version)) { 
    if (packageVersion(lib) < version) { 
     require(devtools) 
     detach(paste0('package:', lib), unload=T, character.only=T) 
     install.fun(lib, ...) 
     library(lib, character.only=T) 
     if (packageVersion(lib) < version) { 
     stop(sprintf('Package %s not available in version %s. Installed version: %s', lib, version, 
        packageVersion(lib))) 
     } 
    } 
    } 
} 

lib.auto('BiocInstaller', 
     install.fun=function(lib) { 
      source("http://bioconductor.org/biocLite.R") 
      biocLite(lib) 
     }) 

options(repos=biocinstallRepos()) 
lib.auto.bioc <- lib.auto 

lib.auto.github <- function(lib, version=NULL, user, subdir=NULL, repo=lib) 
    lib.auto(lib, version=version, 
      install.fun=function(l, u, s, r) { 
      require(devtools) 
      install_github(r, u, subdir=s) 
      }, 
      user, subdir, repo   
) 

Chức năng lib.auto cài đặt từ cran và Bioconductor, nếu có yêu cầu. Số lib.auto.github lượt cài đặt từ GitHub.

Tôi đang suy nghĩ về việc đẩy mã này vào một gói.

Answer 4

Hoặc, bạn có thể sử dụng chức năng require. Nó sẽ cố gắng tải gói và âm thầm trả về lôgic cho biết gói có sẵn hay không. Ngoài ra còn có một cảnh báo nếu không thể tải gói.

test1 <- require("stats") 
test1 

test2 <- require("blah") 
test2