如何在 Shiny 中粘贴到文本输出

Question

如何从文本输入插入文本输出值？问题是因为我想从 textInput 和其他文本插入值。粘贴或胶水等功能会引发错误。

此代码有效：

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(  
    textInput("domena", "Podaj domenę"),
    actionButton("act_btn", "Pobierz dane dla domeny"),
    verbatimTextOutput("domena")
  )
)

server <- function(input, output) {output$domena <- renderText({input$domena})}
shinyApp(ui = ui, server = server)

但是这会抛出错误

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(  
    textInput("domena", "Podaj domenę"),
    actionButton("act_btn", "Pobierz dane dla domeny"),
    verbatimTextOutput(paste("AAA", domena))
      )
)

server <- function(input, output) {output$domena <- renderText({input$domena})}
shinyApp(ui = ui, server = server)

Answer 1

您正在尝试连接一些静态文本，其中值在

textInput

部分中输入，然后使用 verbatimTextOutput 显示它。在

paste()

函数中使用

paste0()

或

renderText()

函数。

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(  
    textInput("domena", "Podaj domenę"),
    actionButton("act_btn", "Pobierz dane dla domeny"),
    verbatimTextOutput("concatenated_text")
  )
)

server <- function(input, output) {
  output$concatenated_text <- renderText({
    paste("AAA", input$domena)
  })
}

shinyApp(ui = ui, server = server)