मेरे पास एक टैब है जो उन दिनों की संख्या दिखाता है जिसके लिए पूर्वानुमान किया गया है।

मैं शीर्ष पर शामिल करना चाहता था, कितने दिनों के लिए पूर्वानुमान किया गया है।

इसलिए, मैंने ui.R फ़ाइल में निम्न कोड का उपयोग किया है

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

यहाँ सर्वर का हिस्सा है। आर फ़ाइल -

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

लेकिन आउटपुट बिना टेक्स्ट के ही दिया गया था

Table

0
Saif Mehdi 10 सितंबर 2020, 11:44

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)

1
Waldi 10 सितंबर 2020, 12:52