"ü"

至

"ü"

我知道这可以通过巧妙地使用gsub(但是有人会一劳永逸地使用它)，我认为包R2HTML将会这样做，但是它并没有。

编辑：这是我最后使用的显然可以通过修改字典来扩展：

char2html <- function(x){
  dictionary <- data.frame(
    symbol = c("ä","ö","ü","Ä","Ö","Ü","ß"),html = c("&auml;","&ouml;","&uuml;","&Auml;","&Ouml;","&Uuml;","&szlig;"))
  for(i in 1:dim(dictionary)[1]){
    x <- gsub(dictionary$symbol[i],dictionary$html[i],x)
  }
  x
}

x <- c("Buschwindröschen","Weißdorn")
char2html(x)