From eb47d64ee64369e272774f2f56184c7dc6b03908 Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Fri, 10 Oct 2014 09:09:27 -0500
Subject: [PATCH] Removed call to global variables.
---
R/removeDuplicates.r | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/R/removeDuplicates.r b/R/removeDuplicates.r
index ede786a6..00687cc1 100644
--- a/R/removeDuplicates.r
+++ b/R/removeDuplicates.r
@@ -2,7 +2,7 @@
#'
#' Removes observations from the data frame Sample when the observation has the identical date and value as another observation
#'
-#' @param localSample dataframe with at least DecYear and ConcHigh, default name is Sample
+#' @param Sample dataframe with at least DecYear and ConcHigh, default name is Sample
#' @export
#' @return Sample1 dataframe
#' @examples
@@ -10,8 +10,8 @@
#' ConcHigh <- c(1,2,3,3,5)
#' dataInput <- data.frame(DecYear, ConcHigh, stringsAsFactors=FALSE)
#' removeDuplicates(dataInput)
-removeDuplicates <- function(localSample=Sample) {
- Sample1 <- localSample[!duplicated(localSample[c("DecYear","ConcHigh")]),]
+removeDuplicates <- function(Sample) {
+ Sample1 <- Sample[!duplicated(Sample[c("DecYear","ConcHigh")]),]
return(Sample1)
}
--
GitLab