R/bridge_ado.R

In resplab/dosePrism: What the Package Does (One Line, Title Case)

#' Title
#'
#' @param model_input
#'
#' @return
#' @export
#'
#' @examples
model_run <- function(model_input = NULL)
{
  input <- unflatten_list(model_input)
  
  results <- dose            (
    mmrc               = model_input$mmrc,
    fev              = model_input$fev,
    smoking_status               = model_input$smoking_status,
    exacerbation              = model_input$exacerbation
  )
  
  return(as.list(results))
}


prism_get_default_input <- function() {
  model_input <- list(
    mmrc                       = 0,
    fev                      = 55,
    smoking_status                       = 1,
    exacerbation                = 2
  )
  return((flatten_list(model_input)))
}


#Gets a hierarchical named list and flattens it; updating names accordingly
flatten_list <- function(lst, prefix = "")
{
  if (is.null(lst))
    return(lst)
  out <- list()
  if (length(lst) == 0)
  {
    out[prefix] <- NULL
    return(out)
  }
  
  for (i in 1:length(lst))
  {
    nm <- names(lst[i])
    
    message(nm)
    
    if (prefix != "")
      nm <- paste(prefix, nm, sep = ".")
    
    if (is.list(lst[[i]]))
      out <- c(out, flatten_list(lst[[i]], nm))
    else
    {
      out[nm] <- lst[i]
    }
  }
  return(out)
}



#Gets a hierarchical named list and flattens it; updating names accordingly
unflatten_list <- function(lst)
{
  if (is.null(lst))
    return(lst)
  out <- list()
  
  nms <- names(lst)
  
  for (nm in nms)
  {
    path <- paste(strsplit(nm, '.', fixed = T)[[1]], sep = "$")
    eval(parse(text = paste(
      "out$", paste(path, collapse = "$"), "<-lst[[nm]]", sep = ""
    )))
  }
  
  return(out)
}