如何删除文本输出中的标签 - R Shiny答案

【问题标题】：How to remove tags in textOutput - RShiny如何删除文本输出中的标签 - R Shiny
【发布时间】：2018-04-26 08:14:46
【问题描述】：

我是 R 新手，实际上我正在开发一个页面，其中在服务器中提供了一个目录（字符串字符，如“xx/xx”），我想收回这个目录以将其包含在我的 ui 源中应用程序。

用户界面：

library(shiny)
file<-textOutput("paramfile")
source(file(file), local = TRUE, encoding = 'UTF-8')

服务器：

filedir<-renderText({
  "entries/5429_param.R"
})

output$paramfile<-renderText({
  filedir()
})

然后我有一个错误：

“文件中的警告（文件名，“r”，编码=编码）：无法打开文件'

':
无效参数
文件错误（文件名，“r”，编码 = 编码）：
无法打开连接”

您知道如何删除这些标签，或者是否有其他功能可以让我在服务器中获取字符串并将其包含到源中。

标签： r shiny

【解决方案1】：

这是一个 ShinyApp 的基本示例：

# Example of UI with fluidPage
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      textInput("dir", label = "Enter a directory")
    ),
    mainPanel(
      verbatimTextOutput("dirPrint"),
      verbatimTextOutput("lsFiles")
    )
  )
)

# Server logic
server <- function(input, output) {
  output$dirPrint <- renderPrint({
    print(input$dir)
  })

  output$lsFiles <- renderPrint({
    fls <- list.files(input$dir)
    print(fls)
  })
}

# Complete app with UI and server components
shinyApp(ui, server)

如果您在文本输入中输入目录的路径，第二个 renderPrint 函数将显示在该路径中找到的所有文件。

我建议您查看Shiny-Tutorials，因为您的代码中似乎存在一些语法问题，我不确定您到底想要实现什么。

【讨论】：