t ie ширина абзаца до ширины wellPanel в R Shiny внутри splitLayout () в flexdashboard

Question

Я работаю в блестящем приложении.

Если абзац (длинный абзац) находится внутри wellPanel, абзац разбивается на несколько строк, чтобы без проблем настроить ширину wellPanel. Но когда я помещаю его в splitLayout (), абзац отображается в одну строку (и мне нужно прокрутить, чтобы увидеть остальные части) ...

Как я могу t ie абзацы ' ширина по ширине скважины внутри splitLayout?

Следует минимальный воспроизводимый пример

---
title: "Example"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: column
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
library(dplyr)
library(DT)

knitr::opts_chunk$set(echo = TRUE)

```

```{r,echo=FALSE}
   splitLayout(cellWidths=c("30%","70%"),
    wellPanel(selectInput("Indicator","select",choices=c(),selected="NONE"),
      p("This is my first sentence in the paragraph. This is my second sentence in the paragraph. This is another sentence within the paragraph.")),
    wellPanel(
    dataTableOutput("OrigData")
   )
  )

observe({
  Inds<-as.factor(mtcars[,2])%>%levels
  updateSelectInput(session,inputId="Indicator",choices=Inds)
})

output$OrigData<-DT::renderDataTable(mtcars)

```

и изображение того, как это показано

Заранее спасибо,

Answer 1

Я делюсь тем, как я решил эту проблему ...

Я заменил splitLayout структурой на основе столбцов.

---
title: "Example"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: column
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
library(dplyr)
library(DT)

knitr::opts_chunk$set(echo = TRUE)

```

```{r,echo=FALSE}
column(3,offset=0,
  selectInput("Indicator","select",choices=c(),selected="NONE"),
      p("This is my first sentence in the paragraph. This is my second sentence in the paragraph. This is another sentence within the paragraph.")

)
column(9,
     dataTableOutput("OrigData")
  )

observe({
  Inds<-as.factor(mtcars[,2])%>%levels
  updateSelectInput(session,inputId="Indicator",choices=Inds)
})

output$OrigData<-DT::renderDataTable(mtcars)

```

Я давно использовал splitLayout. Но я перешел на flexdashboard совсем недавно, поэтому, возможно, не все блестящие элементы совместимы со всеми типами блестящих приложений ... (в этом случае splitLayout и flexdashboard) ...