How about detecting the encoding of the string right before printing, then using that encoding in the header of the output to the viewer? That would only affect the viewer output and pick up the encoding used by the system. Something like this:

  if (interactive() && !getOption("htmlTable.cat", FALSE) && 
      (is.function(useViewer) || useViewer != FALSE)) {
    if (is.null(args$file)) {
      args$file <- tempfile(fileext = ".html")
    }
    
    if(Encoding(x) == "latin1")
    {
      charset <- "ISO-8859-1"
    } else {
      charset <- Encoding(x)
    }
    header <- paste0("<meta http-equiv=\"Content-type\" content=\"text/html; charset=",
                    charset,
                    "\">")
    
    htmlPage <- paste("<html>", "<head>", header, 
                      "</head>", "<body>", "<div style=\"margin: 0 auto; display: table; margin-top: 1em;\">", 
                      x, "</div>", "</body>", "</html>", sep = "\n")

I tested this only in the viewer under windows 10, works as it should.

error with non-ANSI characters #61

Description

a

Metadata

Metadata

Assignees

Labels

Projects

Milestone

Relationships

Development

Issue actions