I have a dataframe with with three populated columns (Submitted_Name, Status, Accepted_Name) and one empty column (Flag).
data.pre <- data.frame( \'Submitted_N