Functions to convert DD to DMS for ggmap axis plotting in R using ggmaps

Question

I have been using the following code to convert DD to DMS on my maps.

scale_x_longitude <- function(xmin=-180, xmax=180, step=1, ...) {
  xbreaks <- seq