33 lines
882 B
R
33 lines
882 B
R
|
library(tinytest)
|
||
|
|
|
||
|
|
# load all functions
|
||
|
|
source("notebooks/dataCleaning.R")
|
||
|
|
# set working directory on fantastyczne_gole
|
||
|
|
# setwd("~/Desktop/fantastyczne_gole")
|
||
|
|
# make sure that have all packages installed (from dataCleaning.R)
|
||
|
|
|
||
|
|
# generate random data
|
||
|
|
random_data <- as.data.frame(x = rnorm(100),
|
||
|
|
y = rnorm(100, mean = 1, sd = 3))
|
||
|
|
|
||
|
|
# unit tests
|
||
|
|
expect_silent(
|
||
|
|
data <- get_shots(file_path = "data/events/events_England.json", name_detail = "EN")
|
||
|
|
)
|
||
|
|
|
||
|
|
expect_silent(
|
||
|
|
data <- get_shots2(json_file = "data/la_liga_events/ (1).json")
|
||
|
|
)
|
||
|
|
|
||
|
|
expect_error(
|
||
|
|
get_final_data(data = random_data)
|
||
|
|
)
|
||
|
|
|
||
|
|
data1 <- get_shots2(json_file = "data/la_liga_events/ (1).json")
|
||
|
|
data2 <- get_shots2(json_file = "data/la_liga_events/ (2).json")
|
||
|
|
|
||
|
|
expect_length(colnames(data1), 22)
|
||
|
|
expect_length(colnames(data2), 22)
|
||
|
|
expect_false(is.vector(data1))
|
||
|
|
expect_true(is.data.frame(data1))
|