在标题变量中添加文本输出

Question

我有一个选项卡，显示已完成预测的天数。

我想在顶部添加预测已经完成了多少天。

所以，我在 ui.R 文件中使用了以下代码

tabPanel('Forecast of cases in the region',
                         (fluidRow(
                                     h3('Forecast for',textOutput('Text1'),'number of days')
                                   )),
                            DT::dataTableOutput("Table1")
                             )

这是 server.R 文件的一部分 -

reactive(
                output$Text1<-input$Days
            )
            output$Table1<-DT::renderDataTable({
                k<-as.data.frame(future())
                k[1:3]<-round(k[1:3])
                colnames(k)<-c('Forecast','lower Confidence Interval',
                               'upper Confidence Interval')
                dat<-DT::datatable(k,
                                   options=list(
                                       paging=TRUE,pageLength=7))
                
                })

但是输出是在没有文本的情况下给出的

Answer 1

您可以在

renderText

中生成整个文本：

library(shiny)
ui <- fluidPage(
  textInput("days", "Days", "10"),
  mainPanel(
    tabsetPanel(
      tabPanel('Forecast of cases in the region',
               fluidRow(
                 h3(textOutput("value"))
               )),
               DT::dataTableOutput("Table1")
      ),
      tabPanel("Other", verbatimTextOutput("textOutput")),
    )
  )
  
  
  
  

)

server <- function(input, output) {
  
  output$value <- renderText({
    req(input$days)
    paste("Forecast for ",input$days," days") })
  
  output$Table1 <- DT::renderDataTable(iris)
}
shinyApp(ui, server)





server <- function(input, output) {
  
  output$value <- renderText({
    req(input$days)
    paste("Forecast for ",input$days," days") })
  
  output$Table1 <- DT::renderDataTable(iris)
}
shinyApp(ui, server)