Error reading player data for bowling stats

[linusjf]

library(cricketr)
library(cricketdata)
murali_id = find_player_id("Muttiah Muralitharan")$ID
murali <- getPlayerData(murali_id,dir=".",file="murali.csv",type="bowling",homeOrAway=c(1,2), result=c(1,2,4))
warne_id = find_player_id("Shane Warne")$ID
warne <- getPlayerData(warne_id,dir=".",file="warne.csv",type="bowling",homeOrAway=c(1,2), result=c(1,2,4))
kumble_id = find_player_id("Anil Kumble")$ID
kumble <- getPlayerData(kumble_id,dir=".",file="kumble.csv",type="bowling",homeOrAway=c(1,2), result=c(1,2,4))

Output:

Registered S3 method overwritten by 'quantmod':
  method            from
  as.zoo.data.frame zoo
Error in if (n[2] == "BPO") { : missing value where TRUE/FALSE needed
Calls: getPlayerData
Execution halted