Как показать текст и таблицу в блестящих

Question

Как показать h3 («Числовые результаты») и h3 («Сводные отчеты»)? Спасибо.

Это мой ui.R и server.R.

Ниже приведен код для моего ui.R файла:

library(shiny) 
ui <- shinyUI(fluidPage(
     titlePanel("aaaaaaaaaaaaaaaa"), 
     tabsetPanel(
     navbarMenu("Means", 
       tabPanel("One Mean"), 
       tabPanel("Two Means", 
         wellPanel(
          checkboxInput(inputId = "s1", label = "S1" , value = FALSE), 
          checkboxInput(inputId = "s2", label = "S2", value = FALSE) 
         ), 
         sidebarPanel(
          p(strong("Error Rates")), 
          numericInput("alpha", label="Alpha", min=0, max=1,value=0.05), 
          numericInput("power", "Power", 0.8), 
          actionButton("submit","Submit") 
         ), 
         mainPanel(
          tabsetPanel(
          tabPanel("Main", 
            tableOutput("Table"), 
            verbatimTextOutput("Text") 
          ) 
         ) 
         ) 
      ) 
     )))) 

Ниже приведен код для моего файла server.R:

server <- shinyServer(function(input, output) { 
    output$Table <- renderTable({ 
    if(input$submit > 0) { 
     h3("Numeric Results") 
     output<-data.frame(input$alpha,input$power) 
     output 
    } 
    }) 

    output$Text<-renderPrint({ 
    if(input$submit > 0) { 
     h3("Summary Statements") 
     paste("alpha and power are",input$alpha,"and",input$power) 
    } 
    }) 
}) 
shinyApp(ui = ui, server = server) 

Answer 1

Для Table, я думаю, вы не обеспечивают переменная для хранения/отображения текста и для Text, paste переопределяет код h3. Если вы прокомментируете код paste, вы можете увидеть код h3. Чтобы иметь несколько строк текста, вы можете попробовать что-то вроде кода ниже.

library(shiny) 
ui <- shinyUI(fluidPage(
    titlePanel("aaaaaaaaaaaaaaaa"), 
    tabsetPanel(
    navbarMenu("Means", 
       tabPanel("One Mean"), 
       tabPanel("Two Means", 
         wellPanel(
          checkboxInput(inputId = "s1", label = "S1" , value = FALSE), 
          checkboxInput(inputId = "s2", label = "S2", value = FALSE) 
         ), 
         sidebarPanel(
          p(strong("Error Rates")), 
          numericInput("alpha", label="Alpha", min=0, max=1,value=0.05), 
          numericInput("power", "Power", 0.8), 
          actionButton("submit","Submit") 
         ), 
         mainPanel(
          tabsetPanel(
          tabPanel("Main", 
            htmlOutput("header"), 
            tableOutput("Table"), 
            htmlOutput("Text") 
          ) 
         ) 
         ) 
       ) 
    )))) 

server <- shinyServer(function(input, output) { 
    output$header <- renderText({ 
    if(input$submit > 0) { 
     HTML(paste0("<h3>","Numeric Results","</h3>")) 
    } 
    }) 

    output$Table <- renderTable({ 
    if(input$submit > 0) { 
     output<-data.frame(input$alpha,input$power) 
     output 
    } 
    }) 

    output$Text<-renderPrint({ 
    if(input$submit > 0) { 
     str1 <- (paste0("<h3>", "Summary Statements", "</h3>")) 
     str2 <- paste("alpha and power are",input$alpha,"and",input$power) 
     HTML(paste(str1, str2, sep = '<br/>')) 
    } 
    }) 
}) 
shinyApp(ui = ui, server = server)