Calling Python from R

译者:徐静

OverView

reticulate包提供了一个导入python模块，类，方法的R接口，例如：下面的例子是在R中导入Python模块并使用模块中的函数。

library(reticulate)
os <- import("os")
os$listdir(".")

Python模块和类中的函数和其他数据可以通过$操作符访问（类似于与R列表、环境或引用类交互的方式）。

牛B的是，reticulate包支持所有版本的python，只是对某些python包的版本有要求，比如Numpy >= 1.6

Python Version

默认情况下，reticulate首先在环境变量中寻找Python(i.e.Sys.which(‘python’))，可以使用use_python()函数来更换你的python版本，例如：

library(reticulate)
use_python('user/locla/bin/python')

同时可以使用use_virtualenv()和use_condaenv()设定虚拟环境和conda环境的版本，例如:

library(reticulate)
use_virtualenv('myenv')

Importing Modules

inport()函数可以用来导入Python模块

difflib <- import("difflib")
difflib$ndiff(foo, bar)

filecmp <- import("filecmp")
filecmp$cmp(dir1, dir2)

import_main()和import_builtins()可以用来访问主模块（默认加载的模块，及python自建的模块函数

main <- import_main()

builtins <- import_builtins()
builtins$print('foo')

Sourcing Scripts

source_python()函数可以用来在R环境下source Python脚本

#add.py
def add(x, y):
  return x + y

source_python('add.py')
add(5,10)

Executing Code

可以使用主模块中的py_run_file和py_run_string函数，这样就可以使用任何用Python创建的对象

library(reticulate)

py_run_file("script.py")

py_run_string("x = 10")

# access the python main module via the 'py' object
py$x

Object Conversion

默认情况下，当python独享返回到R时，需要转化成R对象，然而，如果不想转化可以在import python函数时加入参数convert = FALSE，此python对象就不能够转化成R对象。

# import numpy and specify no automatic Python to R conversion
np <- import("numpy", convert = FALSE)

# do some array manipulations with NumPy
a <- np$array(c(1:4))
sum <- a$cumsum()

# convert to R explicitly at the end
py_to_r(sum)

如果你需要在计算最后转化成R对象，可以调用py_to_r()函数

Getting Help

打印Python的帮助文档函数:py_help()

os <- import("os")
py_help(os$chdir)

Lists,Tuples, and Dictionaries

Python API需要一个list,需要用R中list()函数转化

foo$bar(indexes = list(42L))

相似的，Python API需要一个tuple，此时你可以使用tuple()函数

tuple('a','b','c')

可以用dict()函数，创建一个Python字典

dict(foo = "bar", index = 42L)

Numeric Types and Indexes

R和python有不同的默认数值类型，比如说42在R中默认会被转化为一个浮点数，而在Python中会默认被转化为整数。

这就意味着，如果Python API需要一个整型，在R中需要在结尾加上一个L,例如：

foo$bar(index = 42L)

Python索引是以0开始的，而R中是以1开始的，因此如果在R中索引数组额第一个元素，需要

items[[1]]

然而，如果你想通过reticulate去调用一个Python方法，你需要这样调用第一个索引：

items$get(0L)

需要注意的是使用0作为第一个索引并且加上L作为结尾来表示是一个整型。

Arrays

R矩阵或数组会自动与Numpy array相互转化。

R array to Numpy using np_array()

a <- np_array(c(1:8), dtype = "float16")
a <- np_array(c(1:8), order = "C")

DataFrame

R data frames 自动与pandas DataFrame相互转化

注：

With Contexts

带有泛型函数的r可以用于与Python上下文管理器对象交互（在Python中，使用关键字）。例如:

py <- import_builtins()
with(py$open("output.txt", "w") %as% file, {
  file$write("Hello, there!")
})

此示例打开一个文件，并确保它在该块的结尾处自动关闭。注意使用%as%操作符来别名由上下文管理器创建的对象别名。

Iterrators

如果Python API返回的是一个迭代器或生成器，你可以在R中使用iterate()函数,实现迭代器的功能。

iterate(iter,print)

如果不传递函数进行迭代，结果将被收集到R向量中

results <- iterate(iter)

注意：

a <- iterate(iter) # results are not empty
b <- iterate(iter) # results are empty since items have already been drained

Element Level Iteration

while (TRUE) {
  item <- iter_next(iter)
  if (is.null(item))
    break
}

while (TRUE) {
  item <- iter_next(iter, completed = NA)
  if (is.na(item))
    break
}

Generators

# define a generator function
sequence_generator <-function(start) {
  value <- start
  function() {
    value <<- value + 1
    value
  }
}

# convert the function to a python iterator
iter <- py_iterator(sequence_generator(10))

Python Objects

Pickle

You can save and load Python objects (via pickle) using the py_save_object and py_load_object functions:

Configuration

Output Control

这些函数使您能够捕获或抑制来自Python的输出：

Miscellaneous(其他)

Reference

[1].Calling Python from R (en)