R/maps_start.R

In Tomas19840823/transportas_v2: Transport Optimisation Problem

#'
#'
#' This function
#' @param p A number
#' @param n A number
#' @param mydata1 A list
#' @param mydata2 A list
#' @param veid A matrix
#' @keywords maps_start
#' @export 1
#' @examples 1
#' @export


maps_start <- function(p,n,mydata1,mydata2,veid){
  (m <- leaflet()  %>% addTiles(group = "OpenStreetMap") %>% addProviderTiles("Stamen.Toner", group = "Balta / Juoda") )
  (z <- m %>% setView(lng = "25.25562", lat = "54.70204", zoom = 10) )
  addLayersControl(m, baseGroups = c("Balta / Juoda","Gatvi\u0173 \u017Eem\u0117lapis"),
                  options = layersControlOptions(collapsed = FALSE))
  return(z)
}