Nothing
margin_theme <- function(a,obj,obj.class,obj.names,i) {
if(grepl('\\.margin$',obj.names[i])){
b <- split(
c(
a[[obj.names[[i]]]],
attr(a[[obj.names[[i]]]], "unit")
),
c("t", "r", "b", "l", "unit")
)
b$unit <- sprintf("'%s'",b$unit)
obj$margin["value"] <- paste0(paste(names(b), b, sep = "="), collapse = ",")
}else{
midx <- grep('margin',names(obj.class))
if (!is.null(a[[obj.names[[i]]]][[midx]])) {
b <- split(
c(
a[[obj.names[[i]]]][[midx]],
attr(a[[obj.names[[i]]]][[midx]], "unit")
),
c("t", "r", "b", "l", "unit")
)
b$unit <- sprintf("'%s'",b$unit)
obj$margin["value"] <- paste0(paste(names(b), b, sep = "="), collapse = ",")
}else{
obj$margin["value"] <- 'NULL'
}
}
obj
}
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.