R - Introducir datos de un bucle a una matriz

Buenas a tod@s!
Mirad tengo que hacer un one-hot encoding en R. Tengo el siguiente codigo:
one_hot <- function(x){
Aa <- c("A","R","N","D","C","Q","E","G","H","I","L","K","M","F","P","S","T","W","Y","V")
for (i in t(x)) {
for (y in Aa) {
if(i == "e" || i == "h" || i == "_") {
break
}
if (i==y){
print(c(floor(1)))
}
else {
print(c(floor(0)))
}
}
}
}

La codificación esta bien porque me sale el resultado correcto, pero no de la manera que quiero, puesto que mi interés es alojar los datos arrojados por los print a una matriz:

matrix(nrow=(nrow(data4)),ncol=20*17)

y que el header de la nueva matriz vaya de "V1" a "V340".
Muchas gracias por la ayuda.