data-raw/mthds/metamorphose.R

In ready4-dev/ready4pack: Author R Packages of Health Economic Model Modules

metamorphose.ready4pack_manifest <- function(x){
  if(identical(x$pkg_ds_ls_ls,list(NULL)))
    x$pkg_ds_ls_ls <- list()
  x$x_ready4fun_manifest$subsequent_ls$pkg_ds_ls_ls <- x$pkg_ds_ls_ls
  if(!identical(x$constructor_r3, ready4class::ready4class_constructor())){
    manifest_r3 <- ready4class::ready4class_manifest(ready4class::make_pt_ready4class_manifest(x$x_ready4fun_manifest,
                                                                                               constructor_r3 = x$constructor_r3))
  }else{
    manifest_r3 <- x$x_ready4fun_manifest
  }
  return(manifest_r3)
}