Update datUtils.R

kislerdm · Jun 10, 2018 · ace7db1 · ace7db1
1 parent 3273c7e
commit ace7db1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/functions/datUtils.R b/functions/datUtils.R
@@ -7,7 +7,7 @@
 datFetcher <- function() {
   library(jsonlite, verbose = F, quietly = T)
 
-  dat <- tryCatch(fromJSON( gsub("\\@ts\\@", paste0(as.integer(Sys.time()), '000'), "https://shipahoy.io/api/v1/live?start_ts=@ts@&port_id=2&end_ts=@ts@") )$vessels ,
+  dat <- tryCatch(fromJSON( gsub("\\@ts\\@", paste0(as.integer(Sys.time()), '000'), "https://shipahoy.io/#####") )$vessels ,
                   error = function(c) return(data.frame())
   ) %>% data.frame()
   return(dat)