ArduinoLoggerShinyApp/ui.R at master · med-material/ArduinoLoggerShinyApp · 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
library(shiny)
library(plotly)
library(shinyjs)

ui <- fluidPage(
  includeCSS("custom.css"),
  useShinyjs(),
  fluidRow(
    column(8, titlePanel("Arduino Logger Visualizer (Cohort 2021)")),
    column(
      4,
      column(1, style = "margin-top : 20px; text-align: right;", icon("user", class = "fa-2x", lib = "font-awesome")),
      column(11,
        style = "margin-top : 20px; text-align: center;",
        actionButton("CsvButton","Upload CSV"),
        selectInput("emailSelect", NULL, choices = c("Press Upload CSV to Upload Data." = -1))
      )
    )
  ),
  fluidRow(
    column(12, checkboxGroupInput("pidChooser", label = "Press Upload CSV to Upload Data.", choices = NULL, inline = TRUE))
  ),
  # RT part------
  tabsetPanel(
    id = "subjectChooser", type = "tabs",
    tabPanel(
      value = "reactiontime", id = "reactPan", strong("ReactionTime"),
      navlistPanel(
        widths = c(4, 8),
        "Choose Visualization:",
        tabPanel(
          "Reaction Time per Trial",
          plotlyOutput("rtTrialPlot"),
          tags$div(class = "vizcontrols-explainer")
        ),
        tabPanel(
          "Reaction Time based on Intensity",
          plotlyOutput("rtIntensityPlot"),
          tags$div(class = "vizcontrols-explainer")
        ),
        tabPanel(
          "Reaction Time density plots",
          plotlyOutput("rtDensityPlot"),
          tags$div(class = "vizcontrols-explainer")
        )
      )
    ),
    # synch panel -----------
    tabPanel(
      value = "synch", id = "synchPan", strong("SynchTime"),
      navlistPanel(
        widths = c(4, 8),
        "Choose Visualization:",
        tabPanel(
          "Synchronization based on Intensity",
          plotlyOutput("synchViolinPlot"),
          tags$div(class = "vizcontrols-explainer"),
          p("Filter data:"),
          selectInput("Param", NULL, choices = c(levels(dfsynch$Comment), "NA"))
        ),
        tabPanel(
          "Synchronization based on MusicalAbility",
          plotlyOutput("synchAbilityByMusicalityPlot"),
          tags$div(class = "vizcontrols-explainer")
          # selectInput("Param", NULL, choices = c(levels(dfsynch$Comment),"NA")),
        ),
        tabPanel(
          "Getting into synch on MusicalAbility",
          # plotlyOutput("GettingIntoSynchByMusicalityPlot"),
          plotlyOutput("GettingIntoSynchByMusicalityPlotPower"),
          tags$div(class = "vizcontrols-explainer")
          # textOutput("The grey band is a moving aver")
          # plot("The grey band is a moving aver")
        )
      )
    ),
    # EDAIBIserial panel ----------
    tabPanel(
      value = "EDAIBISerial", strong("Physiological Data"),
      plotlyOutput("physioIBIplot"),

      tableOutput("HRVtable"),
      plotOutput("powerBandPlot"),
      plotOutput("poincarePlot"),
      plotlyOutput("EDAplot"),
      plotlyOutput("EDAplotBW"),

      # p()
      tags$div(class = "vizcontrols-explainer")
    ),
    tags$footer()
  )
)