R/toolsMirjam.R

In dkaschek/dMod: Dynamic Modeling and Parameter Estimation in ODE Models

#' Named repititions
#' 
#' @description Wrapper on rep() to input names instead of length.
#'   
#' @param x Value to be repeated.
#' @param names List of names.
#'   
#' @export
repWithNames <- function(x, names){
  repnum <- rep(x,length(names))
  names(repnum) <- names
  return(repnum)
}



#' Save the necessary objects for dModtoShiny with the correct names
#'
#' @param x prediction funciton
#' @param parameters Parframe, result of mstrust()
#' @param fixed Character? fixed parameters? 
#' @param data datalist
#' @param reactions eqnlist-object
#' @param profiles Parframe, result of profile(). Is a proflist also possible?
#' @param pubref Link to publication
#' @param errmodel obsfn
#' 
#' @export
saveShiny <- function(reactions = myeqnlist, 
                      x, 
                      parameters, 
                      fixed = NULL, 
                      data, 
                      profiles, 
                      pubref="none", 
                      errmodel = NULL){
  save(reactions, x, fixed, data, parameters, profiles, pubref, file = "input_shiny.RData")
}