#'@export
pydict <- function(src, is_python_list = FALSE) {
stopifnot(class(src) == "list")
.Call("Rython__pydict", src, is_python_list)
}
#'@export
pylong <- function(src) {
.Call("Rython__pylong", src)
}
#'@export
pyfloat <- function(src) {
.Call("Rython__pyfloat", src)
}
#'@export
pybool <- function(src) {
.Call("Rython__pybool", src)
}
#'@export
pystr <- function(src) {
.Call("Rython__pystr", src)
}
#'@export
pyobj <- function(obj_name, module_name = "__main__") {
.Call("Rython__retrieve_pyobj", module_name, obj_name)
}
#'@export
pycall <- function(py_callable, ...) {
argv <- list(...)
.Call("Rython__call", py_callable, argv);
}
#'@export
pywrap <- function(src, is_list = TRUE) {
.Call("Rython__wrap", src, is_list);
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.