SCI: Spatial Cauasal Inference

#Slightly modified from Gmisc-package
print.htmlTable<- function(x, useViewer = TRUE, ...){
  # Don't use viewer if in knitr
  if (useViewer &&
        !"package:knitr" %in% search()){
    
    htmlFile <- tempfile(fileext=".html")
    htmlPage <- paste("<html>",
                      "<head>",
                      "<meta http-equiv=\"Content-type\" content=\"text/html;charset=UTF-8\">",
                      "</head>",
                      "<body>",
                      
                      x,
                      
                      "</body>",
                      "</html>", sep="\n")
    cat(htmlPage, file=htmlFile)
    
    viewer <- getOption("viewer")
    
    if (!is.null(viewer) &&
          is.function(viewer)){
      # (code to write some content to the file)
      
      viewer(htmlFile)
    }else{
      utils::browseURL(htmlFile)
    }
  }else{
    
    cat(x)
  }
}