github/shiny
1
1
Fork 0
mirror of https://github.com/rstudio/shiny.git synced 2026-02-05 12:15:14 -05:00
Code Issues Packages Projects Releases Wiki Activity

textConnection() can be lossy; use an anonymous file connection instead to preserve UTF-8 characters

Browse Source
This commit is contained in:
Yihui Xie
2015-09-22 00:15:21 -05:00
parent 0947a63103
commit 0afd1649c1
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/shinyui.R
View File

@@ -106,7 +106,7 @@ uiHttpHandler <- function(ui, uiPattern = "^/$") {
if (!isTRUE(grepl(uiPattern, req$PATH_INFO)))
return(NULL)
textConn <- textConnection(NULL, "w", encoding = 'UTF-8')
textConn <- file(open = "w+", encoding = 'UTF-8')
on.exit(close(textConn))
showcaseMode <- .globals$showcaseDefault
@@ -127,7 +127,7 @@ uiHttpHandler <- function(ui, uiPattern = "^/$") {
return(NULL)
renderPage(uiValue, textConn, showcaseMode)
html <- paste(textConnectionValue(textConn), collapse='\n')
html <- paste(readLines(textConn, encoding = 'UTF-8'), collapse='\n')
return(httpResponse(200, content=enc2utf8(html)))
}
}