Remove quotes from special characters in R

When I print pattern program in r ,

 char<-c("#","@")
m<- matrix(paste(char[1]),nrow  =4, ncol = 4)
print(m)

My output is

 [,1] [,2] [,3] [,4]
[1,] "#""#""#""#" 
[2,] "#""#""#""#" 
[3,] "#""#""#""#" 
[4,] "#""#""#""#"

But my desired output is # without quotations. I tried char method, I tried vector and I tried noquote function. But none worked for me. If anyone knows the solution, help me to solve.