R閃亮的主面板顯示錯誤的地方

Question

library(shiny) 

ui <- fluidPage(
    titlePanel("Slider App"), 
    sidebarLayout(
    h1("Move the slider!"), 
    sliderInput(inputId = "n", label = "Sample size", 
       min = 10, max = 1000, value = 30) 
    ), 
    mainPanel(
    h3('Illustrating outputs'), 
    h4('mean of random normal sample'), 
    textOutput(outputId = "output_mean"), 
    h4('variance of random normal sample'), 
    textOutput(outputId = "output_var"), 
    h4('histogram of random normal sample'), 
    plotOutput(outputId = "output_hist") 
    ) 
) 


server <- function(input, output) { 
    output$output_hist <- renderPlot({ 
    set.seed(1221) 
    sample <- rnorm(input$n) 
    hist(sample) 
    }) 
    output$output_mean <- renderText({ 
    set.seed(1221) 
    sample <- rnorm(input$n) 
    mean(sample) 
    }) 
    output$output_var <- renderText({ 
    set.seed(1221) 
    sample <- rnorm(input$n) 
    var(sample) 
    }) 
} 

shinyApp(ui = ui, server = server) 

我是R閃亮的新用戶。我上面寫了一個簡單的代碼，發現我的主面板不在sidebarLayout的右側。我不知道是什麼導致了這一點，如果我想將它移動到sidebarLayout的右側，我應該怎麼做。

Answer 1

您剛剛忘了包含必要的sidebarPanel，因此您只有一個面板，因此您的fluidPage中的所有內容都位於一列中。

您需要添加sidebarPanel讓您ui代碼如下所示：

ui <- fluidPage(
    titlePanel("Slider App"), 
    sidebarPanel(
    sidebarLayout(
     h1("Move the slider!"), 
     sliderInput(inputId = "n", label = "Sample size", 
        min = 10, max = 1000, value = 30) 
    ) 
), 
    mainPanel(
    h3('Illustrating outputs'), 
    h4('mean of random normal sample'), 
    textOutput(outputId = "output_mean"), 
    h4('variance of random normal sample'), 
    textOutput(outputId = "output_var"), 
    h4('histogram of random normal sample'), 
    plotOutput(outputId = "output_hist") 
) 
)