Nothing
#
#
pyImportPythonInR <- function(){
cmd <-
'
class PythonInR(object):
def __init__(self):
self.namespace = dict()
def addToNamespace(self, key, value):
self.namespace[key] = value
def removeFromNamespace(self, key):
try:
del self.namespace[key]
return 0
except:
return -1
class PrVector(object):
"""A pretty rudimentary Vector class!"""
def __init__(self, vector, names, rClass):
if (not (rClass in ("logical", "integer", "numeric", "character"))):
raise ValueError("rclass is no valid class name in R")
self.x = vector
self.names = names
self.rClass = rClass
def __repr__(self):
s = "prVector"
s += "\\nnames: " + str(self.names)
s += "\\nvalues: " + str(self.x)
return s
__str__ = __repr__
def toDict(self):
return {"vector": self.x, "names": self.names, "rClass": self.rClass}
class PrMatrix(object):
"""A pretty rudimentary Matrix class!"""
def __init__(self, matrix, rownames, colnames, dim):
self.x = matrix
self.rownames = rownames
self.colnames = colnames
self.dim = (0,0) if (dim is None) else tuple(dim)
def __repr__(self):
s = "prMatrix:" + "\\n\\t%i columns\\n\\t%i rows\\n" % self.dim
return s + str(self.x)
def toDict(self):
return {"matrix": self.x, "rownames": self.rownames, "colnames": self.colnames, "dim": self.dim}
class PrDataFrame(object):
"""A pretty rudimentary DataFrame class!"""
def __init__(self, dataFrame, rownames, colnames, dim):
self.x = dataFrame
self.rownames = rownames
self.colnames = colnames
self.dim = tuple(dim)
def __repr__(self):
s = "prDataFrame:" + "\\n\\t%i columns\\n\\t%i rows\\n" % self.dim
return s + str(self.x)
__str__ = __repr__
def toDict(self):
return {"data.frame": self.x, "rownames": self.rownames, "colnames": self.colnames, "dim": self.dim}
'
pyExec(cmd)
# Define a R object
pyExec("__R__ = PythonInR()")
pyExec("del(PythonInR)")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.