More updates to get travis happy

.Rbuildignore

@@ -1,2 +1,5 @@
 ^.*\.Rproj$
 ^\.Rproj\.user$
+.travis.yml
+LICENSE
+README.Rmd

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: trainR
 Type: Package
-Title: Example package for learning how to develop R packages.
+Title: learning how to develop R packages
 Version: 0.1
 Date: 2017-05-25
 Authors@R: c( 
@@ -16,7 +16,8 @@ Imports:
     dplyr
 Suggests: testthat,
     knitr,
-    rmarkdown
+    rmarkdown,
+    ggplot2
 LazyData: true
 RoxygenNote: 6.0.1
 VignetteBuilder: knitr

R/flow_stats.R

@@ -21,6 +21,8 @@
 #' }
 #' 
 add_annual_peak_flow <- function(flow.ts){
+
+  year <- flow <- ".dplyr"
   if(!is.data.frame(flow.ts) || any(names(flow.ts) != c('flow', 'year'))) {
     stop("flow.ts must be a data.frame with columns 'flow' and 'year'")
   }
@@ -40,16 +42,17 @@ add_annual_peak_flow <- function(flow.ts){
 #' 
 #' @return flow.ts.med numeric USGS annual median flow
 #' 
-#' @examples 
-#' 
 add_annual_median_flow <- function(flow.ts){
+
+  year <- flow <- ".dplyr"
   if(!is.data.frame(flow.ts) || any(names(flow.ts) != c('flow', 'year'))) {
     stop("flow.ts must be a data.frame with columns 'flow' and 'year'")
   }
   flow.ts.grpd <- dplyr::group_by(flow.ts, year)
   flow.ts.med <- dplyr::mutate(flow.ts.grpd, flow.med = median(flow))
   return(flow.ts.med)
 }
+
 #' @title add_annual_low_flow
 #' 
 #' @description Calculate annual low flow
@@ -62,9 +65,9 @@ add_annual_median_flow <- function(flow.ts){
 #' 
 #' @return flow.ts.low numeric USGS annual low flow
 #' 
-#' @examples 
-#' 
 add_annual_low_flow <- function(flow.ts){
+
+  year <- flow <- ".dplyr"
   if(!is.data.frame(flow.ts) || any(names(flow.ts) != c('flow', 'year'))) {
     stop("flow.ts must be a data.frame with columns 'flow' and 'year'")
   }

R/pct_summaries.R

@@ -1,6 +1,7 @@
 #' @title Censored Data
 #' @description Flags data censored.
 #' @param  vals vector amount of bad censored
+#' @param digits integer number of digits to print
 #' @examples
 #' 
 #' data <- c(1,2,3,4,5,16,34)
@@ -19,6 +20,7 @@ pct_censored <- function(vals, digits=2){
 #' @title Missing Data
 #' @description  Flags missing data
 #' @param vals  vector amount of missing data
+#' @param digits integer number of digits to print
 #' @examples
 #' 
 #' data <- c(1,2,3,4,5,NA)
@@ -33,8 +35,10 @@ pct_missing <- function(vals, digits=2){
   return(na.pct)
 }
 #' @title Percent of missing or bad data
+#' @description Percent of missing or bad data
 #' @param ninterest vector amount of bad data
 #' @param ntotal  vector total amount of data
+#' @param digits integer number of digits
 #' @examples 
 #' 
 #' data <- c(1,2,3,4,5)

R/sep_censored.R

@@ -1,3 +1,9 @@
+#' sep_censored
+#' 
+#' sep_censored function
+#' 
+#' @param vals char or numeric vector
+#' 
 #' @export
 sep_censored <- function(vals){
   if(!is.vector(vals)) {