Nothing
q("no")
R
#' # pyGet
require(testthat)
require(PythonInR)
invisible(capture.output(pyConnect()))
#' ## Logical (only NA)
as.logical(NA)
pySet("x", as.logical(NA))
pyPrint("x")
pyExecp("type(x)")
pyGet("x") # should return NULL
x <- c(TRUE, NA, FALSE)
pySet("x", x)
expect_that(pyGet("x"), equals(x))
as.integer(-2147483648)
pyExec("x = int(-2147483648)")
pyPrint("x")
pyGet("x")
#' ## Integer (only NA)
pySet("x", as.integer(NA))
pyPrint("x")
pyExecp("type(x)")
pyGet("x")
pySet("x", c(1L, NA, 3L))
pyPrint("x")
pyExecp("type(x)")
pyGet("x")
#' ## Numeric
## Is OK
pySet("x", as.numeric(NA))
pyPrint("x")
pyExecp("type(x)")
pyGet("x")
pySet("x", as.numeric(NaN))
pyPrint("x")
pyExecp("type(x)")
pyGet("x")
pySet("x", as.numeric(Inf))
pyPrint("x")
pyExecp("type(x)")
pyGet("x")
pySet("x", as.numeric(-Inf))
pyPrint("x")
pyExecp("type(x)")
pyGet("x")
nchar(as.character(NA))
#' ## Character
## Is OK
pySet("x", as.character(NA))
pyPrint("x")
pyExecp("type(x)")
pyGet("x")
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.