#' @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"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.