R/ddtools.R

In skranz/ddsim: Simple dynamic discrete-time simulations (for economics)

first.non.null = function(...) {
  args = list(...)
  for (val in args) {
    if (!is.null(val)) return(val)
  }
  return(NULL)

}
set_df_num_rows = function(df, num.rows) {
  if (is.null(df)) return(NULL)
  if (NROW(df)==T) return(df)
  if (NROW(df)>T) {
    return(df[1:T,])
  }
  li = lapply(as.data.frame(df), function(col) {
    rep(col, length.out=T)
  })
  do.call(data_frame(li))
}