convert_dd_dms <- function(dd){ deg <- trunc(dd) min <- (dd - trunc(dd)) * 60 sec <- (dd - trunc(dd) - trunc(min) / 60) *3600 result <- c("deg" = deg, "min" = trunc(min), "sec" = sec) }