данный скрипт генерирует простой график гистограммы и ползунок в двух полях. Я хочу уменьшить пространство между двумя полями, а также между их крайними границами с краями экрана. Пожалуйста, помогите и спасибо. снимок графиков
## app.R ##
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "Basic dashboard"),
dashboardSidebar(
width = 0
),
dashboardBody(
# Boxes need to be put in a row (or column)
fluidRow(
box(title = "Activity Frequency", status = "primary",height = "520",
solidHeader = T,
plotOutput("plot1")),
box(title = "Activity Frequency", status = "primary",height = "520",
solidHeader = T,
sliderInput("slider", "Number of observations:", 1, 100, 50))
)
)
)
server <- function(input, output) {
set.seed(122)
histdata <- rnorm(500)
output$plot1 <- renderPlot({
data <- histdata[seq_len(input$slider)]
hist(data)
})
}
shinyApp(ui, server)
tags$head(tags$style(HTML("div.col-sm-6 {padding:1px}"))),
вdashboardBody
. - person lukeA   schedule 09.09.2017