Closed Mark-Eis closed 6 months ago
https://github.com/Mark-Eis/BitsnBobs/blob/1def3c5aa9afeb382c346b62bc50a48555000346/R/degreeconvert.R#L449
decdeg_to_dms.decdeg <- function(object, ...) { check_dots_empty() negative <- object < 0 object <- abs(object) sum( as.integer(object %/% 1), as.integer(((object %% 1) * 60) %/% 1) / 100, as.numeric((((object %% 1) * 60) %% 1) * 3) / 500 ) |> new_degminsec(negative, object %@% ".latorlon") |> validate_degminsec() }
955950d
https://github.com/Mark-Eis/BitsnBobs/blob/1def3c5aa9afeb382c346b62bc50a48555000346/R/degreeconvert.R#L449