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 shinyの新しいユーザーです。私は上記のような簡単なコードを書いて、私のメインパネルがsidebarLayoutの右側にないことを知りました。私は何がこれにつながるのか分からず、sidebarLayoutの右側に移動したい場合はどうすればよいですか。

Answer 1

sidebarPanelを含めるのを忘れてしまったため、パネルが1つしかないので、fluidPageのすべてが1列に表示されます。私のため

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") 
) 
)