CSV-Data-Visualizer/ui.R at main · mtillman14/CSV-Data-Visualizer · 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
library(shiny)
library(shinyjs)
library(plotly)
library(DT)

ui <- fluidPage(
  useShinyjs(),  # Initialize shinyjs
  tags$head(
    tags$style(HTML("
      .sidebar {
        max-height: 90vh;
        overflow-y: auto;
      }
      .main-panel, .tab-content, .tab-pane, .plotly {
        height: 100vh;
      }
      .plotly {
        width: 100%;
      }
      .fixed-buttons {
        position: absolute;
        bottom: 10px;
        width: 100%;
      }
      .data-table-container {
        max-height: 70vh; /* Adjust this value as needed */
        overflow-y: auto;
        overflow-x: auto;
      }
    "))
  ),
  sidebarLayout(
    sidebarPanel(
      class = "sidebar",
      width = 2,
      selectInput(
        inputId = "outcomeMeasureDropDown",
        label = "Variable to Plot",
        choices = NULL # Initially no choices
      ),
      tabsetPanel(
        tabPanel("Plot",
          checkboxGroupInput(
            inputId = "dataReductionFactorsCheckboxGroup",
            label = "Average Over Factors",
            choices = NULL
            ),
            selectInput(
              inputId = "tickFactorsselectInput",
              label = "XTick Factor Order",
              choices = NULL
            ),
            selectInput(
              inputId = "colorFactorSelectInput",
              label = "Color Factor",
              choices = NULL
            ),
            checkboxGroupInput(
              inputId = "facetFactorCheckboxGroup",
              label = "Facet Factors",
              choices = NULL
            )
            # checkboxGroupInput(
            #     inputId = "plotReplicateCheckboxGroup",
            #     label = "Plot Replication Factors",
            #     choices = NULL
            # )
        ),
        tabPanel("Stats",
          # Add content for Stats tab here
        )
      ),
      div(
        class = "fixed-buttons",
        actionButton("browseFileButton", "Browse File"),
        actionButton("runPlotButton", "Run Plot")
      )
    ),
    mainPanel(
      width = 10,
      textOutput("filePath"),
      tabsetPanel(
        tabPanel("Data Table",
          div(class = "data-table-container", DTOutput("dataTable"))  # Add DTOutput for the data table inside a scrollable div
        ),
        tabPanel("Grouped",
          plotlyOutput("plot", height = "90%")
        ),
        tabPanel("Relations",
          # Add content for Relations tab here
        )
      ),
      fluidRow(
        column(6, actionButton("exportButton", "Export")),
        column(6, actionButton("settingsButton", "Settings"))
      )
    )
  )
)