Change setView dynamically according to select box in R shiny app -


i'm developing leaflet map in r shiny. in app want focus of map changed whenever lng , lat value in setview() changed. lng , lat values based on country select drop down box. use static value lng , lat in ifelse() function , app works. problem when want make things more generic: lng , lat mean of longitude , latitude subset of data chosen country, app doesn't show map anymore (from point of view calculation seems right)

below simplified , workable r script:

global.r:

library(devtools) library(leaflet) library(htmlwidgets) library(shiny) library(shinydashboard) library(sp) library(rworldmap) library(rcurl) library(ggmap)  df <- read.csv(url("https://docs.google.com/spreadsheets/d/1rrejiuxr4naftquqblppudgwvgegtbjexlpjdday2uw/pub?output=csv"),            header = t,            stringsasfactors = f) df$time <- as.date(df$time, "%d/%m/%y")

ui.r

header <- dashboardheader(   title = 'shiny memery' ) body <- dashboardbody(   fluidrow(     tabbox(       tabpanel("my map", leafletoutput("mymap",height = 550)),       width = 700     )) ) dashboardpage(   header,   dashboardsidebar(     sliderinput('timeline value','time line',min = min(df$time),                 max = max(df$time),                  value = c(min(df$time), min(df$time)+10)),     selectinput("select_country", label = "select country",                  choices = null,                  selected = null)   ),   body )

server.r

  shinyserver(function(input, output, session) {    dfs <- reactive({     tmp <- subset(df, df$time <= input$`timeline value`[2] & df$time >= input$`timeline value`[1])       tmp   })    part_choices <- reactive({     as.list(c("all",  unique(as.character(dfs()$country))))   })    observe({     updateselectinput(session, "select_country", choices=part_choices())   })    output$mymap <- renderleaflet({     lng <- ifelse(input$select_country == "all", mean(dfs()$lon),                   mean(subset(dfs(), country %in% input$select_country)$lon)                          )     lat <- ifelse(input$select_country == "all", mean(dfs()$lat),                   mean(subset(dfs(), country %in% input$select_country)$lat)                          )      m <- leaflet(dfs()) %>%       addtiles(       ) %>%         setview(lng, lat, zoom = 5) %>%       addmarkers(~lon, ~lat,                   clusteroptions = markerclusteroptions())   }) })

you see in server.r part use ifelse() change lng , lat value later can used in setview() function. after changed else argument calculation app doesn't work anymore.

really appreciate if can tell me wrong.

thanks in advance.

in ui.r, try changing country input to

selectinput("select_country", label = "select country",              choices = "all",              selected = "all")

my guess ifelses not return number, given input$select_country initialized @ null, (for reasons unclear me) causes both renderleaflet , updateselectinput not run, preventing country selector being updated.


Comments

Post a Comment

Popular posts from this blog

php - How to add and update images or image url in Volusion using Volusion API -

actually have store importing products store product data insert , update image or image url not insert , update. this xml code name datapro.txt. <products_joined> <productcode>3710_012t</productcode> <vendor_partno>eah5450silent/di/1gd3(lp)</vendor_partno> <productname>test product ta</productname> <hideproduct>n</hideproduct> <stockstatus>20</stockstatus> <lastmodified>1/5/2016 10:25:00 am</lastmodified> <lastmodby>2</lastmodby> <productweight>0.9</productweight> <productprice>100</productprice> <productmanufacturer>asus tek</productmanufacturer> <vendor_price>32.69</vendor_price> <numproductssharingstock>0</numproductssharingstock> <categoryids>107</categoryids> <producturl>http://tebkq.mvlce.servertrust.com/productdetails.asp?productcode=3710_012t</producturl...
Read more

Laravel mail error `Swift_TransportException in StreamBuffer.php line 269: Connection could not be established with host smtp.gmail.com [ #0]` -

i developing website contact-us page guest users can send me email using gmail . anytime try send mail using contact-us form, error swift_transportexception in streambuffer.php line 269: connection not established host smtp.gmail.com [ #0] this mail.php return [ 'driver' => env('mail_driver', 'smtp'), 'host' => env('mail_host', 'smtp.gmail.com'), 'port' => 587, 'from' => ['address' => '', 'name' => ''], 'encryption' => env('mail_encryption', 'tls'), 'username' => env('mail_username'), 'password' => env(mail_password), 'sendmail' => '/usr/sbin/sendmail -bs', 'pretend' => env('mail_pretend', false), ]; this .env mail_driver=smtp mail_host=smtp.gmail.com mail_port=587 mail_username=afecjaped@gmail.com mail_password=********...
Read more

c# SetCompatibleTextRenderingDefault must be called before the first -

i tried search exception couldn't find solution on case i'am using code below invoke .net application : assembly assem = assembly.load(data); methodinfo method = assem.entrypoint; var o = activator.createinstance(method.declaringtype); method.invoke(o, null); the application invoked has form , in entrypoint of application : [stathread] static void main() { application.enablevisualstyles(); application.setcompatibletextrenderingdefault(false); //exception application.run(new form1()); } setcompatibletextrenderingdefault must called before first iwin32window object created in application. edit : assembly = assembly.load(data); methodinfo method = a.gettype().getmethod("start"); var o = activator.createinstance(method.declaringtype); method.invoke(o, null); you should create new method skips initialization...
Read more