rpy2: проверьте, установлен ли пакет

Question

Используя rpy2, я хочу проверить, установлен ли данный пакет. Если это так, я импортирую его. Если нет, я сначала его установлю.

Как проверить, установлен ли он?

from rpy2 import * 
if not *my package is installed*: 
    rpy2.interactive as r 
    r.importr("utils") 
    package_name = "my_package" 
    r.packages.utils.install_packages(package_name) 
myPackage = importr("my_package") 

Answer 1

Вы можете использовать следующую функцию я получил от @ ответ SaschaEpskamp на another SO post:

pkgTest <- function(x) 
    { 
    if (!require(x,character.only = TRUE)) 
    { 
     install.packages(x,dep=TRUE) 
     if(!require(x,character.only = TRUE)) stop("Package not found") 
    } 
    } 

И использовать это вместо того, чтобы загрузить свои пакеты:

r.source("file_with_pkgTest.r") 
r.pkgTest("utils") 

В общем, я бы рекомендуем не пытаться писать много R-кода внутри Python. Просто создайте несколько высокоуровневых R-функций, которые делают то, что вам нужно, и используйте их как минимальный интерфейс между R и Python.

Answer 2

import sys,subprocess 
    your_package = 'nltk' 

    package_names = subprocess.Popen([pip freeze], 
    stdout=subprocess.PIPE).communicate()[0] 
    pakage = package_names.split('\n') 

    for package in packages: 
     if package ==your_package: 
     print 'true' 

Answer 3

Вот функция, которая сделает это на стороне Python (обратите внимание на contriburl, который должен быть установлен в зеркало CRAN, и что в случае, когда установка библиотеки не удается не обрабатывается).

from rpy2.rinterface import RRuntimeError 
from rpy2.robjects.packages import importr 
utils = importr('utils') 

def importr_tryhard(packname, contriburl): 
    try: 
     rpack = importr(packname) 
    except RRuntimeError: 
     utils.install_packages(packname, contriburl = contriburl) 
     rpack = importr(packname) 
    return rpack