I am unable to improve the following things :
- Have the text in a row by itself(The Select the modules... one)
- The box and text are not aligned on the same line.
- The checkboxes on the top line are slightly truncated.(the remaining is encircled below)
- The labels(a to j) need to be in white bold text.
This is what I have tried so far :
code for checkBox :
controls <-
list(tags$div(align = 'left',
class = 'multicol',
checkboxGroupInput(inputId = 'modules',
label = my_div("Step 1 : Select the modules to be executed", strong_em = "strong", 22, "left"),
choices = c(process_names),
selected = "",
inline = FALSE)))
code to get multicolumn, larger boxes etc
tags$style(type='text/css',
"label {font-size: 22px; } #controls the text of check-boxes
input[type=checkbox] {transform: scale(2);}#controls the size of checkbox
.multicol {font-size:22px; height: 150px;
-webkit-column-count: 4;
-moz-column-count: 4;
column-count: 4; -moz-column-fill: auto;
-column-fill: auto;} #increases the size of checkboxes
div.checkbox {margin-top: 10px;color:'#FFFFFF';font-weight: bold;}
")
the main layout of code :
shinyUI(fluidPage(
# here the tags$style appear,
sidebarLayout(
position = "left",
sidebarPanel(controls)
mainPanel()
))
Aucun commentaire:
Enregistrer un commentaire