/usr/lib/python3/dist-packages/rpy2/robjects/tests/testLanguage.py is in python3-rpy2 2.8.5-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | import unittest
import rpy2.robjects as robjects
import rpy2.robjects.language as lg
rinterface = robjects.rinterface
class LanguageTestCase(unittest.TestCase):
def setUp(self):
for var in ('x', 'y'):
if var in robjects.globalenv.keys():
#del(ro.globalenv[var]) #segfault
pass
def tearDown(self):
for var in ('x', 'y'):
if var in robjects.globalenv.keys():
#del(ro.globalenv[var]) #segfault
pass
def testEval(self):
code = """
x <- 1+2
y <- (x+1) / 2
"""
res = lg.eval(code)
self.assertTrue('x' in robjects.globalenv.keys())
self.assertEqual(3, robjects.globalenv['x'][0])
self.assertTrue('y' in robjects.globalenv.keys())
self.assertEqual(2, robjects.globalenv['y'][0])
def testEvalInEnvironment(self):
code = """
x <- 1+2
y <- (x+1) / 2
"""
env = robjects.Environment()
res = lg.eval(code, envir=env)
self.assertTrue('x' in env.keys())
self.assertEqual(3, env['x'][0])
self.assertTrue('y' in env.keys())
self.assertEqual(2, env['y'][0])
def suite():
suite = unittest.TestLoader().loadTestsFromTestCase(LanguageTestCase)
return suite
if __name__ == '__main__':
unittest.main()
|