Northest, Southest baltimore cameras

baltimore_cams.R

install.packages("openxlsx")
library(openxlsx)
fileX = "https://github.com/elthonf/fiap-mba-r/raw/master/data/cameras.baltimore.xlsx"

directory = 'data'
file.name = basename(fileX)
download = function(f, d){
  if(!file.exists(d)){
    dir.create(d)
  }
  
  file.local = file.path(d, basename(f))
  if(!file.exists(file.local)){
    download.file(url = f, destfile = file.local , mode='wb')
  }
}

download(fileX, directory)
sheet = read.xlsx(file.path(directory, file.name))

northCam = which.max(sheet$Lat)
sotuhCam = which.min(sheet$Lat)
eastCam = which.max(sheet$Long)
oestCam = which.min(sheet$Long)

sheet[northCam,]
sheet[sotuhCam,]
sheet[eastCam,]
sheet[oestCam,]