The code part 1: The RMarkdown file

```{r generate table, include = FALSE}

library(dplyr)
library(httr)
library(rvest)
library(data.table)
library(mgsub)
library(knitr)
library(kableExtra)

#GET HTML page and transfer it to tables
rlo <- httr::GET("http://baseballaustria.com/regionalliga-ost/")
rlo <- xml2::read_html(rlo)

#read out "table node"
schedule <- rvest::html_nodes(rlo, css = "table")[2]

#Get the raw schedule
schedule <- rvest::html_table(schedule)
schedule <- data.table::rbindlist(schedule)

#Some data wrangling to get what we need
schedule <- schedule[Home == "Rohrbach Crazy Geese" | Away == "Rohrbach Crazy Geese"]

#Get Date and Time from Date column
schedule[, Date_new := strptime(schedule$Date, format = '%Y-%m-%d %H:%M:%S')]

schedule[, Datum := format(schedule$Date_new, "%d.%m.%Y")]
schedule[, Beginn := format(schedule$Date_new, "%H:%M")]


#Format the location
schedule[Field %like% "Rohrbach", Field := "Rohrbach"]
schedule[Field %like% "Schwechat", Field := "Rannersdorf"]
schedule[Field %like% "Spenadlwiese", Field := "Spenadlwiese - Wien"]
schedule[Field %like% "Schrems", Field := "this really works"]

#select the columns we want
schedule <- select(schedule, -Date_new)

#Format the team names
schedule <- as.data.table(lapply(schedule, function(x) {
mgsub(x, c("Rohrbach Crazy Geese", "Schwechat Blue Bats"), c("Crazy Geese", "Blue Bats"))
}))

#find rows which have results
results <- grepl(" - ", schedule$`Time/Results`)

schedule[results, Ergebnis := `Time/Results`]
schedule[!results, Ergebnis := " - "]

#select the columns we want
schedule <- select(schedule, Datum, Beginn, Heim = Home, Gast = Away, Spielort = Field, Ergebnis)

#Vector to decide which lines should be blue
blue_rows <- which(schedule$Spielort == "Rohrbach")

schedule_format <- kable(schedule, align = c(rep("c", 6))) %>%
kable_styling(bootstrap_options = c("responsive")) %>%
row_spec(blue_rows, color = "#01023C")

""`

**Regular Season**

```{r show the table , echo = FALSE}
schedule_format
```

**Heimspiele sind blau markiert**