Handle correctly % value in width and height
related to #72
diff --git a/R/revealjs_presentation.R b/R/revealjs_presentation.R
index 1e6f897..8e429c3 100644
--- a/R/revealjs_presentation.R
+++ b/R/revealjs_presentation.R
@@ -157,8 +157,10 @@
value <- sprintf('[%s]', paste(paste0("'", value, "'"), collapse = ", "))
}
# Add quotes around some config that can be several type
- # e.g slideNumber = true or slideNumber = 'c/t'
- if (option %in% c("slideNumber")) {
+ # like number or percent unit or slideNumber = true or slideNumber = 'c/t'
+ if (
+ option %in% c("slideNumber") ||
+ (option %in% c("width", "height") && grepl("%$", value))) {
value <- paste0("'", value, "'")
}
}