~hrbrmstr/epidata

df367bca31435b8e50f6a6ab5d4067290096b4b4 — Bob Rudis 3 years ago 8a342d6
removing dontrun to check timings
M .Rbuildignore => .Rbuildignore +2 -0
@@ 6,3 6,5 @@
^NOTES\.*Rmd$
^NOTES\.*html$
^docs$
^README_files$
^cran-comments\.md$

M R/employment.r => R/employment.r +6 -12
@@ 7,13 7,12 @@
#' @note See \code{get_unemployment_by_state()} for information on retrieving unemployment by state+race.
#' @references \href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
#' @export
#' @examples \dontrun{
#' @examples
#' get_unemployment()
#'
#' get_unemployment("r")
#'
#' get_unemployment("grae")
#' }
get_unemployment <- function(by=NULL) {

  params <- list(subject="unemp")


@@ 44,11 43,10 @@ get_unemployment <- function(by=NULL) {
#' @note See \code{get_unemployment()} for other unemployment extracts..
#' @references \href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
#' @export
#' @examples \dontrun{
#' @examples
#' get_unemployment_by_state()
#'
#' get_unemployment_by_state("r")
#' }
get_unemployment_by_state <- function(by=NULL) {

  params <- list(subject="unempstate")


@@ 81,13 79,12 @@ get_unemployment_by_state <- function(by=NULL) {
#' @return \code{tbl_df} with data filtered by the selected criteria.
#' @references \href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
#' @export
#' @examples \dontrun{
#' @examples
#' get_long_term_unemployment()
#'
#' get_long_term_unemployment("r")
#'
#' get_long_term_unemployment("grae")
#' }
get_long_term_unemployment <- function(by=NULL) {

  params <- list(subject="ltunemp")


@@ 125,13 122,12 @@ get_long_term_unemployment <- function(by=NULL) {
#' @return \code{tbl_df} with data filtered by the selected criteria.
#' @references \href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
#' @export
#' @examples \dontrun{
#' @examples
#' get_underemployment()
#'
#' get_underemployment("r")
#'
#' get_underemployment("grae")
#' }
get_underemployment <- function(by=NULL) {

  params <- list(subject="underemp")


@@ 165,13 161,12 @@ get_underemployment <- function(by=NULL) {
#' @return \code{tbl_df} with data filtered by the selected criteria.
#' @references \href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
#' @export
#' @examples \dontrun{
#' @examples
#' get_labor_force_participation_rate()
#'
#' get_labor_force_participation_rate("r")
#'
#' get_labor_force_participation_rate("grae")
#' }
get_labor_force_participation_rate <- function(by=NULL) {

  params <- list(subject="lfpr")


@@ 203,13 198,12 @@ get_labor_force_participation_rate <- function(by=NULL) {
#' @return \code{tbl_df} with data filtered by the selected criteria.
#' @export
#' @references \href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
#' @examples \dontrun{
#' @examples
#' get_employment_to_population_ratio()
#'
#' get_employment_to_population_ratio("r")
#'
#' get_employment_to_population_ratio("grae")
#' }
get_employment_to_population_ratio <- function(by=NULL) {

  params <- list(subject="lfpr")

M R/gaps.r => R/gaps.r +4 -8
@@ 18,11 18,10 @@
#' @return \code{tbl_df} with data filtered by the selected criteria.
#' @references \href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
#' @export
#' @examples \dontrun{
#' @examples
#' get_gender_wage_gap()
#'
#' get_gender_wage_gap("r")
#' }
get_gender_wage_gap <- function(by=NULL) {

  params <- list(subject="wagegap-mf")


@@ 68,11 67,10 @@ get_gender_wage_gap <- function(by=NULL) {
#' @return \code{tbl_df} with data filtered by the selected criteria.
#' @references \href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
#' @export
#' @examples \dontrun{
#' @examples
#' get_black_white_wage_gap()
#'
#' get_black_white_wage_gap("g")
#' }
get_black_white_wage_gap <- function(by=NULL) {

  params <- list(subject="wagegap-bw")


@@ 118,11 116,10 @@ get_black_white_wage_gap <- function(by=NULL) {
#' @return \code{tbl_df} with data filtered by the selected criteria.
#' @references \href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
#' @export
#' @examples \dontrun{
#' @examples
#' get_hispanic_white_wage_gap()
#'
#' get_hispanic_white_wage_gap("g")
#' }
get_hispanic_white_wage_gap <- function(by=NULL) {

  params <- list(subject="wagegap-hw")


@@ 159,11 156,10 @@ get_hispanic_white_wage_gap <- function(by=NULL) {
#' @return \code{tbl_df} with data filtered by the selected criteria.
#' @references \href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
#' @export
#' @examples \dontrun{
#' @examples
#' get_college_wage_premium()
#'
#' get_college_wage_premium("g")
#' }
get_college_wage_premium <- function(by=NULL) {

  params <- list(subject="wagegap-coll")

M R/wages.r => R/wages.r +3 -6
@@ 11,13 11,12 @@
#' @return \code{tbl_df} with data filtered by the selected criteria.
#' @references \href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
#' @export
#' @examples \dontrun{
#' @examples
#' get_median_and_mean_wages()
#'
#' get_median_and_mean_wages("r")
#'
#' get_median_and_mean_wages("gr")
#' }
get_median_and_mean_wages <- function(by=NULL) {

  params <- list(preset="wage-avg")


@@ 57,13 56,12 @@ get_median_and_mean_wages <- function(by=NULL) {
#' @return \code{tbl_df} with data filtered by the selected criteria.
#' @references \href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
#' @export
#' @examples \dontrun{
#' @examples
#' get_wages_by_education()
#'
#' get_wages_by_education("r")
#'
#' get_wages_by_education("gr")
#' }
get_wages_by_education <- function(by=NULL) {

  params <- list(preset="wage-education")


@@ 102,13 100,12 @@ get_wages_by_education <- function(by=NULL) {
#' @return \code{tbl_df} with data filtered by the selected criteria.
#' @references \href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
#' @export
#' @examples \dontrun{
#' @examples
#' get_wages_by_percentile()
#'
#' get_wages_by_percentile("r")
#'
#' get_wages_by_percentile("gr")
#' }
get_wages_by_percentile <- function(by=NULL) {

  params <- list(preset="wage-percentiles")

A cran-comments.md => cran-comments.md +18 -0
@@ 0,0 1,18 @@
## Test environments
* local OS X install, R 3.3.2
* ubuntu 12.04 (on travis-ci), R-oldrel, R-devel, R-release
* win-builder (devel and release)

## R CMD check results

0 errors | 0 warnings | 0 notes

* This is a new release.

## Reverse dependencies

This is a new release, so there are no reverse dependencies.

---

- 
\ No newline at end of file

M man/get_black_white_wage_gap.Rd => man/get_black_white_wage_gap.Rd +0 -2
@@ 30,12 30,10 @@ workers' share of white workers' wages) by subtracting the gap from 100 percent.
}
}
\examples{
\dontrun{
get_black_white_wage_gap()

get_black_white_wage_gap("g")
}
}
\references{
\href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
}

M man/get_college_wage_premium.Rd => man/get_college_wage_premium.Rd +0 -2
@@ 20,12 20,10 @@ education credential is a high school diploma, all else held equal (controlling 
gender, race and ethnicity, education, experience, and geographic location).
}
\examples{
\dontrun{
get_college_wage_premium()

get_college_wage_premium("g")
}
}
\references{
\href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
}

M man/get_employment_to_population_ratio.Rd => man/get_employment_to_population_ratio.Rd +0 -2
@@ 18,14 18,12 @@ unemployment data by gender, race and education, you would set this parameter to
Retreive the share of the civilian noninstitutional population that is employed
}
\examples{
\dontrun{
get_employment_to_population_ratio()

get_employment_to_population_ratio("r")

get_employment_to_population_ratio("grae")
}
}
\references{
\href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
}

M man/get_gender_wage_gap.Rd => man/get_gender_wage_gap.Rd +0 -2
@@ 29,12 29,10 @@ share of men's wages) by subtracting the gap from 100 percent.
}
}
\examples{
\dontrun{
get_gender_wage_gap()

get_gender_wage_gap("r")
}
}
\references{
\href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
}

M man/get_hispanic_white_wage_gap.Rd => man/get_hispanic_white_wage_gap.Rd +0 -2
@@ 30,12 30,10 @@ are less than hourly wages of white workers. It is also often expressed as a wag
}
}
\examples{
\dontrun{
get_hispanic_white_wage_gap()

get_hispanic_white_wage_gap("g")
}
}
\references{
\href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
}

M man/get_labor_force_participation_rate.Rd => man/get_labor_force_participation_rate.Rd +0 -2
@@ 18,14 18,12 @@ unemployment data by gender, race and education, you would set this parameter to
(i.e., working or looking for work)
}
\examples{
\dontrun{
get_labor_force_participation_rate()

get_labor_force_participation_rate("r")

get_labor_force_participation_rate("grae")
}
}
\references{
\href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
}

M man/get_long_term_unemployment.Rd => man/get_long_term_unemployment.Rd +0 -2
@@ 18,14 18,12 @@ unemployment data by gender, race and education, you would set this parameter to
Retreive  the share of the labor force that has been unemployed for six months or longer
}
\examples{
\dontrun{
get_long_term_unemployment()

get_long_term_unemployment("r")

get_long_term_unemployment("grae")
}
}
\references{
\href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
}

M man/get_median_and_mean_wages.Rd => man/get_median_and_mean_wages.Rd +0 -2
@@ 21,14 21,12 @@ the arithmetic mean of hourly wages; or, the sum of all workers' hourly wages di
by the number of workers.
}
\examples{
\dontrun{
get_median_and_mean_wages()

get_median_and_mean_wages("r")

get_median_and_mean_wages("gr")
}
}
\references{
\href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
}

M man/get_underemployment.Rd => man/get_underemployment.Rd +0 -2
@@ 22,14 22,12 @@ but has given up actively seeking work in the last four weeks ("marginally attac
worker).
}
\examples{
\dontrun{
get_underemployment()

get_underemployment("r")

get_underemployment("grae")
}
}
\references{
\href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
}

M man/get_unemployment.Rd => man/get_unemployment.Rd +0 -2
@@ 21,14 21,12 @@ Retreive the share of the labor force without a job
See \code{get_unemployment_by_state()} for information on retrieving unemployment by state+race.
}
\examples{
\dontrun{
get_unemployment()

get_unemployment("r")

get_unemployment("grae")
}
}
\references{
\href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
}

M man/get_unemployment_by_state.Rd => man/get_unemployment_by_state.Rd +0 -2
@@ 19,12 19,10 @@ Retreive the share of the labor force without a job (by state)
See \code{get_unemployment()} for other unemployment extracts..
}
\examples{
\dontrun{
get_unemployment_by_state()

get_unemployment_by_state("r")
}
}
\references{
\href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
}

M man/get_wages_by_education.Rd => man/get_wages_by_education.Rd +0 -2
@@ 21,14 21,12 @@ attainment for workers of each gender, racial, and ethnic group as a share of to
employed for each group.
}
\examples{
\dontrun{
get_wages_by_education()

get_wages_by_education("r")

get_wages_by_education("gr")
}
}
\references{
\href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
}

M man/get_wages_by_percentile.Rd => man/get_wages_by_percentile.Rd +0 -2
@@ 20,14 20,12 @@ and the 95th percentile. The 95–50 and 50–10 wage ratios show how much great
are at the top than the middle, and at the middle than the bottom, respectively.
}
\examples{
\dontrun{
get_wages_by_percentile()

get_wages_by_percentile("r")

get_wages_by_percentile("gr")
}
}
\references{
\href{http://www.epi.org/data/}{Economic Policy Institute Data Library}
}

M tests/testthat/test-epidata.R => tests/testthat/test-epidata.R +0 -1
@@ 2,7 2,6 @@ context("basic functionality")
test_that("we can do something", {

  testthat::skip_on_cran()
  testthat::skip_on_travis()

  expect_that(get_black_white_wage_gap(), is_a("data.frame"))
  expect_that(get_college_wage_premium(), is_a("data.frame"))