R/create.R

In jamovi/jmvcore: Dependencies for the 'jamovi' Framework

#' Create an analysis
#'
#' Used internally by jamovi
#'
#' @param ns package name
#' @param name analysis name
#' @param optionsPB options protobuf object
#' @param datasetId dataset id
#' @param analysisId analysis id
#' @param revision revision
#' @export
create <- function(ns, name, optionsPB, datasetId, analysisId, revision) {

    analysis <- tryStack({

        namespace <- base::getNamespace(ns)
        optionsClass <- namespace[[paste0(name, 'Options')]]
        analysisClass <- namespace[[paste0(name, 'Class')]]

        options <- optionsClass$new()
        options$read(optionsPB)

        analysis <- analysisClass$new(
            options=options,
            datasetId=datasetId,
            analysisId=analysisId,
            revision=revision)
    })

    if (isError(analysis))
        analysis <- createErrorAnalysis(
            format("Could not create analysis: {}::{}", ns, name),
            attr(analysis, 'stack'),
            ns,
            name,
            datasetId,
            analysisId,
            revision)

    analysis
}

createErrorAnalysis <- function(error, stack, ns, name, datasetId, analysisId, revision) {
    options <- Options$new()
    analysis <- Analysis$new(
        package=ns,
        name=name,
        version=c(0,0,0),
        options=options,
        results=Group$new(
            options=options,
            name=name,
            title=name),
        datasetId=datasetId,
        analysisId=analysisId,
        revision=revision)
    analysis$setError(error, stack)
    analysis
}