用R语言praise包写赞美之词

# praise包
```{r}
library(praise)
gr = list()
for(i in 1:50){
  gr[i] <-  praise()
}
write.table(gr,file = "gr.txt")

a <- 0
repeat{
  cat(praise(),"\n")
  a=a+1
   if (a > 100) break

}

```