R/pithon.get.R

In rPithon: Use Python by Communicating Using a Pipe

# Code from rPython 0.0-5, by Carlos J. Gil Bellosta
# Small modifications by Jori Liesenborgs

pithon.get <- function(var.name, instance.name = "" ){

    ret <- .C( "py_get_var", var.name, instance.name, found = integer(1), result = character(1), PACKAGE = "rPithon" )

    if(!ret$found)
        stop(paste("Couldn't retrieve variable: ", ret$result, sep=""))
        
    ret <- fromJSON(ret$result)

    if( length( ret ) == 1 ) ret <- ret[[1]]
    ret
}