Я создал сайт, используя splitLayout, который размещает элементы по горизонтали, разделяя доступное горизонтальное пространство на несколько частей.Я использовал 'cellWidths = c ("1000px", "200px")', поэтому я получил элемент с шириной 1000px и второй элемент с шириной 200px.
Однако, что я на самом деле хочу, так это чтобы второй элемент точно помещался между правым полем первого элемента и правым полем окна браузера, чтобы при размере и / или форме окна браузераизменяется, ширина второго элемента корректируется соответственно.Я пробовал: 'cellWidths = c ("1000px", "calc (100vw-1000px)")', но, к сожалению, здесь нельзя использовать "calc".
Я думал об использовании CSS, включая что-то вроде 'style= "width:" calc (100vw-1000px) "'во втором элементе, но до сих пор я не добился успеха, пытаясь это сделать.
Полный код выглядит следующим образом:
library(shiny)
ui <- tagList(
splitLayout(
cellWidths = c("1000px", "200px"),
cellArgs = list(style = "padding: 6px; white-space: normal;"),
fluidPage(
style = "border: 1px solid silver; height: 627px;"
),
fluidPage(
style = "border: 1px solid silver; height: 627px",
p("Lorem ipsum dolor sit amet, ut alterum facilis disputationi vis, summo percipitur sed ea. Stet senserit persequeris at duo, vis atqui vituperata ex, et has omittam expetenda persequeris. Id usu causae meliore, dolorem lucilius perpetua id vim. Vim at homero timeam viderer, dicunt concludaturque ea eum. Tempor ceteros facilisi ei pro, ea tantas adipisci scribentur vix.")
)
)
)
server <- function(input, output, session) {}
shinyApp(ui = ui, server = server)
Есть предложения?