inst/shiny/ui.R

In powellcenter-soilcarbon/soilcarbon: Tools to Analyze Soil Carbon Database Created by Powell Center Working Group and Max Planck Institute for Biogeochemistry

library(soilcarbon)
library(ggplot2)


shinyUI(fluidPage(

  theme = "bootstrap_simplex.css",

  # Application title
  headerPanel("Powell Center soilcarbon workbench"),

  sidebarPanel(

  conditionalPanel(condition="input.conditionedPanels==1",
                   h3("Template file"),
                   h4("This is the template file contained in the version that you are working with now"),
                   downloadButton("download_template", "Download soilcarbon Template file\n"),
                   h4("Tips for filling out template file:"),
                   HTML('Check out the template info <a href="https://powellcenter-soilcarbon.github.io/soilcarbon/site_files/Template_info.html" target="_blank">here</a>.')
              ),
  conditionalPanel(condition="input.conditionedPanels==2",
                   radioButtons("presets", label = h3("Preset plots:"),
                                choices = list("Some layer data" = 1, "Some fraction data" = 2),
                                selected = 1),
                   fluidRow(column(6, selectInput("y_var", "Y Variable:",
                                                  list("None (histogram)" = "NULL",
                                                       "Top of layer" = "layer_top",
                                                       "Bottom of layer" = "layer_bot",
                                                       "C14 (layer)" = "X14c",
                                                       "C14 (fraction)" = "f_14c",
                                                       "Total Carbon (layer)" = "c_tot",
                                                       "Total Carbon (fraction)" = "f_c_tot",
                                                       "Total Nitrogen" = "n_tot",
                                                       "Bulk Density" = "bd_tot",
                                                       "MAP" = "p_MAP",
                                                       "MAT" = "p_MAT"
                                                  ),
                                                  selected = "layer_bot")),
                            column(6, selectInput("x_var", "X Variable:",
                                                  list("C14 (layer)" = "X14c",
                                                       "Top of layer" = "layer_top",
                                                       "Bottom of layer" = "layer_bot",
                                                       "C14 (layer)" = "X14c",
                                                       "C14 (fraction)" = "f_14c",
                                                       "Total Carbon (layer)" = "c_tot",
                                                       "Total Carbon (fraction)" = "f_c_tot",
                                                       "Total Nitrogen" = "n_tot",
                                                       "Bulk Density" = "bd_tot",
                                                       "MAP" = "p_MAP",
                                                       "MAT" = "p_MAT"
                                                  ),
                                                  selected = "bd_tot"))),

                   fluidRow(column(7,   selectInput("col_facet_var", "Panel Variable:",
                                                    list("None" = "NULL",
                                                         "Top of layer" = "layer_top",
                                                         "Bottom of layer" = "layer_bot",
                                                         "C14 (layer)" = "X14c",
                                                         "C14 (fraction)" = "f_14c",
                                                         "Total Carbon (layer)" = "c_tot",
                                                         "Total Carbon (fraction)" = "f_c_tot",
                                                         "Total Nitrogen" = "n_tot",
                                                         "Bulk Density" = "bd_tot",
                                                         "MAP" = "p_MAP",
                                                         "MAT" = "p_MAT"
                                                    ),
                                                    selected = "p_MAP")),
                            column(5, textInput("col_facet_thresh", "threshold", value = "500"))),

                   fluidRow(column(7,   selectInput("row_facet_var", "Panel Variable 2:",
                                                    list("None" = "NULL",
                                                         "Top of layer" = "layer_top",
                                                         "Bottom of layer" = "layer_bot",
                                                         "C14 (layer)" = "X14c",
                                                         "C14 (fraction)" = "f_14c",
                                                         "Total Carbon (layer)" = "c_tot",
                                                         "Total Carbon (fraction)" = "f_c_tot",
                                                         "Total Nitrogen" = "n_tot",
                                                         "Bulk Density" = "bd_tot",
                                                         "MAP" = "p_MAP",
                                                         "MAT" = "p_MAT"
                                                    ),
                                                    selected = "p_MAT")),
                            column(5, textInput("row_facet_thresh", "threshold", value = "5"))),

                   fluidRow(column(7,  selectInput("col_var", "Color Variable:",
                                                   list("None" = "NULL",
                                                        "Fraction Property" = "f_property",
                                                        "Top of layer" = "layer_top",
                                                        "Bottom of layer" = "layer_bot",
                                                        "C14 (layer)" = "X14c",
                                                        "C14 (fraction)" = "f_14c",
                                                        "Total Carbon (layer)" = "c_tot",
                                                        "Total Carbon (fraction)" = "f_c_tot",
                                                        "Total Nitrogen" = "n_tot",
                                                        "Bulk Density" = "bd_tot",
                                                        "MAP" = "p_MAP",
                                                        "MAT" = "p_MAT"
                                                   ),
                                                   selected = "p_MAT")),
                            column(5, sliderInput("alpha", "transparency", min = 0,
                                                  max = 1, value = 0.7))),

                   selectInput("size_var", "Size Variable:",
                               list("None" = "NULL",
                                    "C14" = "X14c",
                                    "Total Carbon" = "c_tot",
                                    "Total Nitrogen" = "n_tot",
                                    "Bulk Density" = "bd_tot",
                                    "MAP" = "p_MAP",
                                    "MAT" = "p_MAT"
                               ))


  )),

  mainPanel(tabsetPanel(

    tabPanel("Add data to database", value=1 , h3("Quality Control Check"),
             helpText("To add a dataset to the soilcarbon database, the data must pass a quality control check without any warning messages, for questions email Grey (greymonroe@gmail.com)"),
             fileInput("upload", label = "Upload data"),
             conditionalPanel(
               condition = "output.fileUploaded",
               downloadButton("download_dataqc", "download quality control report"),
               helpText("If the quality control report does not have any warning messages, you may submit the data by emailing it to Grey (greymonroe@gmail.com). Thanks!")
             )
             ), tabPanel("Database", plotOutput("plot"), value=2),
    id = "conditionedPanels"
      )
    ),
  tags$script('
        Shiny.addCustomMessageHandler("resetFileInputHandler", function(x) {
              var el = $("#" + x);
              el.replaceWith(el = el.clone(true));
              var id = "#" + x + "_progress";
              $(id).css("visibility", "hidden");
              });
              ')
))