Allow to set the lang attribute, will close #82

rstudio · Oct 2, 2020 · 31a17b4 · 31a17b4
1 parent 66aa3eb
commit 31a17b4
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 4 deletions.
diff --git a/R/html_print.R b/R/html_print.R
@@ -66,9 +66,10 @@ html_print <- function(html, background = "white", viewer = getOption("viewer",
 #' @param background Background color for web page
 #' @param file File to write content to
 #' @param libdir Directory to copy dependencies to
+#' @param lang Value of the `<html>` `lang` attribute
 #'
 #' @export
-save_html <- function(html, file, background = "white", libdir = "lib") {
+save_html <- function(html, file, background = "white", libdir = "lib", lang = "en") {
   force(html)
   force(background)
   force(libdir)
@@ -96,7 +97,7 @@ save_html <- function(html, file, background = "white", libdir = "lib") {
 
   # build the web-page
   html <- c("<!DOCTYPE html>",
-            "<html>",
+            sprintf('<html lang="%s">', lang),
             "<head>",
             "<meta charset=\"utf-8\"/>",
             sprintf("<style>body{background-color:%s;}</style>", htmlEscape(background)),

diff --git a/man/save_html.Rd b/man/save_html.Rd