change nekton index file download stable url to github

R/fimdata.R

@@ -29,9 +29,9 @@
 #'
 #' @examples
 #' \dontrun{
-#' csv <- '~/Desktop/fimdata.csv'
+#' csv <- '~/Desktop/TampaBay_NektonIndexData.csv'
 #'
-#' fimdata <- read_importfim(csv, download_latest = FALSE)
+#' fimdata <- read_importfim(csv, download_latest = TRUE)
 #'
 #' save(fimdata, file = 'data/fimdata.RData', compress = 'xz')
 #'

R/read_formfim.R

@@ -15,13 +15,13 @@
 #' @seealso \code{\link{read_importfim}}
 #'
 #' @examples
-#' \dontrun{
 #' # file path
-#' csv <- '~/Desktop/fimraw.csv'
+#' csv <- url('https://raw.githubusercontent.com/tbep-tech/tbni-proc/master/data/TampaBay_NektonIndexData.csv')
+#'
+#' datin <- read.csv(csv)
 #'
 #' # load and assign to object
-#' fimdata <- read_importfim(csv)
-#' }
+#' fimdata <- read_formfim(datin)
 read_formfim <- function(datin, locs = FALSE){
 
   # make data sf to get bay segments

R/read_importfim.R

@@ -24,7 +24,7 @@
 read_importfim <- function(csv, download_latest = FALSE, locs = FALSE){
 
   # download latest and compare with current if exists
-  urlin <- 'ftp://ftp.floridamarine.org/users/fim/tmac/NektonIndex/TampaBay_NektonIndexData.csv'
+  urlin <- 'https://raw.githubusercontent.com/tbep-tech/tbni-proc/master/data/TampaBay_NektonIndexData.csv'
   read_dlcurrent(csv, download_latest, urlin = urlin)
 
   # sanity checks