Data-Summariser/ui.R at master · adhok/Data-Summariser · 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
library(shiny)
library(shinyjs)
library(V8)
appCSS <- "
#loading {
  position: fixed;
left: 50%;
top: 50%;
z-index: 1;
width: 150px;
height: 150px;
margin: -75px 0 0 -75px;
border: 16px solid #f3f3f3;
border-radius: 50%;
border-top: 16px solid #3498db;
width: 120px;
height: 120px;
-webkit-animation: spin 2s linear infinite;
animation: spin 2s linear infinite;
}
@-webkit-keyframes spin {
0% { -webkit-transform: rotate(0deg); }
100% { -webkit-transform: rotate(360deg); }
}
@keyframes spin {
0% { transform: rotate(0deg); }
100% { transform: rotate(360deg); }
}
"


jsfile <- "getdata.js"
cssfile <- "style.css"
js_scroll_file <-'scroll.js'
ui <- shinyUI(
  fluidPage(

    tags$head(tags$link(rel="stylesheet", href=cssfile, type="text/css"),
              tags$script(src=jsfile),
              tags$script(src=js_scroll_file)),
    sidebarLayout(

      sidebarPanel(
        fluidRow(
          h5("Drop Datasets in the box below"),
          div(class="col-xs-12", id="drop-area", ondragover="dragOver(event)",
              ondrop="dropData(event)")),width=2

      ),
      mainPanel(
        useShinyjs(),
        inlineCSS(appCSS),
        shinyjs::extendShinyjs(text = "shinyjs.refresh = function() { location.reload(); }"),


        hidden(div(id='loading')),

          hidden(div(style="width=1000px",
            id='app-content',

          fluidRow(HTML('<h1> Welcome to the Data Summarizer </h1>'),actionButton("refresh", "Refresh to enter new data")),
        fluidRow(uiOutput("table_summary")),
        uiOutput('tables'),

        fluidRow(column(width=4,HTML("<h3>Scatter Plot</h3>"),uiOutput('num_buttons_1'),uiOutput('num_buttons_2'),uiOutput('grouped_ungrouped')),


        column(width=4,HTML('<h3>Bar and Box Plots</h3>'),uiOutput('factor_button'),
                                                                                            uiOutput('numeric_input'),
                                                                                            uiOutput('output_type')
                                                                                            ),
        column(width=4,HTML('<h3>Ring Plots</h3>'),uiOutput('factor_button_for_ring_chart'))),


       uiOutput("plots_first_row")
        #uiOutput('plots_second_row')

      )
          )

      )
    )

  )
)