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

问题描述

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

这就是我想要做的

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

解决方法

您需要处理字符串。不可能只将它们连接到 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)

,

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

library(shiny)
ui <- fluidPage(
  
  # Application title
  h1("Enter One Number"),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)