Добавление прокрутки на боковую панель в flexdashboard

Я разрабатываю пользовательский интерфейс с помощью Flexdashboard, и некоторые поля ввода текста выходят за рамки обычного окна браузера. Я добавил строку vertical_layout: scroll в свой код, но я предполагаю, что этого недостаточно? Итак, мой вопрос: как включить функцию вертикальной прокрутки, как показано на этом изображении ниже. ? Любые советы или указатели очень приветствуются.

введите описание изображения здесь

Вот мой код ниже

---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: scroll
    smooth_scroll: true
    runtime: shiny
---

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

     Inputs {.sidebar}
-----------------------------------------------------------------------

  ```{r}
library(shiny)
library(shinyjs)


shinyjs::useShinyjs()
#tags$hr(),
shinyjs::disabled(textInput("id", "Id", "0"))
textInput("X1", "X1", "")
textInput("X2", "X2", "")
textInput("X3", "X3", "")
textInput("X4", "X4", "")
textInput("X5", "X5", "")
textInput("X6", "X6", "")
textInput("X7", "X7", "")
textInput("X8", "X8", "")
textInput("X9", "X9", "")
textInput("X10", "X10", "")
textInput("X11", "X11", "")
textInput("X12", "X12", "")

textInput("X13", "X13", "")
textInput("X14", "X14", "")
textInput("X15", "X15", "")
textInput("X16", "X16", "")

checkboxInput("X17", "X17", FALSE)


#action buttons
actionButton("submit", "Submit Changes")


```

r r-markdown shinydashboard flexdashboard
person Bridgeport Byron Tucker    schedule 21.05.2016    source источник
comment
В отличие от некоторых других вопросов о flexdashboard, в этом вопросе нет кода ..... низкое качество Q. Пожалуйста, улучшите.   -  person IRTFM    schedule 22.05.2016
comment
@ 42- Это, наверное, очень простая вещь, какой-то переключатель, который мне нужно где-то включить, если вы настаиваете, что я тоже включил свой код.   -  person Bridgeport Byron Tucker    schedule 22.05.2016

Ответы (2)


arrow_upward
12
arrow_downward

Эта проблема решена здесь: https://github.com/rstudio/flexdashboard/issues/27 < / а>

Вы можете использовать версию с исправлением, установив последнюю версию с GitHub:

devtools::install_github("rstudio/flexdashboard")

В качестве альтернативы вы можете добавить этот фрагмент CSS на свою панель управления:

<style type="text/css"> .sidebar { overflow: auto; } </style>
person JJ Allaire    schedule 22.05.2016
comment
JJ снова приходит на помощь. - person IRTFM; 22.05.2016
comment
@JJAllaire, ничего себе, мне просто пришлось переустановить мой пакет flexdashboard из репозитория devtools, и это сработало. - person Bridgeport Byron Tucker; 22.05.2016

arrow_upward
0
arrow_downward

У меня была эта проблема недавно, но я попробовал решение CSS, описанное выше, и оно не сработало. Я отображал свои данные в DT таблице данных, поэтому я нашел это решение с scrollX и scrollY, которое хорошо работает в текущих Chrome, Firefox и IE:

library(DT)

DT::renderDataTable({
datatable(display.data(), style='bootstrap',
  class='table-condensed', 
  editable=TRUE, rownames=FALSE, extensions = 'Buttons',
  options = list(
    scrollX = '400px', scrollY='360px',
    searchHighlight = TRUE,
    columnDefs = list(list(width='50px',targets=c(0:9))),
    order=list(0, 'asc'),
    pageLength=10
)
)
person mysteRious    schedule 19.10.2018