r - Sync two leaftlet maps on different tabs in RMarkdown with Shiny -

-

running issues syncing 2 leaflet maps on different tabs.

after looking @ previous entries (synchronizing 2 leaflet maps in r / rmarkdown), solution provided @timsalabim not work because maps on different tabs.

here mwe rmarkdown example: 

--- title: "questionforstackoverflow" output:  flexdashboard::flex_dashboard: runtime: shiny ---  ```{r setup, include=false} library(flexdashboard) library(shiny) library(leaflet) ```  tab 1 ====================================================================== ```{r tab1} output$map1 <-    renderleaflet(     leaflet() %>%       addprovidertiles("cartodb.positron") %>%       setview(-93.65, 42.0285, zoom = 4)   )  leafletoutput("map1")  ``` tab 2 ====================================================================== ```{r tab2}  output$map2 <-   renderleaflet(     leaflet() %>%       addprovidertiles("cartodb.positron") %>%       setview(-93.65, 42.0285, zoom = 4)   )  leafletoutput("map2") ```

i want 2 way change. view changes map1 -- changes map2 or changes map2 change map1.

ideally: if scroll st. louis on map1, map2 have same zoom level on st. louis.

right now, there no interactivity between 2 maps. there way make them sync?

you can use leafletproxy() : see here : https://rstudio.github.io/leaflet/shiny.html

for particular problem, here's idea : 

---   title: "questionforstackoverflow"   output:      flexdashboard::flex_dashboard:   runtime: shiny ---  ```{r setup, include=false}   library(flexdashboard)   library(shiny)   library(leaflet) ```  tab 1 ======================================================================  ```{r tab1} output$map1 <-   renderleaflet(     leaflet() %>%       addprovidertiles("cartodb.positron") %>%       setview(-93.65, 42.0285, zoom = 4)   )  actionbutton("syncmap1", "fit map2 bounds") leafletoutput("map1")  observeevent(input$syncmap1,{   map2coords <- input$map2_bounds   map1proxy <- leafletproxy("map1")   map1proxy %>% fitbounds(lng1 = map2coords$east,                           lat1 = map2coords$north,                           lng2 = map2coords$west,                           lat2 = map2coords$south) }) ```  tab 2 ======================================================================  ```{r tab2}  output$map2 <-   renderleaflet(     leaflet() %>%       addprovidertiles("cartodb.positron") %>%       setview(-93.65, 42.0285, zoom = 4)   ) actionbutton("syncmap2", "fit map1 bounds") leafletoutput("map2")  observeevent(input$syncmap2,{   map1coords <- input$map1_bounds   map2proxy <- leafletproxy("map2")   map2proxy %>% fitbounds(lng1 = map1coords$east,                           lat1 = map1coords$north,                           lng2 = map1coords$west,                           lat2 = map1coords$south) }) ```

the idea retrieve coordinates of other map when clicking on buttons, , sync view then.

minor problem : view not synced : better find centroid of displayed map , use setview() using input$map1_zoom.

major problem : means using buttons, not user-friendly. theoritically, use observe() block reflect coordinates of each map other. tried , it's quite buggy, because of "infinite" loop there micro-variations in coordinates.


Comments

Post a Comment

Popular posts from this blog

javascript - Why Selenium can't find an element that is graphically visible -

-
i'm using selenium test appllication running on firefox browser, when want click on button selenium, don't find it. find strange since can see element eye. have tried multiple method worked other exemple : wait.until(expectedconditions.visibilityofelementlocated(by)) wait.until(expectedconditions.presenceofelementlocated(by)); (i use xpath in path variable, , i'm sure correct) setting implictlywait on driver putting thread.sleep(1000) then again, post here because don't understand why selenium not see element diplayed on browser. important information maybe giving me proper answer html dom dynamically generate websocket triggered javascript event. edit 1: <button type="button" class="btn btn-xs btn-block btn-stroke" id="252_button"> delete </button> the element i'm trying access. use xpath it. it's not in iframe element. to access element did method supposed find , click on giving xpath in para...
Read more

java - How to compare two classes -

-
i try create factory, here's code: public class myfactory { public static <t> mybase create(class<t> _c) { if (_c.getclass().equals(derived1.class)) // (1) return createnewderived1(); return null; } } // caller myfactory.create(derived1.class); it compiles warning @ line (1) : error 'equals()' between objects of inconvertible types 'class<derived1>' , 'class<capture of ? extends class>' <br>reports calls .equals() target , argument of incompatible types. while such call might theoretically useful, represents bug. and in runtime if statement fails reason. how can intended behaviour? public class myfactory { public static <t> mybase create(class<t> _c) { return ( _c == derived1.class ) ? createnewderived1() : null; } } // caller myfactory.create(derived1.class); see compare class objects further info. fiy, "real" class obje...
Read more

mysql - Gateway Timeout Error on Insert 70000 record using Hibernate in Java -

-
my problem is: upload 10000 record excel database. excel sheet has 10000 rows , 70 100 column . store value in 6 mapping table using hibernate cascade. call method using ajax method. due inserting large amount of data. return timeout error(502 (proxy error) or 504 (gateway error)). i using aws services. configuration mistake.. please help thanks in advance how might see 502 bad gateway error based on web server, might see different 502 error. these mean same thing, naming conventions differ. here few examples of might see: “502 bad gateway” “http error 502 – bad gateway” “502 service temporarily overloaded” “error 502” “502 proxy error” “http 502” “502 bad gateway nginx” can see in greater detail error entails going web server’s error log file. error / diagnostic information stored in file making valuable resource check when need more details particular error. can locate file in apache going /var/log/apache2/error.log , in nginx going /var/log/nginx/error.log. ...
Read more