Removed call to global variables.

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)
 }