R/Registry.R

In laminr: Client for 'LaminDB'

#' @export
py_to_r.lamindb.models.record.Registry <- function(x) {
  wrap_python_callable(
    x,
    public = list(
      from_df = if ("from_df" %in% names(x)) {
        wrap_with_py_arguments(registry_from_df, x$from_df)
      }
    ) |>
      purrr::compact()
  )
}

registry_from_df <- function(self, ...) {
  args <- list(...)

  if (!is.data.frame(args$df)) {
    df_class <- class(args$df)[1] # nolint object_usage_linter
    cli::cli_abort(
      "{.arg df} must be a {.cls data.frame} but is a {.cls {df_class}}"
    )
  }

  if (
    !is.null(args$revises) &&
      !inherits(args$revises, "laminr.lamindb.models.artifact.Artifact")
  ) {
    revises_class <- class(args$revises)[1] # nolint object_usage_linter
    cli::cli_abort(
      "{.arg revises} must be an {.cls Artifact} but is a {.cls {revises_class}}"
    )
  }

  py_object <- unwrap_python(self)
  unwrap_args_and_call(py_object$from_df, args)
}