knitr::opts_chunk$set(echo = TRUE) library(retrosheet)
Here are the baseball teams that were competing in 2012.
getTeamIDs(2012)
Some of the parks they played in were: r paste(head(getParkIDs()$NAME, 10), collapse =", ")
Here are the games that happened on April Fool's Day, 2018.
getPartialGamelog(glFields=grep("HR|RBI|Park", gamelogFields, value = TRUE), date = "20180401")
These are the bulky ones, I just cut and paste them from the test file.
schedule_1 <- getRetrosheet("schedule", 1995, cache = "testdata") schedule_1a <- getRetrosheet("schedule", 1995, cache = "testdata/") # Test with trailing slash roster_1 <- getRetrosheet("roster", 1995, cache = "testdata") game_1 <- getRetrosheet("game", 2012, cache = "testdata") play_1 <- getRetrosheet("play", 2012, "SFN", cache = "testdata")
This is the end of the testing markdown file
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.