🚨 add tests

Author: Ryan Patrick Kyle

R/utils.R

@@ -610,10 +610,10 @@ generate_js_dist_html <- function(href,
 generate_meta_tags <- function(metas) {
   has_ie_compat <- any(vapply(metas, function(x) 
     x$name == "http-equiv" && x$content == "X-UA-Compatible", 
-    logical(1)))
+    logical(1)), na.rm=TRUE)
   has_charset <- any(vapply(metas, function(x) 
     "charset" %in% names(x), 
-    logical(1)))
+    logical(1)), na.rm=TRUE)
 
   # allow arbitrary tags with varying numbers of keys
   tags <- vapply(metas, 

tests/integration/test_meta.py

@@ -0,0 +1,53 @@
+from selenium.webdriver.support.select import Select
+import time, os
+
+
+app = """
+library(dash)
+library(dashHtmlComponents)
+
+app <- Dash$new(meta_tags = list(list(name = "description", content = "some content")))
+
+app$layout(
+  htmlDiv(children = "Hello world!",
+          id = "hello-div"
+  )
+)
+
+app$run_server()
+"""
+
+
+def test_rstm001_test_meta(dashr):
+    dashr.start_server(app)
+    dashr.wait_for_text_to_equal(
+        "#hello-div",
+        "Hello world!"
+    )
+    assert dashr.find_element("meta[name='description']").get_attribute("content") == "some content"
+
+
+app2 = """ 
+library(dash)
+library(dashHtmlComponents)
+
+app <- Dash$new(meta_tags = list(list(charset = "ISO-8859-1"), list(name = "keywords", content = "dash,pleasant,productive")))
+
+app$layout(
+  htmlDiv(children = "Hello world!",
+          id = "hello-div"
+  )
+)
+
+app$run_server()
+"""
+
+
+def test_rstm002_test_meta(dashr):
+    dashr.start_server(app2)
+    dashr.wait_for_text_to_equal(
+        "#hello-div",
+        "Hello world!"
+    )   
+    assert dashr.find_element("meta[charset='ISO-8859-1']")
+    assert dashr.find_element("meta[name='keywords']").get_attribute("content") == "dash,pleasant,productive"