cleanup tests and build

.Rbuildignore

@@ -4,3 +4,4 @@
 ^README\.Rmd$
 ^Makefile$
 ^Jenkinsfile$
+^Dockerfile$

R/db.R

@@ -37,8 +37,6 @@ countCleanr <- function(x){
 #'
 #' @return the names of columns in the dataframe with one or more entries equal to "."
 #' @export
-#'
-#' @examples
 findDots <- function(data){
   return(names(data)[lapply(data, countDots) > 0])
 
@@ -49,9 +47,8 @@ findDots <- function(data){
 #' @param x a character vector
 #'
 #' @return
+#' An integer counting the number of "." occurences in a vector
 #' @export
-#'
-#' @examples
 countDots <- function(x){
   len <- length(x[x == "." & !is.na(x)])
   totlen <- length(x)
@@ -65,8 +62,6 @@ countDots <- function(x){
 #'
 #' @return a vector the same length as the input vector with clean names
 #' @export
-#'
-#' @examples
 dbSafeNames <- function(names) {
   names = gsub('[^a-z0-9]+','_',tolower(names))
   names = make.names(names, unique = TRUE, allow_ = TRUE)

R/logo.R

@@ -9,7 +9,7 @@
 #' @importFrom jpeg readJPEG
 #' @importFrom graphics rasterImage
 #' @examples
-#' img <- system.file("img","Civilytics Consulting Logo.jpg",package="civilytics")
+#' img <- system.file("img","civilytics_logo.jpg",package="civilytics")
 #' plot_jpeg(img)
 plot_jpeg <- function(path, add=FALSE, upscale = TRUE)
 {
@@ -30,13 +30,10 @@ plot_jpeg <- function(path, add=FALSE, upscale = TRUE)
 #'
 #' @param filename a character with file path to a png file
 #'
-#' @return
+#' @return a plotted rasteGrob of a png image
 #' @export
 #' @importFrom png readPNG
 #' @importFrom grid rasterGrob
-#'
-#' @examples
-#'
 get_png <- function(filename) {
   grid::rasterGrob(png::readPNG(filename), interpolate = TRUE)
 }
@@ -48,12 +45,10 @@ get_png <- function(filename) {
 #' @param logo a logo grob created by make_logo_grob()
 #' @param margin_param a numeric specifying what margin to add or subtract to align the logo
 #'
-#' @return
+#' @return a grob with a logo attached to it ready to plot
 #' @importFrom ggplot2 theme
 #' @importFrom gridExtra arrangeGrob
 #' @export
-#'
-#' @examples
 add_logo <- function(plot, logo, margin_param = NULL) {
   if(has_caption(plot)) {
     # convert the caption size to a negative number and on the "pt" scale
@@ -118,7 +113,7 @@ has_caption <- function(gg) {
 #' @param widths an optional vector the same length as plot_list with the widths for each plot
 #' @param margin_param a number giving the adjustment up or down to help manually align logo and captions
 #'
-#' @return
+#' @return a grid object
 #' @note The resulting object needs to be drawn to the screen using grid.draw()
 #' @importFrom gridExtra arrangeGrob
 #' @importFrom ggplot2 theme

R/utils.R

@@ -78,7 +78,7 @@ pretty_count <- function(x) {
 
 #' Unsuppress data using sampling
 #'
-#' @param x
+#' @param x a vector
 #' @param replace_char the character you want to replace in the vector
 #' @param zeros the number of zeroes to oversample when replacing replace_char
 #' @param max_value the numeric maximum value the replacement for the "*" can be
@@ -103,10 +103,11 @@ star_subs <- function(x, replace_char = "*",
 #'
 #' @param x character description of grade levels from NCES style data
 #'
-#' @return
+#' @return a numeric vector
 #' @export
 #'
 #' @examples
+#' grade_level_to_num(c("KG", "Pre-K", "12", "10", "09"))
 grade_level_to_num <- function(x) {
   # Cannot generate new levels if it is a factor so we coerce to character first
   x <- as.character(x)
@@ -122,10 +123,11 @@ grade_level_to_num <- function(x) {
 #'
 #' @param x a character vector with NCES race codes, often from Urban Institute
 #'
-#' @return
+#' @return recoded race categories following NCES race codes
 #' @export
 #'
 #' @examples
+#' race_short_names(c("Black", "Hispanic Or Latino", "Two Or More Races"))
 race_short_names <- function(x) {
   x <- as.character(x)
   x[x %in% c("Black", "Black Or African American", "Black or African American",

man/add_logo.Rd

@@ -13,6 +13,9 @@ add_logo(plot, logo, margin_param = NULL)
 
 \item{margin_param}{a numeric specifying what margin to add or subtract to align the logo}
 }
+\value{
+a grob with a logo attached to it ready to plot
+}
 \description{
 Add a logo to a ggplot2 object
 }

man/add_logo_ga.Rd

@@ -17,6 +17,9 @@ add_logo_ga(plot_list, logo, nrow = 1, widths = NULL, margin_param = NULL)
 
 \item{margin_param}{a number giving the adjustment up or down to help manually align logo and captions}
 }
+\value{
+a grid object
+}
 \description{
 Add a logo to a ggplot2 object
 }

man/countDots.Rd

@@ -9,6 +9,9 @@ countDots(x)
 \arguments{
 \item{x}{a character vector}
 }
+\value{
+An integer counting the number of "." occurences in a vector
+}
 \description{
 Count the number of single period entries in a vector
 }

man/get_png.Rd

@@ -9,6 +9,9 @@ get_png(filename)
 \arguments{
 \item{filename}{a character with file path to a png file}
 }
+\value{
+a plotted rasteGrob of a png image
+}
 \description{
 Plot a PNG file as a rasterGrob for inclusion in ggplot2
 }

man/grade_level_to_num.Rd

@@ -9,6 +9,12 @@ grade_level_to_num(x)
 \arguments{
 \item{x}{character description of grade levels from NCES style data}
 }
+\value{
+a numeric vector
+}
 \description{
 Recode grade level from character to numeric
 }
+\examples{
+grade_level_to_num(c("KG", "Pre-K", "12", "10", "09"))
+}

man/plot_jpeg.Rd

@@ -21,6 +21,6 @@ a rasterImage
 Plot a jpeg image as a raster
 }
 \examples{
-img <- system.file("img","Civilytics Consulting Logo.jpg",package="civilytics")
+img <- system.file("img","civilytics_logo.jpg",package="civilytics")
 plot_jpeg(img)
 }

man/race_short_names.Rd

@@ -9,6 +9,12 @@ race_short_names(x)
 \arguments{
 \item{x}{a character vector with NCES race codes, often from Urban Institute}
 }
+\value{
+recoded race categories following NCES race codes
+}
 \description{
 Recode NCES race categories to shorter names
 }
+\examples{
+race_short_names(c("Black", "Hispanic Or Latino", "Two Or More Races"))
+}

man/star_subs.Rd

@@ -7,6 +7,8 @@
 star_subs(x, replace_char = "*", zeros = 15, max_value = 20)
 }
 \arguments{
+\item{x}{a vector}
+
 \item{replace_char}{the character you want to replace in the vector}
 
 \item{zeros}{the number of zeroes to oversample when replacing replace_char}