Вроде задача максимально простая, но я застрял. Как этот график

Question

Вроде задача максимально простая, но я застрял. Как этот график

выровнять по центру экрана? Column пробовал, div пробовал... library(shiny)
library(glue)
library(lubridate)

ui <- fluidPage(

# Application title
titlePanel(title = glue("Статус на {today()}")),

fluidPage(align = "center",
column(6, align = "center", plotlyOutput("bullet", height = "100px"))
)
)

server <- function(input, output, session) {

output$bullet <- renderPlotly({
fig <- plot_ly(
type = "indicator",
mode = "number+gauge+delta",
gauge = list(shape = "bullet"),
delta = list(reference = 300),
value = 220,
domain = list(x = c(0, 1), y = c(0, 1)),
title= list(text = "Profit"),
height = 150) %>%
layout(
autosize = TRUE)
})
}

# Run the application
shinyApp(ui = ui, server = server)

#programming #r #russian

0

29.10.2020

1 ответов

18 просмотров

Байкулов Антон · Accepted Answer

Байкулов Антон

А у fluidPage вообще есть align? Мбыть в fluidRow обернуть и потом align?

0

29.10.2020

169 похожих чатов

Вроде задача максимально простая, но я застрял. Как этот график

1 ответов

Похожие вопросы