在仪表板 Shiny 中显示文件内容

debugcn 发表于 Dev

埃尔维

我正在尝试通过文本文件在闪亮的仪表板中为用户显示帮助。但是我无法控制新行（“\n”）的显示。它们在文本文件和文本中，但闪亮的不想显示它们。

感谢帮助

伊斯兰教徒

Shiny 将所有元素转换为 HTML，它不会呈现换行符 ( \n) 字符。为了创建换行符，您可以使用该p()函数将每一行包装在一组 HTML 段落标记中。

这意味着，而是采用renderText()和textOutput你将需要使用renderUI并uiOutput在您的应用程序。

下面给出了如何将换行符转换为段落标记的完整示例。

require(stringi)
require(shiny)

# write text file with standard newline characters
str <- 'These are words\nwith newline characters\n\nthat do not render.'
write(x = str, file = 'Data.txt')

ui <- fluidPage(
  h4('Reading raw text from file:'),
  textOutput('textWithNewlines'), # text with newline characters output

  h4('Converting text to list of paragraph tags'), 
  uiOutput('textWithHTML') # ui output as a list of HTML p() tags
)

server <- function(input,output){

  output$textWithNewlines <- renderText({
    rawText <- readLines('Data.txt')
    return(rawText)
  })

  ### SOLUTION ###
  output$textWithHTML <- renderUI({
    rawText <- readLines('Data.txt') # get raw text

    # split the text into a list of character vectors
    #   Each element in the list contains one line
    splitText <- stringi::stri_split(str = rawText, regex = '\\n')

    # wrap a paragraph tag around each element in the list
    replacedText <- lapply(splitText, p)

    return(replacedText)
  })

}
shinyApp(ui=ui, server=server)

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。