html - Shiny :侧边栏和 "sentence"之间的空格

Question

所以我刚刚在 Shinyapps 上部署了我的电影推荐，但我仍然想改变一件事。请看下面的图片。

因为我不想把“你可能也喜欢这个”放在另一个框中，我真的不知道如何在 html/css 格式中调整它。对我来说，它离侧边栏太近了，我只想在它和侧边栏之间留出一些空间。

我的代码:

ui <- shinyUI(dashboardPage(skin="blue",

                            dashboardHeader(title = "Movies"),
                            dashboardSidebar(
                              sidebarMenu( 
                                menuItem(
                                  list( 
                                    selectInput("select", label = h5("Select 1 movie you like"),
                                                choices = as.character(movies$title[1:length(unique(movies$movieId))]),
                                                selectize = TRUE,
                                                selected = "Toy Story (1995)"),
                                    submitButton("Done")
                                  )
                                )
                              )
                            ),


                            dashboardBody( 
                              includeCSS("data/custom.css"),
                              fluidRow(
                                box(
                                  width=3,
                                  height=400,
                                  status = "primary", 
                                  title = "introduction",
                                  textOutput("name1"),
                                  #br(),  
                                  imageOutput("myImage",height="300px")
                                  #valueBoxOutput("tableRatings1")

                                ),

                                box(
                                  width=8,
                                  height=400,
                                  status = "primary",
                                  title = "Plot",
                                  textOutput("des1"),
                                  br(),
                                  h4("Ratings"),
                                  br(),
                                  valueBoxOutput("tableRatings1")
                                 )
                               ),

                              fluidRow(
                                h4("You might also like this"),
                                box(
                                  width=2,
                                  height=220,
                                  status = "danger",
                                  imageOutput("myImage1",height="150px"),
                                  textOutput("myreco1")
                                  #textOutput("myrate1")
                                ),
                                box(
                                  width=2,
                                  height=220,
                                  status = "danger",
                                  imageOutput("myImage2",height="150px"),
                                  textOutput("myreco2")
                                  #textOutput("myrate2")
                                ),
                                box(
                                  width=2,
                                  height=220,
                                  status = "danger",
                                  imageOutput("myImage3",height="150px"),
                                  textOutput("myreco3")
                                  #textOutput("myrate3")
                                ),
                                box(
                                  width=2,
                                  height=220,
                                  status = "danger",
                                  imageOutput("myImage4",height="150px"),
                                  textOutput("myreco4")
                                  #textOutput("myrate4")
                                ),
                                box(
                                  width=2,
                                  height=220,
                                  status = "danger",
                                  imageOutput("myImage5",height="150px"),
                                  textOutput("myreco5")
                                  #textOutput("myrate5")
                                )
                              )

                            )

)
)   

顺便说一下，我的 Shinyapps 现在运行得很慢，我不知道为什么。它曾经运行得更快。而这个应用程序目前总共只需要 4 个小时。如果我使用免费计划，每个应用程序都有 25 小时，对吗？

Answer 1

HTML("<h4>&nbsp; &nbsp; &nbsp; You might also like this</h4>")