inst/shinyApp/ui.R

In dloewenstein/ewavesPDFshiny: Shiny App For Analysis Of Diastolic Function Using The Parameterized Diastolic Filling (PDF) Method

library(shiny)
library(shinydashboard)
library(dplyr)
library(ggplot2)
library(plotly)
library(purrr)
library(ewavesPDFshiny)
library(DT)
library(tidyr)

shiny_ui <-
    dashboardPage(
        skin = "blue",
        title = "Echo E-waves",
        sidebar = dashboardSidebar(disable = TRUE),
        header = dashboardHeader(title = "Echo E-Waves parameterized diastolic filling method"),
        body = dashboardBody(
            tags$head(
                tags$link(rel = "icon", type = "image/x-icon", href = readLines("bookmark_icon.txt")),
                includeScript(system.file("java", "googleanalytics.js", package = "ewavesPDFshiny"))
            ),
            tags$script('
                                                   $(document).on("keydown", function (e) {
                                                                      Shiny.setInputValue("enter", e.which);
});
                                                   '),
            tags$script(
                '$(document).on("keydown", function () {
                                                               var logical_var = $("input#epeak_input").is(":focus");
                                                               Shiny.setInputValue("epeak_focus",logical_var);})'
            ),
            tags$script(
                'Shiny.addCustomMessageHandler("refocus",
                                                   function(NULL) {
                                                       document.getElementById("at_input").select();
                                                       document.getElementById("at_input").focus();
                                                   });'
            ),
            tags$style(HTML("
                                  input[type=number] {
                                      -moz-appearance:textfield;
                                  }
                                  input[type=number]::{
                                      -moz-appearance:textfield;
                                  }
                                  input[type=number]::-webkit-outer-spin-button,
                                  input[type=number]::-webkit-inner-spin-button {
                                      -webkit-appearance: none;
                                      margin: 0;
                                  }
                                  ")),
            fluidRow(
                box(width  = 8,
                    title  = "Results",
                    status = "primary",
                    solidHeader = TRUE,
                    splitLayout(
                        cellWidths = c(50, 50, 80, 300),
                        numericInput(
                            inputId = "at_input",
                            label   = "AT [ms]",
                            value   = NA,
                            min     = 10,
                            width   = '100'
                        ),
                        numericInput(
                            inputId = "dt_input",
                            label   = "DT [ms]",
                            value   = NA,
                            min     = 10,
                            width   = '100'
                        ),
                        numericInput(
                            inputId = "epeak_input",
                            label   = "Epeak [m/s]",
                            value   = NA,
                            min     = 0.1,
                            width   = '100'
                        ),
                        textOutput("messages")
                    ),
                    div(style = 'overflow-x: auto', # Auto adds scrollbar for table
                        DT::dataTableOutput("dataview")
                    ),
                    actionButton(
                        inputId = "delete",
                        label = "Delete selected",
                        icon = icon("trash")
                    )
                )
            ),
            fluidRow(
                box(width=6,
                    title="Lineplot",
                    status="warning",
                    solidHeader=TRUE,
                    collapsible=TRUE,
                    plotlyOutput("velocityplot")
                ),
                box(width=6,
                    title="Scatterplot",
                    status="warning",
                    solidHeader=TRUE,
                    collapsible=TRUE,
                    plotlyOutput("scatterplot")
                )
            )
        )
    )