library(praise)
praise()
shell.exec('002-1.mp3')

lop<-TRUE
library(praise)
praise()
shell.exec('002-1.mp3')
print(sample(1:99,19,replace=F))
plot(1:10,sample(1:10,10,replace=F)) #Rscript cannot execute!
cc<-runif(99,2,299);cc1<-round(cc);cc1
cc2<-as.data.frame(table(cc1));cc2
library(wordcloud2)
wordcloud2(cc2) #Rscript cannot execute!
dd<-'作战中心？那是什么？江淼不解地看着面前的两位军官。
　　接汪淼的汽车驶进了城市近郊的一座大院，从那只有门牌号码没有单位名牌的大门，汪淼知道这里是军方而不是警方的地盘。
　　会议是在一个大厅里举行的，汪淼一进去就对这里的纷乱吃惊不小。大厅周围是一圈胡乱安放的电脑设备，有的桌子上放不下就直接搁地板上，电线和网线纠缠着散在地上；一大摞网络交换机没有安在机架内，而是随手堆放在服务器上；有好几个投影仪的大屏幕，在大厅的角落里呈不同角度随意立着，像吉普赛人的帐篷；烟雾像晨雾般在半空浮了一层……汪淼不知道这是否就是那名军官所说的作战中心，有一点他可以肯定：这里在处理的事情，已经让人们顾不上其他了。
　　临时拼凑的会议桌上也是堆满了文件和杂物，与会者大多神情疲惫，衣服皱巴巴的，有领带的都扯开了，好像熬了一夜。主持会议的是一位叫常伟思的陆军少将，与会者有一半是军人。经过简单的介绍，他知道还有少部分警方人员，其他的人都是和他一样参加会议的专家学者，其中有几位还是很有名望的科学家，而且是研究基础科学的。'
library(jiebaR)
dd1<-worker()[dd]
dd2<-as.data.frame(table(dd1));
dd2de<-dd2[dd2$dd1=='的',]
dd2<-dd2[-as.numeric(rownames(dd2de)),]
dd2
wordcloud2(dd2,shape='circle')