#' @name calDDDsAccumulation
#' @export
getDDDs <- function(atc){
ddd <- atc%>%
left_join(unique(resATC_DDD), by = c("ATC" = "ATC_CODE") )
return(ddd)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.