Makiyo Makiyo - 8 months ago 44
HTML Question

Shiny: spaces between sidebar and "sentence"

So I just deployed my movie recommendation on Shinyapps, but there's still one thing I want to change. Please see the pictures below. enter image description here

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?

Answer Source
HTML("<h4>&nbsp; &nbsp; &nbsp; You might also like this</h4>")
Recommended from our users: Dynamic Network Monitoring from WhatsUp Gold from IPSwitch. Free Download