R/queryLGRtrapDatabase.R

Defines functions queryLGRtrapDatabase

Documented in queryLGRtrapDatabase

#' @title Access Lower Granite Dam trap database
#'
#' @description Download copy of the Lower Granite Dam trap database. ** This currently doesn't work **
#'
#' @author Kevin See
#'
#' @param username A username to access the SharePoint site where the trap database resides.
#' @param password A password to access the SharePoint site where the trap database resides.
#'
#' @import lubridate readr httr dplyr
#' @return NULL
#' @examples # Don't run; # queryLGRtrapDatabase(username = 'ksee', password = 'IDFGuser')

queryLGRtrapDatabase = function(username = NULL,
                                password = NULL) {

  url_req = 'https://collaboration.idfg.idaho.gov/qci/default.aspx'

  # assign user agent to the GitHub repo for this package
  ua = httr::user_agent('https://github.com/BiomarkABS/STADEM')

  # where zip file of trap database lives
  url_req = 'https://collaboration.idfg.idaho.gov/qci/Shared%20Documents/LGTrappingExportJodyW.zip'

  url_req = 'https://collaboration.idfg.idaho.gov/qci/Shared%20Documents'

  web_req = httr::GET(url_req, ua,
                authenticate(username, password),
                progress(),
                write_disk('data/LGTrappingExportJodyW.zip',
                           overwrite = T))

  unzip('data/LGTrappingExportJodyW.zip')

  lgr_trap_df = unz('data/LGTrappingExportJodyW.zip',
                    'data/LGTrappingExportJodyW.csv') %>%
    read.csv() %>%
    tbl_df()

  # what encoding to use?
  # stringi::stri_enc_detect(content(web_req, "raw"))

  url_req = paste0('https://', username, ':', password, 'collaboration.idfg.idaho.gov/qci/Shared%20Documents/LGTrappingExportJodyW.zip')

  temp = tempfile()
  download.file(url_req,
                temp)
  lgr_trap_df = unz(temp,
                    'data/LGTrappingExportJodyW.csv') %>%
    read.csv() %>%
    tbl_df()
  unlink(temp)

  lgr_trap_zip = content(web_req,
                         'parsed',
                         encoding = 'ISO-8859-1')

}
KevinSee/STADEM documentation built on June 20, 2021, 11:13 p.m.