У меня есть набор свернутых коробок в откидной коробке в Shiny Dashboardplus. Когда я раскрываю поле, я хочу, чтобы страница и флипбокс соответствовали содержанию. Каков наилучший способ сделать это? Необходимо сделать две вещи:
- Установить высоту откидной коробки, чтобы соответствовать содержимому свернутой рамки
- Установить высоту страницы, чтобы соответствовать содержимому свернутой рамки.
Ниже приведен рабочий пример проблемы.
ui.R
library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
dbHeader <- dashboardHeader()
dashboardPage(title = "Sample",skin = "blue",
dbHeader,
dashboardSidebar(
sidebarMenu(id='tabs',
menuItem("Introduction", icon = icon("list-ul"), tabName="intro" )
)),
dashboardBody(
tabItems(
tabItem(tabName = "intro",
flipBox(
id = 1,
main_img ="https://image.flaticon.com/icons/svg/2779/2779923.svg",
header_img = "https://image.flaticon.com/icons/svg/2663/2663820.svg",
front_title = "Sample",
back_title = "Sample",
fluidRow(
column(width=10,offset=1,align='left',
box(width=12,
"Lorem ipsum dolor sit amet, consectetur adipiscing elit. Praesent massa felis, posuere a mauris in, imperdiet auctor ipsum. In eros risus, elementum sed accumsan nec, tincidunt cursus nisi. Donec fringilla, lorem in consectetur commodo, risus urna molestie risus, vitae viverra tellus arcu ac ligula. Pellentesque condimentum ut lectus quis pulvinar. Donec ornare turpis velit, vitae hendrerit sem rutrum sed. Proin pharetra fringilla semper. Nulla vehicula gravida sem, ut posuere tellus sollicitudin sed. Curabitur risus sapien, scelerisque vel semper ut, congue ac odio. Sed bibendum quis lacus nec condimentum. Etiam quis facilisis urna. Nunc dignissim nisl sem, eu luctus turpis gravida non. Sed consectetur turpis augue, vel iaculis nibh dictum placerat. ")
)
)
,
back_content = tagList(
column(
width = 12,
align = "left",
widgetUserBox(
title = "Sample",
subtitle = "Sample",
width = 3,
type = 2,
src = "https://image.flaticon.com/icons/svg/2783/2783322.svg",
color = "blue",
"Lorem ipsum dolor sit amet, consectetur adipiscing elit. Praesent massa felis,
posuere a mauris in, imperdiet auctor ipsum. In eros risus, elementum sed
accumsan nec, tincidunt cursus nisi. Donec fringilla, lorem in consectetur commodo,
risus urna molestie risus, vitae viverra tellus arcu ac ligula.Pellentesque condimentum
ut lectus quis pulvinar. Donec ornare turpis velit, vitae hendrerit sem rutrum sed.
Proin pharetra fringilla semper. Nulla vehicula gravida sem, ut posuere tellus sollicitudin sed.
Curabitur risus sapien, scelerisque vel semper ut, congue ac odio. Sed bibendum quis lacus nec condimentum.
Etiam quis facilisis urna. Nunc dignissim nisl sem, eu luctus turpis gravida non. Sed consectetur turpis augue,
vel iaculis nibh dictum placerat.
)
)
)
)
)
)
))
server.r
library(shiny)
library(shinydashboardPlus)
function(input, output, session){
}