Nothing
as_loon_hvjust <- function(hjust, vjust) {
if(length(hjust) != length(vjust) ) NULL
else {
len <- length(hjust)
sapply(seq(len),
function(i){
if(hjust[i] == 0.5 & vjust[i] == 0.5) "center"
else if(hjust[i] == 0.5 & vjust[i] > 0.5) "n"
else if(hjust[i] > 0.5 & vjust[i] > 0.5) "ne"
else if(hjust[i] > 0.5 & vjust[i] == 0.5) "e"
else if(hjust[i] > 0.5 & vjust[i] < 0.5) "se"
else if(hjust[i] == 0.5 & vjust[i] < 0.5) "s"
else if(hjust[i] < 0.5 & vjust[i] < 0.5) "sw"
else if(hjust[i] < 0.5 & vjust[i] == 0.5) "w"
else if(hjust[i] < 0.5 & vjust[i] > 0.5) "nw"
})
}
}
as_loon_dash <- function(linetype){
lapply(linetype,
function(l){
if(l == 1 | is.na(l) ) ""
else if(l == 2) rep(1, 4)
else if(l == 3) rep(1,2)
else rep("", length(l))
})
}
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.