Update docs

DESCRIPTION

@@ -27,3 +27,4 @@ Suggests:
     testthat (>= 3.0.0)
 Config/testthat/edition: 3
 VignetteBuilder: knitr
+Roxygen: list(markdown = TRUE)

R/add_control.R

@@ -1,9 +1,10 @@
 #' Title
 #'
-#' @param map
-#' @param control_name
-#'
-#' @return
+#' @param .map A [maplibre()] HTML widget
+#' @param control_name The name of the control
+#' @param control_position The position of the control.
+#' @param ... Control options depending on the type of control.
+#' @returns The updated [maplibre()] HTML widget
 #' @export
 #'
 #' @examples

R/layer.R

@@ -10,24 +10,24 @@
 #'
 #' @export
 Layer <- function(type, id, source = NULL, paint = NULL, layout = NULL, ...) {
-  if(!is.element(type, LayerType)){
+  if (!is.element(type, LayerType)) {
     stop(
-      glue::glue("type needs to be one of ",
-                 glue::glue_collapse(unlist(maplibre::LayerType), sep = " "),
-                 "\nSee ?maplibre::LayerType for more information."
+      glue::glue(
+        "type needs to be one of ",
+        glue::glue_collapse(unlist(maplibre::LayerType), sep = " "),
+        "\nSee ?maplibre::LayerType for more information."
       )
     )
   }
-  types <- list(type = is.character, id = is.character,
-                source = function(x) {is.list(x) | is.character(x)}, paint = is.list, layout = is.list)
+
   c(rdantic(
     list(
       type = type,
       id = id,
       source = source,
       paint = paint,
       layout = layout
-    ), types
+    ), TYPES_LAYER
   ), ...) |>
     purrr::compact() |>
     set_maplibre_class("MapLibreLayer")
@@ -63,8 +63,8 @@ LayerType <- list(
 )
 #' Add a layer to map
 #'
-#' @param .map
-#' @param layer
+#' @inherit add_control params return
+#' @param layer A [Layer()] object
 #'
 #' @example examples/layers.R
 #' @export

R/maplibre.R

@@ -1,7 +1,10 @@
 #' Create a Map Object for MapLibre GL
 #'
 #'
-#'
+#' @param map_options [mapOptions()]
+#' @param width,height The width and the height of the widget.
+#' @param elementId The unique ID of the widgets's HTML element.
+#' @param ... Further map options.
 #' @import htmlwidgets
 #'
 #' @export

R/types.R

@@ -4,3 +4,13 @@ TYPES_BASEMAP_STYLE <- list(
   sources = is.list,
   layers = is.list
 )
+
+TYPES_LAYER <- list(
+  type = is.character,
+  id = is.character,
+  source = function(x) {
+    is.list(x) | is.character(x)
+  },
+  paint = is.list,
+  layout = is.list
+)