empty_df <- data.frame(colname1 = integer(), colname2 = character(), colname3 = integer(), colnamen = integer())