Nothing
penaltyPrint <-
function(player, goalkeeper = TRUE, exact = TRUE, pendat, includeMisses = TRUE)
{
pensel = pendat[findPlayerSet(player, goalkeeper, exact, pendat), ]
if (!includeMisses) pensel = pensel[pensel$result == 'Tor' | pensel$result == 'gehalten', ]
pensel
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.