Miguel,
Quizás es demasiado tarde, o quizás el link que acompaño no pueda resolver
lo que buscas, pero espero te pueda interesar.
https://github.com/greentheo/OpenStreetMapR/
Suerte,
Daniel Merino
El 16 de octubre de 2014, 4:44, Miguel Fiandor Gutiérrez <
miguel.fiandor.gutier...@gmail.com> escribió:
> Daniel, muchas gracias por contestar y tan rápido.
>
> Pues puede ser la solución, he hecho el cambio y sigue sin pintarme los
> puntos ->
>
> data_ <- toJSONArray(data_, json = F)
> map$geoJson(
> # leafletR::toGeoJSON(data_,
> # # lat.lon = c('Lat', 'Long'),
> # dest=output_geofile),
> data_,
> onEachFeature = '#! function(feature, layer){
> layer.bindPopup(feature.properties.popup)
> } !#',
> pointToLayer = "#! function(feature, latlng){
> return L.circleMarker(latlng, {
> radius: 6,
> fillColor: feature.properties.fillColor ||
> 'blue',
> color: '#333',
> weight: 1,
> fillOpacity: 0.8
> })
> } !#")
>
>
> Un head(data_) ahora muestra esto ->
>
> > head(data_)[[1]]
> [[1]]$latitude
> [1] 40.386
>
> [[1]]$longitude
> [1] -3.725
>
> [[1]]$fillColor
> [1] "#D251F3"
>
>
>
> Seguiré investigando pero parece un buen camino! ;-)
>
>
> El 15 de octubre de 2014, 22:00, daniel escribió:
>
> Miguel,
>>
>> Alguna experiencia con rCharts tengo pero no tengo experiencia con el
>> ejemplo que estás haciendo. Creo el problema es que tienes que convertir
>> data_ en un JSON array. Mira la siguiente respuesta de Ramnathv:
>>
>> https://github.com/ramnathv/rCharts/issues/114
>>
>> donde usa
>>
>> toJSONArray(data_, json = F)
>>
>> Suerte,
>>
>> Daniel Merino
>>
>> El 15 de octubre de 2014, 16:18, Miguel Fiandor Gutiérrez <
>> miguel.fiandor.gutier...@gmail.com> escribió:
>>
>>> Hola,
>>>
>>> Ando un poco desesperado con los mapas interactivos de Rcharts
>>> +Leaflet.
>>>
>>>
>>> Estoy intentando pintar en un mapa las cámaras de tráfico de madrid, y
>>> las
>>> estaciones de calidad del aire, simplemente donde están, es decir, aun no
>>> estoy recogiendo los datos de medida.
>>> Proyecto -> https://github.com/ADIRSE/maddata
>>>
>>> He conseguido pintar ambos, con markers, la gota invertida típica de
>>> google
>>> maps. Pero esta solo viene en un color, así que le quiero meter 'circles'
>>> en vez de 'markers', y pintarlos después de colores en funcion del
>>> tráfico
>>> y calidad de aire que estén midiendo.
>>>
>>> Los círculos es lo que me trae de cabeza. Os dejo enlaces donde hay
>>> código
>>> y ejemplos del autor de la librería, y el código de mi proyecto en
>>> github,
>>> por si hay algún experto en el tema.
>>>
>>> Pero aún así, adelanto que la chicha ocurre en esta función =>
>>>
>>> map$geoJson(
>>> leafletR::toGeoJSON(data_,
>>> dest=output_geofile),
>>> onEachFeature = '#! function(feature, layer){
>>> layer.bindPopup(feature.properties.popup)
>>> } !#',
>>> pointToLayer = "#! function(feature, latlng){
>>> return L.circleMarker(latlng, {
>>> radius: 6,
>>> fillColor: feature.properties.fillColor ||
>>> 'blue',
>>> color: '#333',
>>> weight: 1,
>>> fillOpacity: 0.8
>>> })
>>> } !#")
>>>
>>>
>>> donde mi variable data_, es la que contiene las coordenadas y una columna
>>> con el supuesto color para el círculo:
>>>
>>> > head(data_) latitude longitude fillColor
>>> 1 40.386-3.725 #BF
>>> 2 40.393-3.715 #BF
>>> 3 40.408-3.730 #BF
>>> 4 40.471-3.711 #BF
>>> 5 40.471-3.712 #BF
>>> 6 40.439-3.673 #BF
>>>
>>>
>>>
>>> He intentado comparar mi variable data_ con el del proyecto de bicis
>>> (muy bueno), pero el autor para
>>> generar su data_ hace unas cuantas operaciones en las que me pierdo. Así
>>> que yo le paso un mero data.frame, como en teoría dice la documentación
>>> que
>>> haga.
>>>
>>>
>>> En fin, toda ayuda es muy bien recibida :-)
>>>
>>> Aquí una muestra en shinyapps
>>>
>>> [[alternative HTML version deleted]]
>>>
>>> ___
>>> R-help-es mailing list
>>> R-help-es@r-project.org
>>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>>
>>
>>
>>
>> --
>> Daniel
>>
>
>
--
Daniel
[[alternative HTML version deleted]]
___
