Есть ли в R блестящая функция R для построения ствола и отображения сводной таблицы

Question

Меня смущают функции ввода и вывода в R Shiny. Мне нужно построить функцию ствола и отобразить сводную таблицу для точного набора данных на основе входных данных при выбранных входных данных. Но ниже не получается нужный мне результат. Пожалуйста, сообщите

 library(shiny)

 ui <- fluidPage(
 sidebarLayout(
 sidebarPanel(selectInput("x","Operations",choices = c("summary","stem")),
             plotOutput("x")),
 mainPanel(h6("Here it is"),
          tableOutput("message")
 )
 )
 )

 server <- function(input, output, session) {

 output$message <- renderPlot({
 faithful
 })
 output$x <- reactive({
 if(input$x == "summary")
  {
  summary(faithful$eruptions)
 } 
 else if (input$x == "stem")
  {
  stem(faithful$eruptions)
 }
 )
 })
 }

 shinyApp(ui, server)

Answer 1

Я новичок в Shiny, поэтому ниже приведен только мой опыт. Сначала я думаю, что вы должны поставить ваше условие if для вывода message. Во-вторых, используйте renderPrint для вывода итоговых результатов.

library(shiny)

ui <- fluidPage(
    sidebarLayout(
        sidebarPanel(selectInput("x","Operations",choices = c("summary","stem")),
                     uiOutput("x")),
        mainPanel(h6("Here it is"),
                  verbatimTextOutput("message")
        )
    )
)

server <- function(input, output, session) {

  #  output$message <- renderUI({
   #     faithful
  #  })
    output$message <- renderPrint({
        if(input$x == "summary")
        {
            summary(faithful$eruptions)
        } else if (input$x == "stem")
        {
            print(stem(faithful$eruptions))
        }
    })

}

shinyApp(ui, server)