r - Shiny: leaflet map is not working with rCharts -

-

using dat data.frame 

set.seed(123) stationid <- c(rep("station1", 3), rep("station2", 3), rep("station3", 3),rep("station4", 3)) x <-   c(rep(-77.2803, 3), rep(-79.1243, 3), rep(-93.4991, 3),rep(-117.632, 3)) y <-   c(rep(35.8827, 3), rep(42.4356, 3), rep(30.0865, 3),rep(34.0905, 3)) parameter <-  rep(c("a", "b", "c"), 4) value <- c(sample(1200:1800, 3), sample(900:1300, 3), sample(1400:2200, 3), sample(850:1400, 3)) dat <- data.frame(stationid, x, y, parameter, value) head(dat)

i created multi bar chart using rcharts below

library(rcharts) n1 <- nplot(value ~ stationid,              group = "parameter",              data = dat,              type = "multibarchart")  n1$xaxis(axislabel = 'station') n1$yaxis(axislabel = 'value') n1$chart(margin=list(left=100,bottom=100)) n1$params$width <- 1700 n1$params$height <- 700 n1

here's result

enter image description here

and created leaflet map below

library(tidyr) dat1 <- tidyr::spread(dat, parameter, value) library(leaflet) leaflet(dat1) %>%    addprovidertiles("openstreetmap", group = "openstreetmap") %>%    addcirclemarkers(~x, ~y, radius= ~a/50, color ="red",                    stroke = false,                     fillopacity = 0.4,                     group = "a", popup = ~as.character(a)) %>%   addcirclemarkers(~x, ~y, radius= ~b/100, color ="green",                    stroke = false,                     fillopacity = 0.4,                     group = "b", popup = ~as.character(b)) %>%   addcirclemarkers(~x, ~y, radius= ~c/150, color ="blue",                    stroke = false,                     fillopacity = 0.4,                     group = "c", popup = ~as.character(c)) %>%     addlayerscontrol(position = "bottomleft",                    basegroups = c("openstreetmap"),                    overlaygroups = c("a","b","c"))

here's result

enter image description here

i combined both of them in shiny app

library(shiny) library(rcharts) library(leaflet) ui <- fluidpage(sidebarlayout(   sidebarpanel(h1("shiny app"),                 tags$hr(),                h2("several options here"), width =2),   mainpanel(width = 10,             uioutput("tb"))))  server <- function(input,output){    output$chart1 <- renderchart({     n1 <- nplot(value ~ stationid,                  group = "parameter",                  data = dat,                  type = "multibarchart")      n1$xaxis(axislabel = 'station')     n1$yaxis(axislabel = 'value')     n1$chart(margin=list(left=100,bottom=100))     n1$addparams(dom="chart1")     n1$params$width <- 1700     n1$params$height <- 700     return(n1)    })    output$map1 <- renderleaflet({      leaflet(dat1) %>%        addprovidertiles("openstreetmap", group = "openstreetmap") %>%        addcirclemarkers(~x, ~y, radius= ~a/50, color ="red",                        stroke = false,                         fillopacity = 0.4,                         group = "a", popup = ~as.character(a)) %>%       addcirclemarkers(~x, ~y, radius= ~b/100, color ="green",                        stroke = false,                         fillopacity = 0.4,                         group = "b", popup = ~as.character(b)) %>%       addcirclemarkers(~x, ~y, radius= ~c/150, color ="blue",                        stroke = false,                         fillopacity = 0.4,                         group = "c", popup = ~as.character(c)) %>%       addlayerscontrol(position = "bottomleft",                        basegroups = c("openstreetmap"),                        overlaygroups = c("a","b","c"))   })     output$tb <- renderui({     tabsetpanel(tabpanel("first plot", tags$br(), tags$br(), tags$br(),                          showoutput("chart1", lib ="nvd3"),                          tags$br(), tags$br(), tags$br(),                          leafletoutput("map1", height = 750)))   }) } shinyapp(ui = ui, server = server)

rcharts plot worked fine there no data on leaflet map.

enter image description here

any suggestion appreciated?


Comments

Post a Comment

Popular posts from this blog

java - nested exception is org.hibernate.exception.SQLGrammarException: could not extract ResultSet Hibernate+SpringMVC -

-
i trying fetch records database , having above error this classs appropriate getters , setters public class user { private int id; private string username; private string password; private string email; i have create database , inserted data below configuration <bean id="datasource" class="org.apache.commons.dbcp2.basicdatasource" destroy-method="close"> <property name="driverclassname" value="com.mysql.jdbc.driver"/> <property name="url" value="jdbc:mysql://localhost:3306/usersdb"/> <property name="username" value="root"/> <property name="password" value=""/> </bean> this complete stacktrace severe: servlet.service() servlet [appservlet] in context path [/spring] threw exception [request processing failed; nested exception org.hibernate.exception.sqlgrammarexception: not ...
Read more

sql - Postgresql tables exists, but getting "relation does not exist" when querying -

-
Image
i have postgresql db number of tables. if query: select column_name information_schema.columns table_name="my_table"; i list of columns returned properly. however, when query: select * "my_table"; i error: (programmingerror) relation "my_table" not exist 'select *\n "my_table"\n' {} any thoughts on why can columns, can't query table? goal able query table. you have include schema if isnt public one select * <schema>."my_table" or can change default schema show search_path; set search_path my_schema; check table schema here select * information_schema.columns for example if table on default schema public both works ok select * parroquias_region select * public.parroquias_region but sectors need specify schema select * map_update.sectores_point
Read more

asp.net mvc - breakpoint on javascript in CSHTML? -

-
i have .cshtml file has javascript tag. within script tag have few lines of javascript. first line of javascript refers property in @viewbag. other javascript lines plain script without mvc related references. observation: can place breakpoints (visual studio 2015) on each of these javascript lines. however, breakpoints has white dot in center of breakpoint symbol (red circle) except line @viewbag reference (this particular line not have white dot in center). it seems breakpoint without white dot hit during run-time. question: can explain going on here? white dot mean? why plain red breakpoint line line hitting breakpoint? the visual studio debugger expecting debug actual server-side code within .cshtml file opposed client-side javascript within it. iirc, visual studio allow debug javascript code expected in internet explorer (and possibly edge), other browsers want use either third-party tool or developer tools (f12) within browser. an easy approach take advant...
Read more