R/pithon.assign.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.assign <- function(var.name, value, ..., instance.name = ""){

    #value <- toJSON( value )
    value <- toJSON( value, collapse = "", digits = 32, ...)

    # Creating the call

    python.command <- c( 
        paste( var.name , "='", value, "'",  sep = " " ),
        paste( var.name , "= json.loads(", var.name, ")", sep = "" ),
        paste( "if len(",  var.name , ") == 1:", sep = "" ),
        paste( "    ", var.name, "=", var.name, "[0]" ) 
    )

    python.command <- paste( python.command, collapse = "\n" )

    pithon.exec( python.command, TRUE, instance.name)
    invisible( NULL )
}