Есть ли способ центрировать R-график внутри tabPanel в блестящем?

Question

Я работаю над блестящим приложением, и, как я его отформатировал, сюжеты слишком широки. Я сократил их с аргументом width, поэтому они выглядят разумно, но я не могу понять, как центрировать их в панели вкладок (очевидно, plotOutput не принимает выравнивающий аргумент).

tabsetPanel( 
    tabPanel("Plot1", plotOutput("plot1", width="60%")), 
    tabPanel("Plot2", plotOutput("plot2", width="60%")) 
    ) 

Answer 1

Я не знаю ни одного блестящего конкретного способа, но вы всегда можете использовать CSS для создания выходных изображений. Просто добавьте tags$style со следующим содержанием в пользовательском интерфейсе:

"#plot1 img, #plot2 img { 
    width: 60%; 
    display: block; 
    margin-left: auto; 
    margin-right: auto; 
}" 

и удалить width="60%" из plotOutput. Исключая width, это всего лишь класс Bootstrap center-block. Минимальное определение интерфейса может выглядеть следующим образом:

shinyUI(bootstrapPage(
    tags$head(tags$style(
     type="text/css", 
     "#plot1 img, #plot2 img { 
      width: 60%; 
      display: block; 
      margin-left: auto; 
      margin-right: auto; 
     }" 
    )), 
    tabsetPanel(
     tabPanel("Plot1", plotOutput("plot1")), 
     tabPanel("Plot2", plotOutput("plot2")) 
    ) 
))