Mark-Eis / BitsnBobs

For General Bits and Bobs of Code
https://mark-eis.github.io/BitsnBobs/
Other
1 stars 0 forks source link

Revise `decdeg_to_dms.decdeg()` to use `new_degminsec()` #40

Closed Mark-Eis closed 6 months ago

Mark-Eis commented 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()
}
Mark-Eis commented 6 months ago

955950d