Reading Table in R

Question

I am trying to read the data from this table:

.

I want to make a vector for each category with its corresponding width. So I'm trying to get a vector for highway showing [315.31 105.37 213.13] and a vector for commerical showing [420.13 343.36]. Any help would be greatly appreciated. Also I read in the file as a .csv file (seen below).

roads <- read.csv("D:\\Users\\John\\Documents\\R\\roads.csv", header = TRUE)