Измените выравнивание лестницы в R

Question

Я пытаюсь сделать лестницу заданной длины n, используя следующую функцию:

hash<-function(n){
  for (i in 1:n){
    v1=c()
    #j=1
    for (j in 1:i){
      v1=paste("#",v1,sep="")
    }
    cat(v1,"\n")
  }
}

Но я хочу, чтобы это было правильно. Что я получаю это:

 # 
 ## 
 ### 
 #### 
 ##### 
 ######

Мне было интересно, могу ли я получить какую-то помощь, как настроить его по-другому? Спасибо за помощь.

Answer 1

n=6
for (i in 1:n) {
  v1=c()
  v2=c()
  for (j in i:n-1) {
     v1=paste(" ",v1,sep="")
  }
  for (k in i:1) {
     v2=paste("#",v2,sep="")
  }
  cat(v1,v2,"\n")
}