Commit 87ee498a authored by Virgile Baudrot's avatar Virgile Baudrot
Browse files

add constraint st_zm from sf

parent cc95a648
...@@ -33,13 +33,13 @@ app_server <- function(input, output,session) { ...@@ -33,13 +33,13 @@ app_server <- function(input, output,session) {
}) })
## OBSERVE ## OBSERVE
observe({ observe({
r$landscapeSOURCE <- sf::st_read(req(input$landscapeSOURCE)$datapath) r$landscapeSOURCE <- sf::st_zm(sf::st_read(req(input$landscapeSOURCE)$datapath))
}) })
observe({ observe({
r$landscapeHOST <- sf::st_read(req(input$landscapeHOST)$datapath) r$landscapeHOST <- sf::st_zm(sf::st_read(req(input$landscapeHOST)$datapath))
}) })
observe({ observe({
r$landscapeSQUAREFRAME <- sf::st_read(req(input$landscapeSQUAREFRAME)$datapath) r$landscapeSQUAREFRAME <- sf::st_zm(sf::st_read(req(input$landscapeSQUAREFRAME)$datapath))
}) })
callModule(mod_tabItemLandscape_server, id="tabItemLandscape_ui_1", session = session, r=r) callModule(mod_tabItemLandscape_server, id="tabItemLandscape_ui_1", session = session, r=r)
################## ##################
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment