title: Is it possible to create Isolines using public transport or cycling using the Here API?
body: <p>I am trying to create something based on <a href="https://community.rstudio.com/t/shiny-contest-submission-interactive-isochrone-mapper-for-anywhere-in-the-world/25738" rel="nofollow noreferrer">this Isolines Shiny app</a>.</p>
  
  <p>This uses <a href="https://developer.here.com/documentation/routing/topics/resource-calculate-isoline.html" rel="nofollow noreferrer">the Here API</a>. Supposedly it is possible to use public transport and cycling in the <code>Mode</code>, but when I do this, I get an error:</p>
  
  <blockquote>
    <p>Isoline API failed with the following error: InvalidInputData</p>
  </blockquote>
  
  <p>From looking at <a href="https://developer.here.com/documentation/routing/topics/resource-types-error.html" rel="nofollow noreferrer">the documentation</a> public transport and cycling works with routing, but possibly not with isolines. </p>
  
  <p>This is the relevant Shiny code (heavily influenced by the app mentioned above):</p>
  
  <pre><code>    is_valid = validate_inputs(session, input$origin, input$departure, input$min, input$max, input$step)
  
      if(is_valid) {
  
          progress$status$set(message = 'Requesting...')
  
          departure = paste0(input$departure, ' ',input$time, ':00:00')
          range_type = switch(input$range_type, 'Time (minutes)' = 'time', 'Distance (metres)' = 'distance')
          unit = switch(input$range_type, 'Time (minutes)' = ' minutes', 'Distance (metres)' = ' metres')
          mode = switch(input$mode, 'Pedestrian' = 'pedestrian', 'Public Transport' = 'publicTransport', 'Bike' = 'bicycle', 'Car' = 'car')
          isoline_sequence = if(input$range_type == 'Time (minutes)') {
              seq(input$min, input$max, input$step) * 60 %&gt;% sort()
          } else {
              round(seq(input$min, input$max, input$step), digits = 0) %&gt;% sort()
          }
  
          layers = sapply(1:length(isoline_sequence), function(x) {
              progress$status$inc(amount = 1/length(isoline_sequence),
                                  message = paste0('Processing request ', x, ' of ', length(isoline_sequence)))
              isoline(str_remove(input$origin, ' '), departure = departure, range_type = range_type,
                      range = isoline_sequence[x], mode = mode, app_id = keys$app_id, app_code = keys$app_code)
          })
  </code></pre>
  
  <p>Any help would be great!</p>