Merge pull request #4 from eodaGmbH/dev_nfr

Dev nfr
eoda-dev · Jan 11, 2024 · d4570ee · d4570ee
2 parents f11fe94 + a151063
commit d4570ee
Show file tree

Hide file tree

Showing 10 changed files with 77 additions and 16 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -2,10 +2,12 @@
 
 export(Layer)
 export(Marker)
+export(MarkerOptions)
 export(add_call)
 export(add_control)
 export(add_layer)
 export(add_marker)
+export(mapOptions)
 export(maplibre)
 export(maplibreOutput)
 export(renderMaplibre)

diff --git a/R/maplibre.R b/R/maplibre.R
@@ -1,6 +1,6 @@
-#' <Add Title>
+#' Create a Map Object for MapLibre GL
+#'
 #'
-#' <Add Description>
 #'
 #' @import htmlwidgets
 #'
@@ -30,6 +30,15 @@ maplibre <- function(map_options = mapOptions(), width = "100%", height = NULL,
   )
 }
 
+#' Add Map Options to a Map Object
+#'
+#' @param style
+#' @param ...
+#'
+#' @return
+#' @export
+#'
+#' @examples
 mapOptions <- function(style = basemaps$carto$dark_matter, ...) {
   list(style = style, ...)
 }

diff --git a/R/marker.R b/R/marker.R
@@ -15,6 +15,14 @@ Marker <- function(lngLat, popup , ...) {
   return(mark)
 }
 
+#' Title
+#'
+#' @param ...
+#'
+#' @return
+#' @export
+#'
+#' @examples
 MarkerOptions <- function(...){
   marker_options <- list(...)
   stopifnot(sapply(marker_options[c("anchor", "color", "pitchAlignment", "rotationAlignment")], function(x){is.null(x) | is.character(x)}))

diff --git a/man/Layer.Rd b/man/Layer.Rd
diff --git a/man/Marker.Rd b/man/Marker.Rd
diff --git a/man/MarkerOptions.Rd b/man/MarkerOptions.Rd
diff --git a/man/add_marker.Rd b/man/add_marker.Rd
diff --git a/man/hello.Rd b/man/hello.Rd
diff --git a/man/mapOptions.Rd b/man/mapOptions.Rd
diff --git a/man/maplibre.Rd b/man/maplibre.Rd