download the VCGLR data

library(tidyverse)
library(httr)

# retrieve the data from the web

url <- "https://www.vcglr.vic.gov.au/sites/default/files/current_victorian_licences_by_location_august_2019.xlsx"
GET(url, write_disk(tf <- tempfile(fileext = ".xlsx")))
downloaded_data <- readxl::read_excel(tf, col_names = F, col_types = "text") 


# process the download

vcglr_data <- downloaded_data %>%
  slice(-c(1:2)) %>%
  select(-`...7`, -`...13`, -`...14`) %>%
  set_names(as.character(unlist(.[1,]))) %>%
  slice(-1) %>%
  filter(
    !(
        is.na(Latitude) |
        is.na(Longitude) |
        Latitude == "0.00000000" |
        Longitude == "0.00000000" |
        is.na(`Trading As`) |
        `Trading As` == "." |
        `Licence Num` %in% c("32350621", "32339162"))
  ) %>%
  distinct(Latitude, Longitude, .keep_all = T) %>%
  mutate(`Licence Num` = as.integer(`Licence Num`),
         Latitude = as.numeric(Latitude),
         Longitude = as.numeric(Longitude))

saveRDS(vcglr_data, "rds files/vcglr_data.rds")