Fix a couple minor bugs

R/columns.R

@@ -86,7 +86,7 @@ is_bulma_column <- function(x) inherits(x, "bulma_column")
 #'
 #' @inheritParams bulma_column
 #' @examples
-#' bulma_column_options(size = "one-half", offset = "one-quarter")
+#' bulma_column_options(size = "half", offset = "one-quarter")
 #'
 #' @export
 bulma_column_options <- function(size = NULL, width = NULL, offset = NULL, narrow = NULL,

R/layout_level.R

@@ -16,12 +16,12 @@ bulma_level <- function(
     item = level_item,
     header = level_item_header
   )
-  tag_f <- tag_function(container_tag)
+  tag_f <- tag_function(match.arg(container_tag))
   x <- tag_f(
     class = paste("level", if (is_mobile) "is-mobile"),
     level_side(left),
     level_item_f(...),
-    level_side(right)
+    level_side(right, "right")
   )
 
   x

man/bulma_column_options.Rd

@@ -26,6 +26,6 @@ bulma_column_options(size = NULL, width = NULL, offset = NULL,
 Bulma Column Options
 }
 \examples{
-bulma_column_options(size = "one-half", offset = "one-quarter")
+bulma_column_options(size = "half", offset = "one-quarter")
 
 }