R/getPlayerDataOD.R

In cricketr: Analyze Cricketers and Cricket Teams Based on ESPN Cricinfo Statsguru

##########################################################################################
# Designed and developed by Tinniam V Ganesh
# Date : 6 Mar 2017
# Function : getPlayerDataOD
# This function gets the One Day data of batsman/bowler and returns the data frame. This data 
# frame can # stored as a CSV file for use in other functions
##########################################################################################
getPlayerDataOD <- function(profile,opposition="",host="",dir="../",file="player001.csv",type="batting",
                          homeOrAway=c(1,2,3),result=c(1,2,3,5)) {
    
    # Initial url to ""
    url <-""
    suburl1 <- "https://stats.espncricinfo.com/ci/engine/player/"
    # Get the One day data
    suburl2 <-"?class=2;"
    suburl3 <- "template=results;"
    suburl4 <- "view=innings"
    
    #Set opposition
    theOpposition <-paste("opposition=",opposition,";",sep="")
    # Set host country
    hostCountry <- paste("host=",host,";",sep="")
    
    # Create a profile.html with the profile number
    player <- paste(profile,".html",sep="")
    
    # Set the home or away
    str1=str2=str3=""
    if(sum(homeOrAway == 1)==1){
        str1 ="home_or_away=1;"
    }
    if (sum(homeOrAway == 2)==1) {
        str2="home_or_away=2;"
    }
    if (sum(homeOrAway == 3)==1) {
        str3="home_or_away=3;"
    }
    HA<-paste(str1,str2,str3,sep="")
    
    # Set the type batting or bowling
    t <- paste("type=",type,";",sep="");
    
    # Set the result based on input
    str1=str2=str3=str4=""
    # Won
    if(sum(result==1)==1){
        str1 ="result=1;"
    }
    # Lost
    if(sum(result==2)==1){
        str2 ="result=2;"
    }
    # Tied
    if(sum(result==3)==1){
        str3 ="result=3;"
    }
    if(sum(result==5)==1){
        str4 ="result=5;"
    }
    result<- paste(str1,str2,str3,str4,sep="")
    
    # Create composite URL
    url <- paste(suburl1,player,suburl2,hostCountry,theOpposition,HA,result,suburl3,t,suburl4,sep="")
    
    
    # Read the data from ESPN Cricinfo
    tabs <- GET(url)
    tables=readHTMLTable(rawToChar(tabs$content),stringsAsFactors = F)
    
    # Choose appropriate columns
    t <- tables$"Innings by innings list"
    
    if(type=="batting") {
        cols <- c(1:9,11,12,13)
    } else if (type=="bowling") {
        # Check if there are the older version of 8 balls per over (BPO) column
        n <- names(t)
        
        # Select BPO column for older bowlers
        if(n[2] =="BPO") {
            cols <- c(1:8,10,11,12)
        }
        else {
            cols <- c(1:7,9,10,11)
        }
    }
    
    s <- t[,cols]
    
    
    dir.create(dir,mode="0777",showWarnings=FALSE)
    file <-paste(dir,file,sep="/")
    
    file.create(file)
    
    # Write to file 
    write.csv(s,file=file)
    
    # Return the data frame
    s
    
}