如何使用renderUI shiny app r显示文本框编号的值

Question

我想显示输入

时显示的文本框编号的值这就是我要做的

# Define UI for application that draws a histogram
ui <- fluidPage(
# Application title
h1("Enter One Number"),
numericInput("number","enter a number", "" , min = 1 , max = 100),
uiOutput("uu")

)
# Define server logic required to draw a histogram
server <- function(input, output) {
output$uu <- renderUI({"you are typing " input$number })

}

Answer 1

您需要处理字符串。不可能只是将它们连接到一个renderUI中。为了组合字符串，请使用paste,sprintf或任何合适的字符串函数。

library(shiny)
ui <- fluidPage(
h1("Enter One Number"),
numericInput("number","enter a number", "" , min = 1 , max = 100),
uiOutput("uu"))
server <- function(input, output, session) {
output$uu <- renderUI({paste("you are typing", input$number) })
}
shinyApp(ui, server)

Answer 2

在R中不能简单地组合文本和对象，但是在这种情况下可以使用paste。

library(shiny)
ui <- fluidPage(

# Application title
h1("Enter One Number"),
numericInput("number","enter a number", "" , min = 1 , max = 100),
uiOutput("uu")

)
# Define server logic required to draw a histogram
server <- function(input, output) {

output$uu <- renderUI({paste0("you are typing ", input$number) })

}

shinyApp(ui = ui, server = server)