USEPA · cristinamullin · Sep 19, 2022 · Sep 19, 2022 · Sep 19, 2022
diff --git a/.gitignore b/.gitignore
@@ -1,2 +1 @@
-docs
 .Rproj.user
diff --git a/NAMESPACE b/NAMESPACE
@@ -25,6 +25,7 @@ export(QAPPapproved)
 export(RemoveEmptyColumns)
 export(TADABigdataRetrieval)
 export(TADAdataRetrieval)
+export(TransformCensoredData)
 export(WQXTargetUnits)
 export(readWQPwebservice)
 importFrom(magrittr,"%>%")
diff --git a/R/CensoredData.R b/R/CensoredData.R
@@ -3,3 +3,36 @@
 ## Two objectives:
 # TransformCensoredData
 # GenerateCensoredDataStats
+
+#' Generate list of unique values in a given field
+#'
+#' Function substitutes monitoring device/method detection limits (if available) as result values when applicable.
+#'
+#' @param transform Boolean argument with two possible values, “TRUE” and “FALSE”.
+#' Default is transform = TRUE.
+#' 
+#' @param .data Optional argument; TADA dataframe
+#'
+#' @return When transform=TRUE, monitoring device/method detection limits (if available) are substituted as result values and units.
+#' When transform = FALSE, monitoring device/method detection limits (if available) are NOT substituted as result values and units - 
+#' Instead, columns are appended to rows that may include censored data. The flag indicates 1) if the row contains censored data, and 2)
+#' if monitoring device/method detection limits are available.  
+#' 
+#' @export
+#'
+
+TransformCensoredData <- function(transform, .data) {
+
+  # check .data is of class data.frame
+  if (!missing(.data)) {
+    if (("data.frame" %in% class(.data)) == FALSE) {
+      stop(".data must be of class 'data.frame'")
+    }
+  }
+  # execute function after checks are passed 
+  {
+
+  }
+}
+
+
diff --git a/docs/404.html b/docs/404.html
diff --git a/docs/CONTRIBUTING.html b/docs/CONTRIBUTING.html