add constraint st_zm from sf

R/app_server.R

@@ -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)
   ##################