TADA_CreateParamRef() and TADA_CreateParamUseRef()

DESCRIPTION

@@ -72,7 +72,8 @@ Imports:
     nhdplusTools,
     arcgislayers,
     httr,
-    jsonlite
+    jsonlite, 
+    openxlsx
 Depends: 
     R (>= 3.5.0)
 Suggests:

NAMESPACE

@@ -16,6 +16,8 @@ export(TADA_ConvertResultUnits)
 export(TADA_ConvertSpecialChars)
 export(TADA_CreateComparableID)
 export(TADA_CreatePairRef)
+export(TADA_CreateParamRef)
+export(TADA_CreateParamUseRef)
 export(TADA_CreateUnitRef)
 export(TADA_DataRetrieval)
 export(TADA_DepthProfilePlot)
@@ -41,10 +43,12 @@ export(TADA_FlagSpeciation)
 export(TADA_FlaggedSitesMap)
 export(TADA_FormatDelimitedString)
 export(TADA_GetATTAINS)
+export(TADA_GetATTAINSParamUseOrgRef)
 export(TADA_GetActivityTypeRef)
 export(TADA_GetCharacteristicRef)
 export(TADA_GetDetCondRef)
 export(TADA_GetDetLimitRef)
+export(TADA_GetEPA304aRef)
 export(TADA_GetMeasureQualifierCodeRef)
 export(TADA_GetMeasureUnitRef)
 export(TADA_GetMonLocTypeRef)

R/TADARefTables.R

@@ -1,3 +1,40 @@
+#' ATTAINS Parameter and Use Name by Organization Reference Key
+#'
+#' Function downloads and returns the newest available ATTAINS domain values
+#' reference dataframe summarized by parameter, use and organization.
+#' This dataframe is used in TADA_CreateParamRef() and
+#' TADA_CreateParamUseRef() as the basis for the pulling in prior ATTAINS
+#' parameter names and use name by organization name. This helps to filter
+#' selections of drop down values and creating parameter and use combination
+#' summaries that will need to be defined.
+#'
+#' @return Dataframe of ATTAINS parameter and use name by organization
+#'
+#' @export
+
+TADA_GetATTAINSParamUseOrgRef <- function() {
+  ref <- utils::read.csv(system.file("extdata", "ATTAINSParamUseEntityRef.csv", package = "EPATADA"))
+  return(ref)
+}
+
+#' EPA304a Criteria Search Tool Reference Key
+#'
+#' Function downloads and returns the newest available EPA 304a Criteria Search Tool
+#' reference dataframe. This dataframe is used in TADA_CreateParamRef() and
+#' TADA_CreateParamUseRef() as the basis for the pulling in EPA304a recommended
+#' pollutant name and use_name for assessment under the CWA.
+#'
+#' (Currently only numeric priority characteristic in TADA are the focus.)
+#'
+#' @return Dataframe of EPA304a recommended standards for a pollutant and use name.
+#'
+#' @export
+
+TADA_GetEPA304aRef <- function() {
+  ref <- utils::read.csv(system.file("extdata", "CST.csv", package = "EPATADA"))
+  return(ref)
+}
+
 #' Nutrient Summation Reference Key
 #'
 #' Function downloads and returns the newest available nutrient summation

inst/WORDLIST

@@ -30,6 +30,7 @@ BiologicalIntentName
 CCO
 CNENVSER
 CRS
+CWA
 CalculateTotalNP
 CalculateTotalNitrogen
 CensoredData
@@ -43,6 +44,7 @@ CharacteristicsForDepthProfile
 Chilton
 ComparableDataIdentifier
 ComparableDataIdentifiers
+ComparableDataIentifier
 ConsolidatedDepth
 ConstructionDateText
 ContinuousData
@@ -54,7 +56,10 @@ ConvertSpecialChars
 CountyCode
 CreateComparableID
 CreatePairRef
+CreateParamRef
+CreateParamUseRef
 CreateUnitRef
+CriteriaSearchTool
 DataQuality
 DataRetreival
 DataRetrieval
@@ -88,8 +93,10 @@ FlagDepthCategory
 FlagFraction
 FlagMeasureQualifierCode
 FlagMethod
+FlagParameterName
 FlagResultUnit
 FlagSpeciation
+FlagUseName
 FractionAssumptions
 FullPhysChem
 Geospatial
@@ -151,6 +158,7 @@ Msr
 MultipleOrgDupGroupID
 MultipleOrgDuplicate
 NA's
+NCTC
 NCTCShepherdstown
 ND's
 NHD
@@ -166,6 +174,7 @@ NutrientSummationGroup
 OA
 ORs
 Okabe
+OrgName
 OrganizationFormalName
 OrganizationIdentifier
 OutsideUSA
@@ -175,7 +184,10 @@ PUEBLOOFTESUQUE
 PairReplicates
 PairingGroup
 PairingGroupRank
+ParameterName
+ParameterNames
 Pojoaque
+PollutantName
 ProjectFileUrl
 ProjectName
 QAPP
@@ -228,6 +240,7 @@ ResultWeightBasisText
 RetainRequired
 Rmd
 Rtools
+RunKeyFlagFunctions
 SFNOES
 STORET
 SampleCollectionEquipmentName
@@ -247,6 +260,7 @@ StringB
 SubstituteDeprecatedChars
 SummarizeColumn
 SuspectCoordinates
+Sys
 TADA
 TADADataRetrieval
 TADAGeospatialRefLayers
@@ -259,6 +273,7 @@ TargetUnit
 Tesuque
 UG
 USEPA
+USERPROFILE
 USGS
 USGS's
 Uncomment
@@ -317,6 +332,7 @@ countycode
 cristinamullin
 crs
 csv
+cwa
 dailyagg
 dataProfile
 dataRetrieval
@@ -346,6 +362,7 @@ geospatially
 getFeatureLayer
 getLayer
 getPopup
+getenv
 ggplot
 github
 gitignore
@@ -362,6 +379,7 @@ magrittr
 manys
 mimeType
 mlt
+myfileRef
 nd
 nondetections
 nonstandardized
@@ -372,6 +390,7 @@ orgs
 ousideUSA
 outsideUSA
 param
+paramRef
 params
 pch
 pchIcons
@@ -414,7 +433,9 @@ waterdata
 waterqualitydata
 webserviceurl
 wikipedia
+wqs
 wqx
 writeLayer
 www
+xlsx
 σ