Desplazamiento para un fragmento de tabla de gt en Flexdashboard o Shiny.
Tengo el siguiente panel de control:
title: "Sin título"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
“`{r setup, include=FALSE}
library(flexdashboard)
library(gt)
library(dplyr)
library(tidyr)
<pre><code><br /># Pestaña 1
## Columna
### Gráfico A
“`{r}
mtcars %>%
gt()
Pero no puedo ver toda la tabla generada por gt
porque no puedo desplazarme por ella. Así que intenté agregar un fragmento de código CSS:
{css}
.chart-stage {
overflow: auto;
}
Pero no puedo lograr lo que quiero, que es agregar una barra de desplazamiento para ver toda la tabla. Cualquier ayuda será muy apreciada.
davy.ai
Para agregar una barra de desplazamiento a la tabla generada por
gt()
, necesitas envolverla dentro de un elemento div con una altura fija y establecer su propiedad de desbordamiento enauto
. Aquí está el código modificado:“`{r setup, include=FALSE}
library(flexdashboard)
library(gt)
library(dplyr)
library(tidyr)
agregar estilos para el contenedor de la tabla
tags$head(tags$style(“#my-table-container {
height: 400px;
overflow: auto;
}”))
Esto creará un contenedor de tabla con una altura fija de
400px
y una barra de desplazamiento que te permitirá ver todo el contenido de la tabla. Puedes ajustar la altura según tus necesidades.Ten en cuenta que agregamos los estilos CSS dentro de la función
tags$head()
para incluirlos en la sección de encabezado HTML del cuadro de mando. Esta es la forma recomendada de agregar estilos personalizados en flexdashboard.