inside-the-park home runs should have isBIP == TRUE

[beanumber]

inside-the-park home runs should have isBIP == TRUE

[beanumber]

library(openWAR)
library(openWARData)
MLBAM2013 %>% 
  select(description, isBIP, our.x, our.y) %>% 
  filter(grepl("inside-the-park", description))
                   description
1              Angel Pagan hits an inside-the-park home run (3) on a sharp fly ball to right-center field.   Brandon Crawford scores.  
2 Jason Kipnis hits an inside-the-park home run (13) on a fly ball to left field.   Michael Bourn scores.    Asdrubal Cabrera scores.  
3                                         Ian Kinsler hits an inside-the-park home run (11) on a line drive down the left-field line.  
4                          Carlos Santana hits an inside-the-park home run (17) on a fly ball to center field.   Jason Kipnis scores.  
5                                            Pedro Alvarez hits an inside-the-park home run (33) on a fly ball to right-center field.  
6                                                   Jordy Mercer hits an inside-the-park home run (8) on a line drive to right field.  
  isBIP       our.x    our.y
1 FALSE  134.042489 383.8841
2 FALSE -141.579415 331.2504
3 FALSE -186.676190 155.8547
4 FALSE    6.264134 418.9732
5 FALSE   86.450043 396.4124
6 FALSE  181.659892 318.7221