[r] Conditionally Remove Dataframe Rows with R