cleaned NAMESPACE, added tests

NAMESPACE

@@ -14,7 +14,29 @@ importFrom(httr,GET)
 importFrom(httr,content)
 importFrom(httr,stop_for_status)
 importFrom(httr,user_agent)
+importFrom(leaflet,addMarkers)
+importFrom(leaflet,addTiles)
+importFrom(leaflet,leaflet)
+importFrom(leaflet,leafletOutput)
+importFrom(leaflet,renderLeaflet)
 importFrom(magrittr,"%>%")
+importFrom(shiny,actionButton)
+importFrom(shiny,column)
+importFrom(shiny,eventReactive)
+importFrom(shiny,fluidPage)
+importFrom(shiny,fluidRow)
+importFrom(shiny,htmlOutput)
+importFrom(shiny,icon)
+importFrom(shiny,renderTable)
+importFrom(shiny,renderText)
+importFrom(shiny,renderUI)
+importFrom(shiny,selectInput)
+importFrom(shiny,sidebarPanel)
+importFrom(shiny,tabPanel)
+importFrom(shiny,tableOutput)
+importFrom(shiny,tabsetPanel)
+importFrom(shiny,textInput)
+importFrom(shiny,textOutput)
 importFrom(tidyjson,as.tbl_json)
 importFrom(tidyjson,enter_object)
 importFrom(tidyjson,jstring)

R/explore_cicero.R

@@ -1,5 +1,8 @@
 #' Shiny app for exploring Cicero data on elected officials
-#'
+#' @importFrom shiny fluidPage fluidRow sidebarPanel textInput selectInput actionButton column
+#' @importFrom shiny tabsetPanel tabPanel tableOutput textOutput htmlOutput icon
+#' @importFrom shiny eventReactive renderTable renderText renderUI
+#' @importFrom leaflet leaflet addTiles addMarkers renderLeaflet leafletOutput
 #' @export
 #' @examples
 #'

R/get_official.R

@@ -34,9 +34,7 @@ get_official <- function(search_loc = NULL, lat = NULL, lon = NULL, first_name =
                           district_type = c("STATE_LOWER", "STATE_UPPER",
                                            "NATIONAL_UPPER", "NATIONAL_LOWER", "NATIONAL_EXEC")) {
   if (!is.null(valid_on)) {
-    valid_on <- try({
-      as.Date(valid_on, format = "%Y-%m-%d")
-      })
+    valid_on <- try(as.Date(valid_on, format = "%Y-%m-%d"))
     if (class(valid_on) == "try-error" || is.na(valid_on)) {
       stop("valid_on argument must be in %Y-%m-%d format")
     }

tests/testthat/test-nonlegislativedistrict.R

@@ -0,0 +1,20 @@
+context("get_nonlegislative_district")
+
+test_that("returns the correct", {
+
+  a <- get_nonlegislative_district(search_loc = "3175 Bowers Ave. Santa Clara, CA", type = "SCHOOL")
+  b <- get_nonlegislative_district(lat = 40, lon = -75.1)
+
+  # classes
+  expect_is(a, "tbl_df")
+  expect_is(b, "tbl_df")
+
+  # columns
+  expect_equal(names(a)[1], "address")
+  expect_equal(names(b)[1], "district_type")
+
+  # values
+  expect_equal(unique(a$district_type), "SCHOOL")
+  expect_equal(unique(b$district_type), "SCHOOL")
+
+})

tests/testthat/test-upcomingelections.R

@@ -0,0 +1,16 @@
+context("get_upcoming_elections")
+
+test_that("returns the correct", {
+
+  a <- get_upcoming_elections(is_state = TRUE, elections = 2)
+  b <- get_upcoming_elections(is_national = TRUE, elections = 5)
+
+  # classes
+  expect_is(a, "tbl_df")
+  expect_is(b, "tbl_df")
+
+  # columns
+  expect_equal(names(a)[1], "election_label")
+  expect_equal(names(b)[1], "election_label")
+
+})