#' Get current Germany season data for all tiers
#'
#' @return a dataframe with results for current
#' season for top two divisions
#' @param Season the current Season
#' @importFrom utils "read.csv"
#' @examples
#' germany_current()
#' @export
germany_current <- function(Season=2022){
s1<-s2<-myseason<-b1<-b2<-df1<-NULL
myseason<-Season
s2<-as.numeric(substr(myseason,3,4))
s1 <- s2+1
b1=read.csv(paste0("https://www.football-data.co.uk/mmz4281/",s2,s1,"/D1.csv"))
b2=read.csv(paste0("https://www.football-data.co.uk/mmz4281/",s2,s1,"/D2.csv"))
df1 <- rbind(engsoccerdata::getCurrentData(b1,1,1,Season=myseason),engsoccerdata::getCurrentData(b2,2,2,Season=myseason))
df1$Date <- as.Date(df1$Date, format="%Y-%m-%d")
germ <- engsoccerdata::germany
if(identical(max(df1$Date), max(germ$Date))) warning("The returned dataframe contains data already included in 'germany' dataframe")
tm <- engsoccerdata::teamnames
df1$home <- as.character(tm$name[match(df1$home,tm$name_other)])
df1$visitor <- as.character(tm$name[match(df1$visitor,tm$name_other)])
df1<-df1[c(1:7,9,8)]
return(df1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.