如何删除textOutput中的标签 - RShiny

时间:2018-04-26 08:14:47

标签: r shiny

我是R的新手,我实际上正在开发一个页面,其中一个目录(字符串字符如" xx / xx")在服务器中给出,我想收回这个目录以包含它我的ui应用程序的来源。

UI:

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

服务器:

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

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

然后我有一个错误:

  

&#34;文件中的警告(文件名,&#34; r&#34;,encoding = encoding):无法打开   文件&#39;&lt; div id =&#34; paramfile&#34;类=&#34;光泽-文本的输出&#34;&GT;&LT; / DIV&GT;&#39 ;:
  参数无效   文件错误(文件名,&#34; r&#34;,编码=编码):
  无法打开连接&#34;

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

1 个答案:

答案 0 :(得分:0)

以下是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)

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

我建议你查看Shiny-Tutorials,因为代码中似乎存在一些语法问题,我不确定你想要实现的目标。