Question

我试图创建我的第一个Shiny App并且我基本上试图让App绘制两个简单的直方图，但是使用输入按钮让用户选择他是否想看到这两个直方图并排（水平）或一个在另一个之下（垂直）。

我尝试将下面的代码编写为更多，以试图向您解释我的思考过程，而不是实际希望它能够正常工作。

感谢任何帮助，谢谢！

library(shiny)

ui <- fluidPage(
radioButtons('layout', 'Layout:', choices=c('Vertically', 'Horizontally'), inline=TRUE),
sliderInput(inputId = "num",
          label = "Choose a number",
          value = 25, min = 1, max = 100),
plotOutput("hist1"),
plotOutput("hist2"))

server <- function(input,output) {

if (input$layout == "Horizontally") {
  output$hist1<-fluidRow(
  column(3,plotOutput(hist(rnorm(input$num)))))
  output$hist2<-column(3,plotOutput(hist(rnorm(input$num))))
} 
else if (input$layout == "Vertically") {
  output$hist1<-fluidRow(
    column(3,plotOutput(hist(rnorm(input$num)))))
  output$hist2<-fluidRow(
    column(3,plotOutput(hist(rnorm(input$num)))))
}

}

shinyApp(ui=ui, server=server)

如何使用Shiny App中的输入按钮来反应性地更改布局？

0 个答案: