R/Oyster_phase_export.R

In shelltrace: Bivalve Growth and Trace Element Accumulation Model

#' @export
Oyster_phase_export <-
function(phase_stat, el_time, M_el_mat, M_el_mat_c, name_shell){
    xlsx::write.xlsx(phase_stat,paste(format(Sys.time(),format="%Y%m%d"),name_shell, " phase_stat.xlsx"))
    xlsx::write.xlsx(el_time,paste(format(Sys.time(),format="%Y%m%d"),name_shell, " el_time.xlsx"))
    xlsx::write.xlsx(M_el_mat,paste(format(Sys.time(),format="%Y%m%d"),name_shell, " M_el_mat.xlsx"))
    xlsx::write.xlsx(M_el_mat_c,paste(format(Sys.time(),format="%Y%m%d"),name_shell, " M_el_mat_c.xlsx"))
}