在heading变量中添加文本输出

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)