Half correlation scatterplot matrix in R

I am posting a link to a question I put on StackOverflow, but maybe I should have started here because I have not had any responses yet.

SO-question

Basically, I’d like only the upper triangle section of a matrix scatter plot as this image…

. But when I wrap ggplotly arround the ggpairs(extension of ggplot) the plots don’t turn out quite right, as this image…

If anyone could help me figure a different way to make this plot, or if I have an error in my code linked in the SO-question would be great.