1 hour is equal to 3600 seconds ... then ...
# Vamos ler os dados
x <- unlist(strsplit("2:00:00 3:00:00 6:00:00 4:00:00 4:00:00 3:00:48 1:00:00 3:00:00 2:00:00 4:00:00 1:30:00 2:00:00 1:00:00 3:00:00 4:00:00 4:30:00 5:00:00 1:00:00 1:30:00 2:00:00 3:00:00 3:00:48 4:00:00 4:30:00", "[[:space:]]+"))
x
# [1] "2:00:00" "3:00:00" "6:00:00" "4:00:00" "4:00:00" "3:00:48" "1:00:00"
# [8] "3:00:00" "2:00:00" "4:00:00" "1:30:00" "2:00:00" "1:00:00" "3:00:00"
#[15] "4:00:00" "4:30:00" "5:00:00" "1:00:00" "1:30:00" "2:00:00" "3:00:00"
#[22] "3:00:48" "4:00:00" "4:30:00"
Let's use Split. Multiply the first number by 3600 and the second by 60 and the last by 1. And add them together, we can use a matrix multiplication for this.
sapply(strsplit(x, ":"), function(n) as.numeric(n) %*% c(3600, 60, 1))
Another alternative using POSIXct (subtracting midnight [seconds]):
as.numeric(strptime(x, format="%H:%M:%S") - as.POSIXct(format(Sys.Date())), units="secs")