tests/testthat/test-clean_data.R

In azerbinati/capStoneQuake: This Package has been create for Coursera CapStone

context("clean_data")

test_that("clean data works", {

  LOCATION_NAME<- c("ITALY: SICILY","ITALY:  VENICE")
  COUNTRY <- c("ITALY","ITALY")
  DAY <- as.integer(c(3,6))
  MONTH <-as.integer(c(1,11))
  YEAR <- as.integer(c(2005,2012))
  LATITUDE <- c("43.5","45.8")
  LONGITUDE <- c("11.33","11.05")
  EQ_PRIMARY <- c("2.33","7.88")
  DEATHS <- c("22","100")



  df = data.frame(DAY,MONTH,YEAR,COUNTRY,LOCATION_NAME,LATITUDE,LONGITUDE,EQ_PRIMARY,DEATHS,stringsAsFactors=FALSE)

  df<-eq_clean_data(df)

  expect_is(df[1,]$date,"Date")
  expect_is(df[1,]$LATITUDE,"numeric")
  expect_is(df[1,]$LONGITUDE,"numeric")
  expect_is(df[1,]$EQ_PRIMARY,"numeric")
  expect_is(df[1,]$DEATHS,"numeric")
  expect_equal(format(df[1,]$date,"%d %m %Y"),"03 01 2005")
  expect_equal(format(df[2,]$date,"%d %m %Y"),"06 11 2012")


})