Nothing
split_multiadm = function(x){
#'
#' @export
#'
#' @title split multiadm objects into adm
#'
#' @param x a multiadm object
#'
#' @returns list with objects of class adm
#'
adm_list = list()
for (i in seq_len(x$no_of_entries)){
adm_list[[i]] = tp_to_adm(t = x[["t"]][[i]],
h = x[["h"]][[i]],
T_unit = x[["T_unit"]],
L_unit = x[["L_unit"]])
}
return(adm_list)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.