Fix bug with new surface lists

R/otp-surface.R

@@ -80,7 +80,7 @@ parse_surface <- function(x, get_data){
 #' OTP 1.x
 #'
 #' @param otpcon OTP connection object produced by otp_connect()
-#' @param surface A suface list from otp_make_surface()
+#' @param surface A surface list from otp_make_surface()
 #' @return Returns a data.frame of travel times
 #' @examples
 #' \dontrun{
@@ -106,14 +106,14 @@ otp_surface_isochrone <- function(otpcon = NULL,
   }
 
   # Check for list
-  if(is.null(surface$id)){
-    stop("Can't find surface ID, have you provided a list of surface IDs?")
+  if(is.null(surface[[1]]$id)){
+    stop("Can't find surface ID")
   }
 
   surfaceUrl <- make_url(otpcon, type = "surfaces")
   surfaceUrl <- paste0(surfaceUrl,
                        "/",
-                       surface$id,
+                       surface[[1]]$id,
                        "/raster")
 
   # convert response content into text

vignettes/Analyst.Rmd

@@ -120,7 +120,7 @@ The function will return the travel times in seconds between the fromPlaces and
 
 ## Producing an isochrone from a surface
 
-The surfaces can also be used to produce isochrones from a surface.
+The surfaces can also be used to produce isochrones from a surface. Only one raster can be produced at a time. If you provide a list of surfaces only the first will be used.
 
 ```{r eval=FALSE}
 isochone <- otp_surface_isochrone(otpcon, surfaceid)