r - sheet - shiny showcase

Centrando una parcela dentro de un fluidRow en Shiny

Question

Tengo una FluidRow con un gráfico renderizado en una de las columnas. Me gustaría saber cómo centrar el trazado cuando he especificado manualmente el ancho del trazado mediante la función renderPlot ({create plot here}, width = ##) (por lo tanto, no ocupa todo el ancho de la columna) .

código ui.R:

setwd("C:/Users/Nate/Documents/R Working Directory/appFolder/example")
shinyUI(fluidPage(
titlePanel("Test"),
sidebarLayout(
sidebarPanel(
p(''stuff here'')
  ),
mainPanel(
tabsetPanel(id = ''tabs1'',
          tabPanel("main",
                   fluidRow(
                     column(8,
                            plotOutput(''plot1'')),
                     column(4,
                            p(''2nd column''))),
                   fluidRow(
                   p("2nd row of viewing area"))
                   ),

          tabPanel("second",
                   p("main viewing area")),
          tabPanel("third",
                          p(''main viewing area'')
                   )
))
)
))

código de server.R:

shinyServer(function(input, output, session) {
output$text1 = renderText({
paste("text output")
})
output$plot1 = renderPlot({
x = runif(10,0,10)
y = rnorm(10)
plot(x,y)
}, width = 300)
})

Answer 1

Podría usar align="center" como parte de su función plotOutput() . Así que tu ui.R quisiera esto:

ui.R

setwd("C:/Users/Nate/Documents/R Working Directory/appFolder/example")
shinyUI(fluidPage(
titlePanel("Test"),
sidebarLayout(
sidebarPanel(
p(''stuff here'')
  ),
mainPanel(
tabsetPanel(id = ''tabs1'',
          tabPanel("main",
                   fluidRow(
                     column(8,
                            plotOutput(''plot1'',align="center")),
                     column(4,
                            p(''2nd column''))),
                   fluidRow(
                   p("2nd row of viewing area"))
                   ),

          tabPanel("second",
               p("main viewing area")),
      tabPanel("third",
                      p(''main viewing area'')
                   )
))
)
))

Answer 2

align="center" se puede incluir dentro de la expresión de column (aunque no dentro de plotOutput ). p.ej

fluidRow(
  column(8, align="center",
    plotOutput(''plot1'')
  )
)