Shiny/ui.R at master · jcocao/Shiny · 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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112

dashboardPage(
  title = 'Pesquisa Jornada Financeira',
  header = dashboardHeader(
    titleWidth='100%',
    title = span(
      tags$img(src="ban_1024x152.jpg", height = 135 , width = 880)
    ),
    dropdownMenuOutput("helpMenu")
  ),dashboardSidebar(sidebarMenu(
    selectInput("slct3", "Selecione a Abertura", choices = c("","Perguntas", "Perfil financeiro")),
    conditionalPanel(condition = "input.slct3 == 'Perguntas'",
                     selectInput("slct4", "", c(""))),
    conditionalPanel(condition = "input.slct4 == 'Questão 1.1' |
                                  input.slct4 == 'Questão 1.2' |
                                  input.slct4 == 'Questão 1.3' |
                                  input.slct4 == 'Questão 1.4' |
                                  input.slct4 == 'Questão 2.1' |
                                  input.slct4 == 'Questão 2.2' |
                                  input.slct4 == 'Questão 2.3' |
                                  input.slct4 == 'Questão 2.4' |
                                  input.slct4 == 'Questão 2.5' |
                                  input.slct4 == 'Questão 2.5a' |
                                  input.slct4 == 'Questão 2.6' |
                                  input.slct4 == 'Questão 2.7' |
                                  input.slct4 == 'Questão 2.8' |
                                  input.slct4 == 'Questão 2.9' |
                                  input.slct4 == 'Questão 2.10' |
                                  input.slct4 == 'Questão 2.11' |
                                  input.slct4 == 'Questão 3.1' |
                                  input.slct4 == 'Questão 3.2' |
                                  input.slct4 == 'Questão 3.3' |
                                  input.slct4 == 'Questão 3.4' |
                                  input.slct3 == 'Perfil financeiro'",
                     selectInput("slct5", "", c("")))
    )),
  body = dashboardBody(#uiOutput("qst2"),

    uiOutput("saida_ui"),
    # fluidRow(column(width = 12, uiOutput("qst2")),
    #          column(width = 1, offset = 0, textOutput("txt"))),
    tags$style(type="text/css", "
/*    Move everything below the header */
    .content-wrapper {
        margin-top: 0px;
    }
    .content {
        padding-top: 100px;
    }
    .shiny-html-output {
     font-weight: 300;
     font-size: 20px;
     font-family: 'Roboto', sans-serif;

    }
/*    Format the title/subtitle text */
    .title-box {
        position: absolute;
        text-align: center;
        top: 0%;
        left: 0%;
        transform:translate(0%, 0%);
    }
    @media (max-width: 0px) {
        .title-box {
            position: absolute;
            text-align: center;
            top: 0%;
            left: 0%;
            transform:translate(0%, 0%);
        }
    }
    @media (max-width: 0px) {
        .primary-title {
            font-size: 1.1em;
        }
        .primary-subtitle {
            font-size: 1em;
        }
    }
/*    Make the image taller */
    .main-header .logo {
        height: 130px;
    }
/*    Override the default media-specific settings */
    @media (max-width: 5000px) {
        .main-header {
            padding: 0 0;
            position: relative;
        }
        .main-header .logo,
        .main-header .navbar {
            width: 100%;
            float: none;
        }
        .main-header .navbar {
            margin: 0;
        }
        .main-header .navbar-custom-menu {
            float: right;
        }
    }
/*    Move the sidebar down */
    .main-sidebar {
        position: absolute;
    }
    .left-side, .main-sidebar {
        padding-top: 183px;
    }"
    )
  )
)