Nothing
plot_destr_parts = function(lwd_destr = 1, lty_destr = 3, col_destr = "black"){
#'
#' @keywords internal
#' @noRd
#'
#' @title draw destr. intervals
#'
#' @description
#' draws time intervals no sediment is accumulated and signals are destroyed
#'
#' @param lwd_destr line width
#' @param lty_destr line type
#' @param col_destr color
#'
#' @returns invisible NULL
list = get("adm_plot_info", envir = .adm_plot_env)
x = list$adm
for ( i in seq_along(x$destr)){
if (x$destr[i]){
graphics::lines(x = c(x$t[c(i, i+1)]),
y = c(x$h[c(i, i+1)]),
col = col_destr,
lwd = lwd_destr,
lty = lty_destr)
}
}
return(invisible())
}
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.