orientate <- function(bx, by) {
tmp <- (bx < 0 & by < 0) | (bx < 0 & by > 0)
bx <- abs(bx)
by[tmp] <- -by[tmp]
return(list(bx = bx, by = by))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.