From 4bf0bbf5034137a91a3088b53c6d62e991362d37 Mon Sep 17 00:00:00 2001
From: fdetsch <florian.detsch@staff.uni-marburg.de>
Date: Tue, 6 Jun 2017 10:11:34 +0200
Subject: [PATCH] Added missing links to 'leaflet'.

---
 R/modules.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/modules.R b/R/modules.R
index 6974815..25ffd21 100644
--- a/R/modules.R
+++ b/R/modules.R
@@ -7,7 +7,7 @@
 #' @export
 selectModUI <- function(id, ...) {
   ns <- shiny::NS(id)
-  leafletOutput(ns("map"), ...)
+  leaflet::leafletOutput(ns("map"), ...)
 }
 
 
@@ -29,7 +29,7 @@ selectMod <- function(
   styleTrue = list(fillOpacity = 0.7, weight = 3, opacity = 0.7)
 ) {
 
-  output$map <- renderLeaflet({
+  output$map <- leaflet::renderLeaflet({
     mapedit:::add_select_script(
       leafmap,
       styleFalse = styleFalse,
@@ -82,7 +82,7 @@ selectMod <- function(
 #' @export
 editModUI <- function(id, ...) {
   ns <- shiny::NS(id)
-  leafletOutput(ns("map"), ...)
+  leaflet::leafletOutput(ns("map"), ...)
 }
 
 #' Shiny Module Server for Geo Create, Edit, Delete
@@ -125,7 +125,7 @@ editMod <- function(
     )
   }
 
-  output$map <- renderLeaflet({leafmap})
+  output$map <- leaflet::renderLeaflet({leafmap})
 
   featurelist <- reactiveValues(
     drawn = list(),