So I just deployed my movie recommendation on Shinyapps, but there's still one thing I want to change. Please see the pictures below. 
Since I didn't want to put "You might also like this" in another box, I don't really know how to adjust it in html/css format. To me, it's too close to the sidebar, I just want to make some spaces between it and the sidebar.
My code:
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")
)
)
)
)
)
By the way, my shinyapps is running very slow now, I am not sure why. It used to run faster. And this application just costs total 4 hours at the moment. If I use free plan, every application have 25 hours right?