add South Africa data

R/england_current.R

@@ -8,6 +8,11 @@
 #' england_current()
 #' @export
 
+england_current <-  function(Season=2017){
+  d <- england_current2(england_current1(Season=Season))
+  return(d)
+}
+
 england_current1 <- function(Season = 2017){
 
   #this function is completely  bonkers because of a weird thing with Forest Green / Lincoln  City ....
@@ -61,8 +66,4 @@ england_current2 <- function(df1) {
   return(df1)
 }
 
-england_current <-  function(Season=2017){
-  d <- england_current2(england_current1(Season=Season))
-  return(d)
-}
 

R/safrica.R

@@ -0,0 +1,21 @@
+#' South African league results 2002-2017
+#'
+#' All results for South African soccer games in top 4 tier
+#' from 2002/03 season to 2016/17 season.
+#'
+#' @format A data frame with 3672 rows and 12 variables:
+#' \describe{
+#'   \item{Date}{Date of match}
+#'   \item{Season}{Season of match - refers to starting year}
+#'   \item{home}{Home team}
+#'   \item{visitor}{Visiting team}
+#'   \item{FT}{Full-time result}
+#'   \item{hgoal}{Goals scored by home team}
+#'   \item{vgoal}{Goals scored by visiting team}
+#'   \item{division}{Division: 1,2,3,4 or 3a (Old 3-North) or 3b (Old 3-South)}
+#'   \item{tier}{Tier of football pyramid: 1,2,3,4}
+#'   \item{totgoal}{Total goals in game}
+#'   \item{goaldif}{Goal difference in game home goals - visitor goals}
+#'   \item{result}{Result: H-Home Win, A-Away Win, D-Draw}
+#' }
+"safrica"