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) {
})
## OBSERVE
observe({
r$landscapeSOURCE <- sf::st_read(req(input$landscapeSOURCE)$datapath)
r$landscapeSOURCE <- sf::st_zm(sf::st_read(req(input$landscapeSOURCE)$datapath))
})
observe({
r$landscapeHOST <- sf::st_read(req(input$landscapeHOST)$datapath)
r$landscapeHOST <- sf::st_zm(sf::st_read(req(input$landscapeHOST)$datapath))
})
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)
##################
......
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