R Notebook

wiki <- readr::read_csv(here::here("data-raw/result.csv"))

New names:
* `` -> ...1

Rows: 500 Columns: 13
── Column specification ──────────────────────────────────────────────────────────────
Delimiter: ","
chr (13): ...1, Category, Geolocation, City, Managed by, Used by, Software Deploye...

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

geo <- wiki |>
  janitor::clean_names() |>
  select(geolocation) |>
  filter(!is.na(geolocation))

Prepare

dms_to_decimal <- function(input) {
  sp::char2dms(input, chd="d", chm="m", chs="s") |> as.numeric()
}
geo <- geo |>
  head(10) |>
  mutate(geolocation = toupper(geolocation),
         geolocation = str_replace_all(geolocation, '°', "d"),
         geolocation = str_replace_all(geolocation, "'", "m"),
         geolocation = str_replace_all(geolocation, '"', "s")) |>
  mutate(geo_split = stringr::str_split(geolocation, ",")) |>
  rowwise() |>
  mutate(lat = dms_to_decimal(geo_split[1]),
         long = dms_to_decimal(geo_split[2]))