search

Mark-Eis / BitsnBobs

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

Make `decdeg.default()` like `degminsec.default()` #44

Closed Mark-Eis closed 6 months ago

Mark-Eis commented 6 months ago

https://github.com/Mark-Eis/BitsnBobs/blob/6dd1d4ae01dcaa71bb456f663fe3fb9f57806ccd/R/degreeconvert.R#L55C1-L55C15

decdeg.default <- function(object, ..., .latorlon = c(NA, "lat", "lon")) {
    check_dots_empty()
    .latorlon <- match.arg(.latorlon)    

    rv <- lapply(object,  \(x) new_decdeg(x, .latorlon) |> validate_decdeg())
    if (length(object) > 1) rv else rv[[1]]
}
Mark-Eis commented 6 months ago

f8d3d66