Nothing
get_hiat_list.adm = function(x){
#'
#' @export
#'
hiat_pos = get_hiat_pos(x)
no_of_hiat = get_hiat_no(x)
hiat_list = list()
adm = x
for (i in seq_len(no_of_hiat)){
li = c(
"height" = hiat_pos[i],
"start" = min(adm$t[adm$h == hiat_pos[i]]),
"end" = max(adm$t[adm$h == hiat_pos[i]])
)
hiat_list[[i]] = li
}
return(hiat_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.