Add headers for static serving

R/server.R

@@ -400,11 +400,12 @@ startApp <- function(appObj, port, host, quiet) {
   )
   httpuvApp$staticPathOptions <- httpuv::staticPathOptions(
     html_charset = "utf-8",
+    headers = list("X-UA-Compatible" = "IE=edge,chrome=1"),
     validation =
       if (!is.null(getOption("shiny.sharedSecret"))) {
         sprintf('"Shiny-Shared-Secret" == "%s"', getOption("shiny.sharedSecret"))
       } else {
-        NULL
+        character(0)
       }
   )