Merge pull request #190 from stla/stla_fit-content

NEWS

@@ -9,6 +9,8 @@ htmltools 0.5.0.9002
 
 * Closed #101: `htmlDependency` & `renderDependencies` now allow the `script` argument to be given as a named list containing the elements: `src`, `integrity`, `crossorigin`. (@matthewstrasiotto, #188)
 
+* Closed #189: `validateCssUnit()` now accepts `fit-content`. (#190)
+
 htmltools 0.5.0
 --------------------------------------------------------------------------------
 

R/tags.R

@@ -1430,9 +1430,9 @@ is.singleton <- function(x) {
 #' Single element numeric vectors are returned as a character vector with the
 #' number plus a suffix of \code{"px"}.
 #'
-#' Single element character vectors must be \code{"auto"} or \code{"inherit"},
-#' a number, or a length calculated by the \code{"calc"} CSS function.
-#' If the number has a suffix, it must be valid: \code{px},
+#' Single element character vectors must be \code{"auto"}, \code{"fit-content"}
+#' or \code{"inherit"}, a number, or a length calculated by the \code{"calc"}
+#' CSS function. If the number has a suffix, it must be valid: \code{px},
 #' \code{\%}, \code{ch}, \code{em}, \code{rem}, \code{pt}, \code{in}, \code{cm},
 #' \code{mm}, \code{ex}, \code{pc}, \code{vh}, \code{vw}, \code{vmin}, or
 #' \code{vmax}.
@@ -1462,7 +1462,7 @@ validateCssUnit <- function(x) {
     x <- as.numeric(x)
 
   pattern <-
-    "^(auto|inherit|calc\\(.*\\)|((\\.\\d+)|(\\d+(\\.\\d+)?))(%|in|cm|mm|ch|em|ex|rem|pt|pc|px|vh|vw|vmin|vmax))$"
+    "^(auto|inherit|fit-content|calc\\(.*\\)|((\\.\\d+)|(\\d+(\\.\\d+)?))(%|in|cm|mm|ch|em|ex|rem|pt|pc|px|vh|vw|vmin|vmax))$"
 
   if (is.character(x) &&
       !grepl(pattern, x)) {