data-raw/s4_fns/enhance.R

In ready4-dev/specific: Specify Models to Solve Inverse Problems

enhance_SpecificSynopsis <- function(x,
                                     depnt_var_nms_chr = NA_character_,
                                     depnt_var_min_val_1L_dbl = numeric(0),
                                     what_1L_chr = "shareable_outp_ls",
                                     with_1L_chr = "results_ls",
                                     ...){
  if(what_1L_chr == "shareable_outp_ls"){
    outp_smry_ls <- x@b_SpecificResults@a_SpecificShareable@shareable_outp_ls
    if(with_1L_chr == "results_ls"){
      outp_smry_ls$results_ls <- manufacture(x,
                                             depnt_var_min_val_1L_dbl = depnt_var_min_val_1L_dbl,
                                             depnt_var_nms_chr = depnt_var_nms_chr,
                                             what_1L_chr = "results_ls")
    }
    x <- renewSlot(x,"b_SpecificResults@a_SpecificShareable@shareable_outp_ls", outp_smry_ls)
  }
  return(x)
}