Styjun

I ran the following code on data, which has 12 integer variable:

calculate_winnings <- function(data, time_durations) 
 require("data.table")

 calculate_winnings_loop_body <- function(i) 
 require("dplyr")

 beg <- time_durations[i]
 end <- time_durations[i + 1]

 these_games <- filter(data, gameDuration >= beg & gameDuration < end)

 team1_wins <- filter(these_games, winner == 1) %>% sum
 team2_wins <- filter(these_games, winner == 2) %>% sum

 data.frame(team1 = team1_wins, team2 = team2_wins)
 

 i <- 1
 Samples <- length(time_durations) - 1

 l <- lapply(1 : Samples, calculate_winnings_loop_body)
 rbindlist(l)


double_max <- .Machine["double.xmax"]
winnings <- calculate_winnings(data, c(180, 1200, 1500, 1800, 2100, double_max))

And errors:

Error in FUN(X[[i]], ...) : 
 only defined on a data frame with all 
numeric variables
In addition: Warning message:
NAs introduced by coercion to integer range 

I tried tracback():

15: stop("only defined on a data frame w
ith all numeric variables")
14: FUN(X[[i]], ...)
13: lapply(args, function(x) 
 x <- as.matrix(x)
 if (!is.numeric(x) && !is.comple
x(x)) 
 stop("only defined on a data
 frame with all numeric variables")
 x
 )
12: Summary.data.frame(list(gameDuration = integer(0), winner = integer(0), 
 firstBlood = integer(0), firstTower = integer(0), 
 firstBaron = integer(0), firstDragon = integer(0), 
 t1_towerKills = integer(0), t1_baronKills = integer(0), 
 t1_dragonKills = integer(0), t2_towerKills = integer(0), 
 t2_baronKills = integer(0), t2_dragonKills = integer(0)), 
 na.rm = FALSE)
11: function_list[[k]](value)
10: withVisible(function_list[[k]](value))
9: freduce(value, `_function_list`)
8: `_fseq`(`_lhs`)
7: eval(quote(`_fseq`(`_lhs`)), env, env)
6: eval(quote(`_fseq`(`_lhs`)), env, env)
5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
4: filter(these_games, winner == 1) %>% sum at debug.R.tmp.R#18
3: FUN(X[[i]], ...)
2: lapply(1:Samples, calculate_winnings_loop_body) at debug.R.tmp.R#34
1: calculate_winnings(data, c(180, 1200, 1500, 1800, 2100, double_max))

But I cannot understand why this happens.

Edit:

The data is downloaded from kaggle and then processed by:

comb <- function(vec1, vec2, sep = "") 
 ret <- c()

 for (str1 in vec1)
 for (str2 in vec2)
 ret <- c(ret, paste(str1, str2, sep = sep))

 ret


data <- read.csv("data/1_games.csv")
data <- data[, c("gameDuration", "winner",
 comb(c("first"), c("Blood", "Tower", "Baron", "Dragon")),
 comb(c("t1_", "t2_"), c("towerKills", "baronKills", "dragonKills"))
 )]
data <- data[data$gameDuration > 240, ]
data <- data[data$firstTower != 0, ]

Your double_max variable is a list and it is creating problems downstream.
If you want that, convert into numeric and rest of your code should work

double_max <- as.numeric(.Machine["double.xmax"])

Please check

Suggestion: Please move require outside of function