From 4471628c29490ac2a2cd3d7711f9c6326cb2d08a Mon Sep 17 00:00:00 2001 From: Erik Leppo Date: Fri, 18 Oct 2024 09:57:31 -0400 Subject: [PATCH] v2.0.7.9034 * refactor: Add error message for bad files in miniDOT concatenate in Shiny app --- DESCRIPTION | 7 +- NEWS | 13 +- NEWS.md | 13 +- NEWS.rmd | 9 +- .../ContDataQC/external/tab_3c_QCThresh.R | 2 +- inst/shiny-examples/ContDataQC/global.R | 3 +- .../ContDataQC/rmd/App_1b_TestData.rmd | 2 +- inst/shiny-examples/ContDataQC/server.R | 23 + inst/shiny-examples/ContDataQC/ui.R | 964 +++++++++--------- .../www/RMD_HTML/App_1b_TestData.html | 6 +- 10 files changed, 543 insertions(+), 499 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 6ea7da9..bb2dec8 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: ContDataQC Title: Quality Control (QC) of Continous Monitoring Data -Version: 2.0.7.9033 +Version: 2.0.7.9034 Authors@R: c( person("Erik W", "Leppo", email="Erik.Leppo@tetratech.com",role=c("aut","cre")), person("Ann","Roseberry Lincoln", role="ctb"), @@ -36,11 +36,12 @@ Suggests: StreamThermal, XLConnect, zip, - testthat (>= 3.0.0) + testthat (>= 3.0.0), + shinyalert VignetteBuilder: knitr Remotes: tsangyp/StreamThermal, jasonelaw/iha StagedInstall: no -RoxygenNote: 7.3.1 +RoxygenNote: 7.3.2 Config/testthat/edition: 3 diff --git a/NEWS b/NEWS index c9432be..15c3625 100644 --- a/NEWS +++ b/NEWS @@ -3,11 +3,18 @@ NEWS-ContDataQC - #> Last Update: 2024-06-26 15:12:12.624955 + #> Last Update: 2024-10-18 09:53:59.053843 # Version History -## v2.0.7.9032 +## v2.0.7.9034 + +2024-10-18 + +- refactor: Add error message for bad files in miniDOT concatenate in + Shiny app + +## v2.0.7.9033 2024-06-26 @@ -29,7 +36,7 @@ NEWS-ContDataQC - Config_Template.zip - Config.R -## v2.0.7.9031 +## v2.0.7.9032 2024-03-01 diff --git a/NEWS.md b/NEWS.md index c9432be..15c3625 100644 --- a/NEWS.md +++ b/NEWS.md @@ -3,11 +3,18 @@ NEWS-ContDataQC - #> Last Update: 2024-06-26 15:12:12.624955 + #> Last Update: 2024-10-18 09:53:59.053843 # Version History -## v2.0.7.9032 +## v2.0.7.9034 + +2024-10-18 + +- refactor: Add error message for bad files in miniDOT concatenate in + Shiny app + +## v2.0.7.9033 2024-06-26 @@ -29,7 +36,7 @@ NEWS-ContDataQC - Config_Template.zip - Config.R -## v2.0.7.9031 +## v2.0.7.9032 2024-03-01 diff --git a/NEWS.rmd b/NEWS.rmd index 7596cc2..6d03fc8 100644 --- a/NEWS.rmd +++ b/NEWS.rmd @@ -21,7 +21,12 @@ cat(paste0("Last Update: ",Sys.time())) # Version History -## v2.0.7.9032 +## v2.0.7.9034 +2024-10-18 + +* refactor: Add error message for bad files in miniDOT concatenate in Shiny app + +## v2.0.7.9033 2024-06-26 * fix: Update minidoct_cat() function to display midnight values, Issue #163 @@ -41,7 +46,7 @@ cat(paste0("Last Update: ",Sys.time())) - Config_Template.zip - Config.R -## v2.0.7.9031 +## v2.0.7.9032 2024-03-01 * refactor: Update Shiny app diff --git a/inst/shiny-examples/ContDataQC/external/tab_3c_QCThresh.R b/inst/shiny-examples/ContDataQC/external/tab_3c_QCThresh.R index dfce342..b68f82d 100644 --- a/inst/shiny-examples/ContDataQC/external/tab_3c_QCThresh.R +++ b/inst/shiny-examples/ContDataQC/external/tab_3c_QCThresh.R @@ -58,7 +58,7 @@ function() { # ,h4("4. Download custom thresholds file") ,sidebarLayout( sidebarPanel(#width = 5 - # , style = "position:fixed"#;width:22%" + # , style = "position:fixed"#;width:22%" h4("1. Select Parameter") ,selectInput(inputId = "QC_Param_Input" , label = NULL diff --git a/inst/shiny-examples/ContDataQC/global.R b/inst/shiny-examples/ContDataQC/global.R index b67b1b4..e7232b1 100644 --- a/inst/shiny-examples/ContDataQC/global.R +++ b/inst/shiny-examples/ContDataQC/global.R @@ -11,6 +11,7 @@ library(zoo) library(shinythemes) library(zip) library(shinyjs) +library(shinyalert) ###For downloading new versions of ContDataQC and USGS' DataRetrieval package #library(devtools) @@ -22,7 +23,7 @@ library(shinyjs) # Sys.setenv(PATH = paste(Sys.getenv("PATH"), "C:\\Rtools\\bin", sep = ";")) # Version Number -version <- "2.0.7.9033" +version <- "2.0.7.9034" #Maximum individual file size that can be uploaded is 70 MB options(shiny.maxRequestSize = 70 * 1024^2) diff --git a/inst/shiny-examples/ContDataQC/rmd/App_1b_TestData.rmd b/inst/shiny-examples/ContDataQC/rmd/App_1b_TestData.rmd index e9430f9..5207c40 100644 --- a/inst/shiny-examples/ContDataQC/rmd/App_1b_TestData.rmd +++ b/inst/shiny-examples/ContDataQC/rmd/App_1b_TestData.rmd @@ -20,9 +20,9 @@ if(boo_DEBUG==TRUE){ }## IF ~ boo_DEBUG ~ END ``` +## Test files Below are test files that you can download and run through the Shiny app. They are from Onset HOBO U20 water level loggers (non-vented pressure transducers) and miniDOT DO sensors. Please contact us if you have example files from other sensors that you would like us to add to this website. -# Test files * [Onset HOBO U20](TestData_HOBOU20_20220822.zip) [ZIP] * [miniDOT DO](TestData_miniDOT.zip) [ZIP] diff --git a/inst/shiny-examples/ContDataQC/server.R b/inst/shiny-examples/ContDataQC/server.R index e3cfea9..c54271d 100644 --- a/inst/shiny-examples/ContDataQC/server.R +++ b/inst/shiny-examples/ContDataQC/server.R @@ -657,6 +657,29 @@ shinyServer(function(input, output, session) { #Creates a data.frame for the R console output of the ContDataQC() script console$disp <- data.frame(consoleOutput = character()) + # check files for import errors + # popup with issues + # minidot_cat_warn <- FALSE + # tryCatch({result <- read.delim(list.files("miniDOT_cat", full.names = TRUE)[2])} + # , ) + for (f in list.files(file.path("miniDOT_cat"), full.names = TRUE)) { + tryCatch({ + df_test <- read.delim(f, stringsAsFactors = FALSE) + }, error = function(e) { + # pop up here OR log file name and delete, at end pop up with bad files + # end process with pop up + msg <- "'INDEX_NAME' column name is missing!" + shinyalert::shinyalert(title = "Bad file!" + , text = basename(f) + , type = "error" + , closeOnEsc = TRUE + , closeOnClickOutside = TRUE) + validate(msg) + })## tryCatch + }## f ~ check files + + + withProgress(message = paste("Running, runProcess_miniDOT_reformat"), value = 0, { #A short pause before the operation begins diff --git a/inst/shiny-examples/ContDataQC/ui.R b/inst/shiny-examples/ContDataQC/ui.R index cb5fa98..ff3ea7c 100644 --- a/inst/shiny-examples/ContDataQC/ui.R +++ b/inst/shiny-examples/ContDataQC/ui.R @@ -23,268 +23,8 @@ tab_5b_Console <- source("external/tab_5b_Console.R", local = TRUE)$value #tab_9_Status <- source("external/tab_9_Status.R", local = TRUE)$value -# shinyUI( -# # VERSION, 1, current [non-EPA] ---- -# navbarPage("Continuous Data QC, Summary, and Statistics" -# , theme = shinytheme("spacelab") -# , tab_1_About() -# #, tab_1a_Overview() -# #, tab_1c_FAQ() -# , tab_2_DataPrep() -# , tab_3_MainFunc() -# #,tab_3c_QCThresh() -# , tab_4_USGSgage() -# , tab_5_Troubleshooting() -# #, tab_5b_Console() -# #, tab_x_TestData() -# #, tab_9_Status() -# )## navbarPage ~ END -# )## shinyUI ~ END - -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -# VERSION, EPA Template ---- -# OneEPA_template_for_ShinyApps_(update_title_on_line_28___UI_code_on_215___dateUpdated_on_441___server_code_on_457)_.R -# 2023-12-15 -#~~~~~~~~~~~ -# Using separate UI and Server files so commented out server code at bottom -# commented out require(shiny) -# Changed ui <- foo to shinyUI(foo) then added closing parenthesis at end -# 3 places to edit: title, UI code, date (~500) -#~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - -# require(shiny) - -# ui <- fluidPage( -shinyUI(fluidPage( - tags$html(class = "no-js", lang="en"), - tags$head( - HTML( - " - - - " - ), - tags$meta(charset="utf-8"), - tags$meta(property="og:site_name", content="US EPA"), - #tags$link(rel = "stylesheet", type = "text/css", href = "css/uswds.css"), - tags$link(rel = "stylesheet", type = "text/css", href = "https://cdnjs.cloudflare.com/ajax/libs/uswds/3.0.0-beta.3/css/uswds.min.css", integrity="sha512-ZKvR1/R8Sgyx96aq5htbFKX84hN+zNXN73sG1dEHQTASpNA8Pc53vTbPsEKTXTZn9J4G7R5Il012VNsDEReqCA==", crossorigin="anonymous", referrerpolicy="no-referrer"), - tags$meta(property="og:url", content="https://www.epa.gov/themes/epa_theme/pattern-lab/.markup-only.html"), - tags$link(rel="canonical", href="https://www.epa.gov/themes/epa_theme/pattern-lab/.markup-only.html"), - tags$link(rel="shortlink", href="https://www.epa.gov/themes/epa_theme/pattern-lab/.markup-only.html"), - tags$meta(property="og:url", content="https://www.epa.gov/themes/epa_theme/pattern-lab/.markup-only.html"), - tags$meta(property="og:image", content="https://www.epa.gov/sites/all/themes/epa/img/epa-standard-og.jpg"), - tags$meta(property="og:image:width", content="1200"), - tags$meta(property="og:image:height", content="630"), - tags$meta(property="og:image:alt", content="U.S. Environmental Protection Agency"), - tags$meta(name="twitter:card", content="summary_large_image"), - tags$meta(name="twitter:image:alt", content="U.S. Environmental Protection Agency"), - tags$meta(name="twitter:image:height", content="600"), - tags$meta(name="twitter:image:width", content="1200"), - tags$meta(name="twitter:image", content="https://www.epa.gov/sites/all/themes/epa/img/epa-standard-twitter.jpg"), - tags$meta(name="MobileOptimized", content="width"), - tags$meta(name="HandheldFriendly", content="true"), - tags$meta(name="viewport", content="width=device-width, initial-scale=1.0"), - tags$meta(`http-equiv`="x-ua-compatible", content="ie=edge"), - tags$script(src = "js/pattern-lab-head-script.js"), - ## update this line with your title:---- - tags$title('Continuous Data QC, Summary, and Statistics | US EPA'), - tags$link(rel="icon", type="image/x-icon", href="https://www.epa.gov/themes/epa_theme/images/favicon.ico"), - tags$meta(name="msapplication-TileColor", content="#FFFFFF"), - tags$meta(name="msapplication-TileImage", content="https://www.epa.gov/themes/epa_theme/images/favicon-144.png"), - tags$meta(name="application-name", content=""), - tags$meta(name="msapplication-config", content="https://www.epa.gov/themes/epa_theme/images/ieconfig.xml"), - tags$link(rel="apple-touch-icon-precomposed", sizes="196x196", href="https://www.epa.gov/themes/epa_theme/images/favicon-196.png"), - tags$link(rel="apple-touch-icon-precomposed", sizes="152x152", href="https://www.epa.gov/themes/epa_theme/images/favicon-152.png"), - tags$link(rel="apple-touch-icon-precomposed", sizes="144x144", href="https://www.epa.gov/themes/epa_theme/images/favicon-144.png"), - tags$link(rel="apple-touch-icon-precomposed", sizes="120x120", href="https://www.epa.gov/themes/epa_theme/images/favicon-120.png"), - tags$link(rel="apple-touch-icon-precomposed", sizes="114x114", href="https://www.epa.gov/themes/epa_theme/images/favicon-114.png"), - tags$link(rel="apple-touch-icon-precomposed", sizes="72x72", href="https://www.epa.gov/themes/epa_theme/images/favicon-72.png"), - tags$link(rel="apple-touch-icon-precomposed", href="https://www.epa.gov/themes/epa_theme/images/favicon-180.png"), - tags$link(rel="icon", href="https://www.epa.gov/themes/epa_theme/images/favicon-32.png", sizes="32x32"), - tags$link(rel="preload", href="https://www.epa.gov/themes/epa_theme/fonts/source-sans-pro/sourcesanspro-regular-webfont.woff2", as="font", crossorigin="anonymous"), - tags$link(rel="preload", href="https://www.epa.gov/themes/epa_theme/fonts/source-sans-pro/sourcesanspro-bold-webfont.woff2", as="font", crossorigin="anonymous"), - tags$link(rel="preload", href="https://www.epa.gov/themes/epa_theme/fonts/merriweather/Latin-Merriweather-Bold.woff2", as="font", crossorigin="anonymous"), - tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/ajax-progress.module.css?r6lsex"), - tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/autocomplete-loading.module.css?r6lsex" ), - tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/js.module.css?r6lsex"), - tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/sticky-header.module.css?r6lsex"), - tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/system-status-counter.css?r6lsex"), - tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/system-status-report-counters.css?r6lsex"), - tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/system-status-report-general-info.css?r6lsex"), - tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/tabledrag.module.css?r6lsex"), - tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/tablesort.module.css?r6lsex"), - tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/tree-child.module.css?r6lsex"), - tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/themes/epa_theme/css/styles.css?r6lsex"), - tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/themes/epa_theme/css-lib/colorbox.min.css?r6lsex"), - - tags$script(src = 'https://cdnjs.cloudflare.com/ajax/libs/uswds/3.0.0-beta.3/js/uswds-init.min.js'), - #fix container-fluid that boostrap RShiny uses - tags$style(HTML( - '.container-fluid { - padding-right: 0; - padding-left: 0; - margin-right: 0; - margin-left: 0; - } - .tab-content { - margin-right: 30px; - margin-left: 30px; - }' - )) - ), - tags$body( - class="path-themes not-front has-wide-template", id="top", - tags$script( - src = 'https://cdnjs.cloudflare.com/ajax/libs/uswds/3.0.0-beta.3/js/uswds.min.js' - ) - ), - - # Site Header - HTML( - ' - - - - - -
-
-
-
-
-
- U.S. flag -
-
-

An official website of the United States government

- -
- -
-
-
-
-
- Dot gov -
-

- Official websites use .gov -
A .gov website belongs to an official government organization in the United States. -

-
-
-
- HTTPS -
-

- Secure .gov websites use HTTPS -
A lock () or https:// means you’ve safely connected to the .gov website. Share sensitive information only on official, secure websites. -

-
-
-
-
-
-
-
-
- -
-
-
-
-
-
-
- - -
-
-
-
- - - - - - - - - - -
-
-
-
-
-
- -
-
-
' - ), - - # Individual Page Header - HTML( - '
-
-
-
-
-
-
- Contact Us -
-
-
' - ), - - ## Insert your UI code here---- - ## Begin example UI code - +shinyUI( + # VERSION, 1, current [non-EPA] ---- navbarPage("Continuous Data QC, Summary, and Statistics" , theme = shinytheme("spacelab") , tab_1_About() @@ -299,228 +39,488 @@ shinyUI(fluidPage( #, tab_x_TestData() #, tab_9_Status() )## navbarPage ~ END +)## shinyUI ~ END - ## End example UI code - - # IMPORTANT! For a navbar page, you will need to place the header and footer inside the navbar section (as shown below) - - # you will then want to comment out lines 201-213 and lines 254-263 - # navbarPage( - # title = h2("Sample App"), - # header = HTML( - # '
- #
- #
- #
- #
- #
- #
- # Contact Us - #
- #
- #
' - # ), - # footer = HTML( - # '
- #
- #
- #
- #

Contact Us to ask a question, provide feedback, or report a problem.

- #
- #
- #
' - # ), - # tabPanel("Sample Tab 1"), - # tabPanel("Sample Tab 2"), - # ), - - # Individual Page Footer - ,HTML( - '
-
-
-
-

Contact Us to ask a question, provide feedback, or report a problem.

-
-
-
' - ), +#~~~~~~~~~~~~~~~~~~~~~~~~~~~~ +# VERSION, EPA Template ---- +# OneEPA_template_for_ShinyApps_(update_title_on_line_28___UI_code_on_215___dateUpdated_on_441___server_code_on_457)_.R +# 2023-12-15 +#~~~~~~~~~~~ +# Using separate UI and Server files so commented out server code at bottom +# commented out require(shiny) +# Changed ui <- foo to shinyUI(foo) then added closing parenthesis at end +# 3 places to edit: title, UI code, date (~500) +#~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - # Site Footer - HTML( - '
- - - - - - - - ' - ) -) # END fluidPage -) # END shinyUI +# # require(shiny) +# +# # ui <- fluidPage( +# shinyUI(fluidPage( +# tags$html(class = "no-js", lang="en"), +# tags$head( +# HTML( +# " +# +# +# " +# ), +# tags$meta(charset="utf-8"), +# tags$meta(property="og:site_name", content="US EPA"), +# #tags$link(rel = "stylesheet", type = "text/css", href = "css/uswds.css"), +# tags$link(rel = "stylesheet", type = "text/css", href = "https://cdnjs.cloudflare.com/ajax/libs/uswds/3.0.0-beta.3/css/uswds.min.css", integrity="sha512-ZKvR1/R8Sgyx96aq5htbFKX84hN+zNXN73sG1dEHQTASpNA8Pc53vTbPsEKTXTZn9J4G7R5Il012VNsDEReqCA==", crossorigin="anonymous", referrerpolicy="no-referrer"), +# tags$meta(property="og:url", content="https://www.epa.gov/themes/epa_theme/pattern-lab/.markup-only.html"), +# tags$link(rel="canonical", href="https://www.epa.gov/themes/epa_theme/pattern-lab/.markup-only.html"), +# tags$link(rel="shortlink", href="https://www.epa.gov/themes/epa_theme/pattern-lab/.markup-only.html"), +# tags$meta(property="og:url", content="https://www.epa.gov/themes/epa_theme/pattern-lab/.markup-only.html"), +# tags$meta(property="og:image", content="https://www.epa.gov/sites/all/themes/epa/img/epa-standard-og.jpg"), +# tags$meta(property="og:image:width", content="1200"), +# tags$meta(property="og:image:height", content="630"), +# tags$meta(property="og:image:alt", content="U.S. Environmental Protection Agency"), +# tags$meta(name="twitter:card", content="summary_large_image"), +# tags$meta(name="twitter:image:alt", content="U.S. Environmental Protection Agency"), +# tags$meta(name="twitter:image:height", content="600"), +# tags$meta(name="twitter:image:width", content="1200"), +# tags$meta(name="twitter:image", content="https://www.epa.gov/sites/all/themes/epa/img/epa-standard-twitter.jpg"), +# tags$meta(name="MobileOptimized", content="width"), +# tags$meta(name="HandheldFriendly", content="true"), +# tags$meta(name="viewport", content="width=device-width, initial-scale=1.0"), +# tags$meta(`http-equiv`="x-ua-compatible", content="ie=edge"), +# tags$script(src = "js/pattern-lab-head-script.js"), +# ## update this line with your title:---- +# tags$title('Continuous Data QC, Summary, and Statistics | US EPA'), +# tags$link(rel="icon", type="image/x-icon", href="https://www.epa.gov/themes/epa_theme/images/favicon.ico"), +# tags$meta(name="msapplication-TileColor", content="#FFFFFF"), +# tags$meta(name="msapplication-TileImage", content="https://www.epa.gov/themes/epa_theme/images/favicon-144.png"), +# tags$meta(name="application-name", content=""), +# tags$meta(name="msapplication-config", content="https://www.epa.gov/themes/epa_theme/images/ieconfig.xml"), +# tags$link(rel="apple-touch-icon-precomposed", sizes="196x196", href="https://www.epa.gov/themes/epa_theme/images/favicon-196.png"), +# tags$link(rel="apple-touch-icon-precomposed", sizes="152x152", href="https://www.epa.gov/themes/epa_theme/images/favicon-152.png"), +# tags$link(rel="apple-touch-icon-precomposed", sizes="144x144", href="https://www.epa.gov/themes/epa_theme/images/favicon-144.png"), +# tags$link(rel="apple-touch-icon-precomposed", sizes="120x120", href="https://www.epa.gov/themes/epa_theme/images/favicon-120.png"), +# tags$link(rel="apple-touch-icon-precomposed", sizes="114x114", href="https://www.epa.gov/themes/epa_theme/images/favicon-114.png"), +# tags$link(rel="apple-touch-icon-precomposed", sizes="72x72", href="https://www.epa.gov/themes/epa_theme/images/favicon-72.png"), +# tags$link(rel="apple-touch-icon-precomposed", href="https://www.epa.gov/themes/epa_theme/images/favicon-180.png"), +# tags$link(rel="icon", href="https://www.epa.gov/themes/epa_theme/images/favicon-32.png", sizes="32x32"), +# tags$link(rel="preload", href="https://www.epa.gov/themes/epa_theme/fonts/source-sans-pro/sourcesanspro-regular-webfont.woff2", as="font", crossorigin="anonymous"), +# tags$link(rel="preload", href="https://www.epa.gov/themes/epa_theme/fonts/source-sans-pro/sourcesanspro-bold-webfont.woff2", as="font", crossorigin="anonymous"), +# tags$link(rel="preload", href="https://www.epa.gov/themes/epa_theme/fonts/merriweather/Latin-Merriweather-Bold.woff2", as="font", crossorigin="anonymous"), +# tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/ajax-progress.module.css?r6lsex"), +# tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/autocomplete-loading.module.css?r6lsex" ), +# tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/js.module.css?r6lsex"), +# tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/sticky-header.module.css?r6lsex"), +# tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/system-status-counter.css?r6lsex"), +# tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/system-status-report-counters.css?r6lsex"), +# tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/system-status-report-general-info.css?r6lsex"), +# tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/tabledrag.module.css?r6lsex"), +# tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/tablesort.module.css?r6lsex"), +# tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/core/themes/stable/css/system/components/tree-child.module.css?r6lsex"), +# tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/themes/epa_theme/css/styles.css?r6lsex"), +# tags$link(rel="stylesheet", media="all", href="https://www.epa.gov/themes/epa_theme/css-lib/colorbox.min.css?r6lsex"), +# +# tags$script(src = 'https://cdnjs.cloudflare.com/ajax/libs/uswds/3.0.0-beta.3/js/uswds-init.min.js'), +# #fix container-fluid that boostrap RShiny uses +# tags$style(HTML( +# '.container-fluid { +# padding-right: 0; +# padding-left: 0; +# margin-right: 0; +# margin-left: 0; +# } +# .tab-content { +# margin-right: 30px; +# margin-left: 30px; +# }' +# )) +# ), +# tags$body( +# class="path-themes not-front has-wide-template", id="top", +# tags$script( +# src = 'https://cdnjs.cloudflare.com/ajax/libs/uswds/3.0.0-beta.3/js/uswds.min.js' +# ) +# ), +# +# # Site Header +# HTML( +# ' +# +# +# +# +# +#
+#
+#
+#
+#
+#
+# U.S. flag +#
+#
+#

An official website of the United States government

+# +#
+# +#
+#
+#
+#
+#
+# Dot gov +#
+#

+# Official websites use .gov +#
A .gov website belongs to an official government organization in the United States. +#

+#
+#
+#
+# HTTPS +#
+#

+# Secure .gov websites use HTTPS +#
A lock () or https:// means you’ve safely connected to the .gov website. Share sensitive information only on official, secure websites. +#

+#
+#
+#
+#
+#
+#
+#
+#
+# +#
+#
+#
+#
+#
+#
+#
+# +# +#
+#
+#
+#
+# +# +# +# +# +# +# +# +# +# +#
+#
+#
+#
+#
+#
+# +#
+#
+#
' +# ), +# +# # Individual Page Header +# HTML( +# '
+#
+#
+#
+#
+#
+#
+# Contact Us +#
+#
+#
' +# ), +# +# ## Insert your UI code here---- +# ## Begin example UI code +# +# navbarPage("Continuous Data QC, Summary, and Statistics" +# , theme = shinytheme("spacelab") +# , tab_1_About() +# #, tab_1a_Overview() +# #, tab_1c_FAQ() +# , tab_2_DataPrep() +# , tab_3_MainFunc() +# #,tab_3c_QCThresh() +# , tab_4_USGSgage() +# , tab_5_Troubleshooting() +# #, tab_5b_Console() +# #, tab_x_TestData() +# #, tab_9_Status() +# )## navbarPage ~ END +# +# ## End example UI code +# +# # IMPORTANT! For a navbar page, you will need to place the header and footer inside the navbar section (as shown below) - +# # you will then want to comment out lines 201-213 and lines 254-263 +# # navbarPage( +# # title = h2("Sample App"), +# # header = HTML( +# # '
+# #
+# #
+# #
+# #
+# #
+# #
+# # Contact Us +# #
+# #
+# #
' +# # ), +# # footer = HTML( +# # '
+# #
+# #
+# #
+# #

Contact Us to ask a question, provide feedback, or report a problem.

+# #
+# #
+# #
' +# # ), +# # tabPanel("Sample Tab 1"), +# # tabPanel("Sample Tab 2"), +# # ), +# +# # Individual Page Footer +# ,HTML( +# '
+#
+#
+#
+#

Contact Us to ask a question, provide feedback, or report a problem.

+#
+#
+#
' +# ), +# +# # Site Footer +# HTML( +# '
+# +# +# +# +# +# +# +# ' +# ) +# ) # END fluidPage +# ) # END shinyUI # # Insert your server code here # ## Begin example server code diff --git a/inst/shiny-examples/ContDataQC/www/RMD_HTML/App_1b_TestData.html b/inst/shiny-examples/ContDataQC/www/RMD_HTML/App_1b_TestData.html index 5c5584b..b0b40cb 100644 --- a/inst/shiny-examples/ContDataQC/www/RMD_HTML/App_1b_TestData.html +++ b/inst/shiny-examples/ContDataQC/www/RMD_HTML/App_1b_TestData.html @@ -1,18 +1,19 @@ +
+

Test files

Below are test files that you can download and run through the Shiny app. They are from Onset HOBO U20 water level loggers (non-vented pressure transducers) and miniDOT DO sensors. Please contact us if you have example files from other sensors that you would like us to add to this website.

-
-

Test files

+

Onset HOBO

The Onset HOBO U20 test data consist of two comma-separated values @@ -60,4 +61,3 @@

miniDOT DO Sensors

data (edit if needed).

-