inst/shiny/doserate/Ui.R

In tzerk/gammaSpec: Analyse Gamma Spectra of NaI(Tl) Scintillation Radiation Detectors

library(shiny)

# Use a fluid Bootstrap layout
fluidPage(    
  
  # Give the page a title
  titlePanel(NULL),
  
  # Generate a row with a sidebar
  sidebarLayout(      
    
    # Define the sidebar with one input
    sidebarPanel(
      tags$div(align = "center",
               tags$p(tags$b("Estimate the in-situ gamma dose rate"))
      ),
      hr(),
      fileInput(inputId = "file",
                multiple = FALSE, 
                label = "Upload SPE file", 
                placeholder = "Upload a file...",
                accept=".spe, text/spe"
      ),
      tags$p(HTML("<span style='color:grey;'>Please upload SPE files exported from the ORTEC applications
             'MAESTRO Mulichannel Analyzer Emulation' or 'GammaVision Gamma Spectroscopy'</span>")),
      hr(),
      sliderInput(inputId = "energy", label = "Integrated energy range (keV)", 
                  min = 0, max = 5000, value = c(500, 2000), step = 10),
      tags$p(HTML("<span style='color:grey;'>Set the lower and upper integration limits of the photon energy (keV).</span>")),
      checkboxInput(inputId = "bg", label = "Background correction", value = TRUE),
      tags$p(HTML("<span style='color:grey;'>Check if a background signal (included in the package) should be subtracted
             from both the measured and the calibration spectrum.</span>")),
      hr(),
      actionButton(inputId = "btn", label = "Calculate", icon = icon("rocket"), class = "btn btn-primary"),
      br(),
      br(),
      htmlOutput("console")
    ),
    
    # Create a spot for the barplot
    mainPanel(
      tabsetPanel(
        tabPanel("Plot",
                 plotOutput("plot", height = "1000px")
        ),
        tabPanel("Info",
                 tags$br(),
                 tags$p(HTML("Please see the Vignettes of the <b>R</b> package <code>gammaSpec</code>
                             (see <code>vignette(topic = 'theory', package = 'gammaSpec')</code>)"),
                        tags$br(), tags$br(),
                        tags$a(href = "https://github.com/tzerk/gammaSpec", 
                               "Package source code on GitHub", target = "_blank"),
                        tags$br(),
                        tags$a(href = "https://github.com/tzerk/gammaSpec/tree/master/inst/shiny/doserate", 
                               "Shiny app source code on GitHub", target = "_blank"),
                        tags$hr(),
                        tags$p(tags$b("Author:"), "Christoph Burow")
                 )
        )
      )
    )
    
  )
)