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")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.