#*********************************************
#*********************************************
#' Writes all tournaments in the interval 't' (given as a two element vector c(yyyymmdd,yyyymmdd)) to one excel file.
#'
#' @return
#'
#' @examples
#' \dontrun{}
#'
#' @importFrom TSD chars
#'
#' @export
#' @rdname writeTournaments_new
#'
writeTournaments_new<-function(t="all",file=NULL){
############ AUTHOR(S): ############
# Arne Johannes Holmin
############ LANGUAGE: #############
# English
############### LOG: ###############
# Start: 2012-01-04 - Clean version.
########### DESCRIPTION: ###########
# Writes all tournaments in the interval 't' (given as a two element vector c(yyyymmdd,yyyymmdd)) to one excel file.
########## DEPENDENCIES: ###########
# get.points_fantasyNBA()
############ VARIABLES: ############
# - 't' is a two element vector c(yyyymmdd,yyyymmdd) specifying the time period (including the end points).
# - 'file' is the name of the file to be written. If missing, file="/Users/arnejohannesholmin/Documents/Diverse/Bordhockey/FantasyNBA/Tournaments excel/AllTournaments.xls".
##################################################
##################################################
##### Preparation #####
# All tournaments are located in the same directory, and read according to the date:
dir=file.path(Sys.getenv("HOME"),"Documents/Diverse/Bordhockey/FantasyNBA/Tournaments")
# Set the default file:
if(length(file)==0){
file =file.path(Sys.getenv("HOME"),"Documents/Diverse/Bordhockey/FantasyNBA/Handouts new/AllTournaments.xls")
}
##### Execution #####
# Get the points acheived using the parameters specified:
datT=get.points_fantasyNBA(dir,pow=c(3,3,2,1,1,1),w=c(32,32,31,28,20,14),t=t)$tournaments
datT=lapply(datT,function(x) cbind(Rank=as.numeric(x[,1]),x[,2:4],as.data.frame(apply(x[,c(5:8)],2,as.numeric))))
# Order decreasing chronologically and add suited names:
datT=datT[order(substr(names(datT),1,8),substr(names(datT),10,18),decreasing=TRUE)]
names(datT)=gsub("/","-",names(datT),fixed=TRUE)
names(datT)=paste(substr(names(datT),1,4),substr(names(datT),5,6),substring(names(datT),7),sep="-")
##### Output #####
# Write the tournaments:
for(i in seq_along(datT)){
write.table(array(c(names(datT)[i],"","","","","","",""),dim=c(1,8)),file,append=i>1,sep="\t",row.names=FALSE,col.names=FALSE)
suppressWarnings(write.table(datT[[i]],file,append=TRUE,sep="\t",row.names=FALSE,dec=","))
if(i<length(datT)){
suppressWarnings(write.table(chars(1,8),file,append=TRUE,sep="\t",row.names=FALSE,col.names=FALSE))
}
}
##################################################
##################################################
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.