julien.R

library(readr)
library(dplyr)

raw_df <- read_delim("5262_FH CAPE TOWN_3.TXT",
                      delim = ",",
                      col_names = FALSE)

code3 <- raw_df %>%
  filter(X1 == 3) %>%
  mutate(ID = 1:nrow(.)) %>%
  select(ID, X1:X8)

code4 <- raw_df %>%
  filter(X1 == 4) %>%
  mutate(ID = 1:nrow(.)) %>%
  select(ID, X1:X11)

code5 <- raw_df %>%
  filter(X1 == 5) %>%
  mutate(ID = 1:nrow(.)) %>%
  select(ID, X1:X11)