R/extendr-wrappers.R

Defines functions get_data_type get_shape get_name new run get_model_path get_providers get_output_info get_input_info from_path

# Generated by extendr: Do not edit by hand

# nolint start

#
# This file was created with the following call:
#   .Call("wrap__make_churon_wrappers", use_symbols = TRUE, package_name = "churon")

#' @usage NULL
#' @useDynLib churon, .registration = TRUE
NULL

RSession <- new.env(parent = emptyenv())

RSession$from_path <- function(path) .Call(wrap__RSession__from_path, path)

RSession$get_input_info <- function() .Call(wrap__RSession__get_input_info, self)

RSession$get_output_info <- function() .Call(wrap__RSession__get_output_info, self)

RSession$get_providers <- function() .Call(wrap__RSession__get_providers, self)

RSession$get_model_path <- function() .Call(wrap__RSession__get_model_path, self)

RSession$run <- function(inputs) .Call(wrap__RSession__run, self, inputs)

#' @export
`$.RSession` <- function (self, name) { func <- RSession[[name]]; environment(func) <- environment(); func }

#' @export
`[[.RSession` <- `$.RSession`

TensorInfo <- new.env(parent = emptyenv())

TensorInfo$new <- function(name, shape, data_type) .Call(wrap__TensorInfo__new, name, shape, data_type)

TensorInfo$get_name <- function() .Call(wrap__TensorInfo__get_name, self)

TensorInfo$get_shape <- function() .Call(wrap__TensorInfo__get_shape, self)

TensorInfo$get_data_type <- function() .Call(wrap__TensorInfo__get_data_type, self)

#' @export
`$.TensorInfo` <- function (self, name) { func <- TensorInfo[[name]]; environment(func) <- environment(); func }

#' @export
`[[.TensorInfo` <- `$.TensorInfo`


# nolint end

Try the churon package in your browser

Any scripts or data that you put into this service are public.

churon documentation built on Sept. 28, 2026, 5:07 p.m.