# NOT RUN {
data(tromso)
# draw heatmap of player #9's position
p <- soccerHeatmap(subset(tromso, id == 9), bins = 15, lengthPitch = 105, widthPitch = 68)
# add arrow showing direction of play to the right
soccerDirection(p, "right", lengthPitch = 105, widthPitch = 68)
# }
Run the code above in your browser using DataLab