如何使用renderUI闪亮应用R显示文本框编号的值答案

【问题标题】：how to display value of text box number using renderUI shiny app R如何使用renderUI闪亮应用R显示文本框编号的值
【发布时间】：2021-05-04 21:31:47
【问题描述】：

我想显示输入时要显示的文本框编号的值

这就是我想要做的事情


# 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 })
   
}

【问题讨论】：

标签： r shiny shiny-server shinyapps

【解决方案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)

【讨论】：

【解决方案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)

【讨论】：