如果 else 语句在 Shiny 中是否有 R 函数

Question

我有 2 个条件让数组以闪亮的方式显示。我尝试在 R 中使用以下代码闪亮但不是输出

library(shiny)

ui <- fluidPage(
sidebarLayout(
sidebarPanel(selectInput("x","Value of x",choices = 
c("Array1","Array2"))),
  mainPanel(h6("Here it is"),
            textOutput("message")
  )
)
)

server <- function(input, output, session) {
output$message <- renderUI(
{
  if(input$x == "Array1")
  {
    renderTable(array(1:20, dim=c(4,5)))
  } else 
    {
    if(input$x == "Array2")
    {
    renderTable(array(1:25, dim=c(5,5)))
    }
  }
  }
 )
}

shinyApp(ui, server)

代码中是否存在问题。请指教

Answer 1

library(shiny)

ui <- fluidPage(
    sidebarLayout(
        sidebarPanel(selectInput("x","Value of x",choices = 
                                     c("Array1","Array2"))),
        mainPanel(h6("Here it is"),
                  tableOutput("message")
        )
    )
)

server <- function(input, output, session) {
    output$message <- renderTable(
        {
            if(input$x == "Array1")
            {
                   array(1:20, dim=c(4,5))
            } else 
            {
                if(input$x == "Array2")
                {
                   array(1:25, dim=c(5,5))
                }
            }
        }
    )
}

shinyApp(ui, server)

1. 您混淆了多种 UI 类型。例如 RenderUI 和 textOutput。
2. 您在 renderUI 中使用了 renderTable。 RenderUI 需要tableOutput 才能正确显示。但我认为无论如何你都不需要它，因为你想要的只是显示表格。
3. 在 R 中，使用 data.frames 或 matrix 而不是多维数组更为常见。