wices and leaflet

Needed packages

# devtools::install_github("einarhjorleifsson/wices", dependencies = FALSE)
library(wices)
library(dplyr)
library(reshape2)
library(leaflet)
library(sp)

Get the data from ICES webservices

x <- get_surveys() %>%
  filter(year == 2014)

for (i in 1:nrow(x)) {
  if(i == 1) {
    datras_hauls <- wices:::get_hh_data(survey = x$survey[i],
                                        year = x$year[i], 
                                        quarter = x$quarter[i])
  } else {
    datras_hauls <- rbind(datras_hauls,
                          wices:::get_hh_data(survey = x$survey[i],
                                              year = x$year[i],
                                              quarter = x$quarter[i]))
  }
}
save(datras_hauls, file="datras_hauls.rda")

Create an ESRI Spatial object

d <- datras_hauls %>%
  filter(haullat > 0) %>%
  select(shootlong, haullong, shootlat, haullat) %>%
  rename(lon1 = shootlong, lon2 = haullong,
         lat1 = shootlat, lat2 = haullat)
d$id <- 1:nrow(d)
x1 <- melt(d[,c("id", "lon1", "lon2")], "id", value.name = "lon")
x2 <- melt(d[,c("id", "lat1", "lat2")], "id", value.name = "lat")
x <- data.frame(id = x1$id, lon = x1$lon, lat = x2$lat)
lines_list <- list()
for (i in 1:max(d$id)) {
  x2 <- Line(x[x$id == i,c("lon","lat")])
  lines_list[[i]] <- Lines(list(x2),ID=as.character(d$id[i]))
}

datras <- SpatialLines(lines_list,proj4string = gisland::PRO)
datras <- SpatialLinesDataFrame(datras, data.frame(id = as.character(d$id)))

Plot the stuff in leaflet

leaflet() %>%
  addTiles(urlTemplate = "http://server.arcgisonline.com/ArcGIS/rest/services/World_Imagery/MapServer/tile/{z}/{y}/{x}",
           attribution = 'Data source: <a href="http://www.ices.dk">ICES  </a>') %>%
  addPolylines(data = datras, weight = 2, col = "white", group = "Hauls")

For the record

options(width = 80)
devtools::session_info()

Session info -------------------------------------------------------------------

 setting  value                       
 version  R version 3.1.2 (2014-10-31)
 system   x86_64, linux-gnu           
 ui       X11                         
 language (EN)                        
 collate  en_US.UTF-8                 
 tz       Atlantic/Reykjavik          

Packages -----------------------------------------------------------------------

 package     * version    date       source                                    
 assertthat    0.1        2013-12-06 CRAN (R 3.0.1)                            
 bitops        1.0-6      2013-08-17 CRAN (R 3.0.2)                            
 DBI           0.3.1      2014-09-24 CRAN (R 3.1.1)                            
 devtools      1.8.0      2015-05-09 CRAN (R 3.1.2)                            
 digest        0.6.8      2014-12-31 CRAN (R 3.1.2)                            
 dplyr       * 0.4.2.9000 2015-06-22 Github (hadley/dplyr@7763150)             
 evaluate      0.7        2015-04-21 CRAN (R 3.1.2)                            
 formatR       1.2        2015-04-21 CRAN (R 3.1.2)                            
 gisland       0.0.01     2015-06-30 Github (einarhjorleifsson/gisland@e7ffcb1)
 git2r         0.10.1     2015-05-07 CRAN (R 3.1.2)                            
 htmltools     0.2.6      2014-09-08 CRAN (R 3.1.1)                            
 htmlwidgets   0.4        2015-05-18 CRAN (R 3.1.2)                            
 jsonlite      0.9.16     2015-04-11 CRAN (R 3.1.2)                            
 knitr         1.10.12    2015-06-22 Github (yihui/knitr@1df6eee)              
 lattice       0.20-29    2014-04-04 CRAN (R 3.1.1)                            
 lazyeval      0.1.10     2015-01-02 CRAN (R 3.1.2)                            
 leaflet     * 1.0.0      2015-06-24 CRAN (R 3.1.2)                            
 magrittr      1.5        2014-11-22 CRAN (R 3.1.2)                            
 memoise       0.1        2010-09-03 CRAN (R 3.0.0)                            
 plyr          1.8.3      2015-06-12 CRAN (R 3.1.2)                            
 R6            2.0.1      2014-10-29 CRAN (R 3.1.2)                            
 Rcpp          0.11.6     2015-05-01 CRAN (R 3.1.2)                            
 RCurl         1.95-4.6   2015-04-24 CRAN (R 3.1.2)                            
 reshape2    * 1.4.1      2014-12-06 CRAN (R 3.1.2)                            
 rmarkdown     0.7        2015-06-22 Github (rstudio/rmarkdown@82fde67)        
 rstudioapi    0.2        2014-12-31 CRAN (R 3.1.2)                            
 rversions     1.0.0      2015-04-22 CRAN (R 3.1.2)                            
 sp          * 1.1-1      2015-06-05 CRAN (R 3.1.2)                            
 stringi       0.5-5      2015-06-29 CRAN (R 3.1.2)                            
 stringr       1.0.0      2015-04-30 CRAN (R 3.1.2)                            
 wices       * 0.0.2.9001 2015-06-30 Github (einarhjorleifsson/wices@70abb0e)  
 XML           3.98-1.2   2015-05-31 CRAN (R 3.1.2)                            
 yaml          2.1.13     2014-06-12 CRAN (R 3.1.2)