# 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
}
```
生活、成长记录
# 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
}
```