liquidrow () не отображается на одном ряду с toc

Question

У меня есть блестящее приложение в документе rmarkdown с оглавлением, но элементы liquidrow (), которые должны быть в строке, больше не являются одной строкой после того, как присутствует ток, независимо от значения ширины th-го столбца:

---
title: "Test column with toc"
output:
  html_document:
    theme: united
    toc: yes
    toc_float: yes
runtime: shiny
---

## headline

Fluidrow won't be in one row:

```{r, echo=FALSE}
library(shiny)

ui <- fluidPage(fluidRow(column(2,
sliderInput(
"obs",
"Number of observations:",
min = 1,
max = 1000,
value = 500,
width = "20%"
)
),
column(2,
plotOutput("distPlot", width = "60%"))))

server <- function(input, output) {
output$distPlot <- renderPlot({
hist(rnorm(input$obs))
})
}

shinyApp(ui, server)


```

Answer 1

В зависимости от размера окна столбцы по умолчанию изменяются на стопки шириной 768 пикселей, используя класс col-sm-2.Это класс начальной загрузки (https://getbootstrap.com/docs/3.3/css/#grid-options). Однако, если вам нужно другое поведение, вы можете использовать div и присвоить ему класс col-xs-2, чтобы разделить экран пополам, это будет div( class = "col-xs-6", ...)

Вот пример того, что вы могли бы сделать:

Fluidrow won't be in one row:

```{r, echo=FALSE}
library(shiny)

ui <- fluidPage(
  fluidRow(
    div( class = "col-xs-6",
      sliderInput(
        "obs",
        "Number of observations:",
        min = 1,
        max = 1000,
        value = 500,
        width = "50%"
      )
    ),
    div( class = "col-xs-6",
      plotOutput("distPlot", width = "100%")
    )
  )
)

server <- function(input, output) {
  output$distPlot <- renderPlot({
    hist(rnorm(input$obs))
  })
}

shinyApp(ui, server)


```

Также обратите внимание, что ширина графика и ползунка относительно столбца там.