R 如何在降价中添加空白。表需要在其上方生成空间

我试图通过R为发布版GitHub API主体参数创建一个降价脚本。它工作正常，但由于表上方需要一个空间，因此不会生成表。请在下面找到可复制代码

test<-c("a/1","b/2")

for(i in 1:length(test)){
        if(i==1){
          body<-append(paste0("| Unique Identifier | Version |\n| ----------- | ----------- |\n"),
                       paste0("| ",strsplit(test[i], "/")[[1]][1]," | ",strsplit(test[i], "/")[[1]][2]," |\n"))
        }else{
          body<-append(body,
                       paste0("| ",strsplit(test[i], "/")[[1]][1]," | ",strsplit(test[i], "/")[[1]][2]," |\n"))
        }
       }
      
      body<-(markdown(append("testing for the final",body)))
      print(body)

测试
<p>testing for the final
| Unique Identifier | Version |
| ----------- | ----------- |
| a | 1 |
| b | 2 |</p>