data-courses/ui.R at master · TheDataLabScotland/data-courses · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
library(shiny)
library(DT)
source("./dropdownButton.R")
source("./tags.R")
shinyUI(
  fluidPage(theme = "bootstrap.css",
            title = "Data Science Courses",
    navbarPage(
      title = div(includeHTML("./www/TDL_logo.html"), "Scotland Data Science Courses"),
      tabPanel('MSc',
               fluidRow(
                 column(1,
                        dropdownButton(label = "Tools", status = "default", width = 80,
                                       actionButton("clear.tools", "Clear", icon("close"),
                                                    style="color: #fff; background-color: #e90503; border-color: #e90503"),

                                       actionButton("all.tools", "All", icon("check-square-o"),
                                                    style="color: #fff; background-color: #389005; border-color: #389005"),
                                       checkboxGroupInput(inputId = "languages",
                                                          label = "Choose",
                                                          choices = language.list,
                                                          selected	= language.list)
                        )
                 )

               ),
               DT::dataTableOutput('msc.coursesTable')
      ),
      tabPanel('BSc',
               fluidRow(
                 helpText("NB: Courses may not be purely Data Science related, but will teach skills useful for a future MSc")
               ),
               DT::dataTableOutput('bsc.coursesTable')
      ),
      tabPanel('Scholarships',
               fluidRow(
                 DT::dataTableOutput('schol')
               )
      )
    )
  )

)