色つき円盤を指定時間回す

  • 確率事象をビジュアルに説明する企画(こちら)のためのメモ
k<-24
col<-rainbow(k)

dur<-10 # 継続時間

rateParam<-0.01 # 1メモリ分の時間

currentTime<-Sys.time()
while(Sys.time()-currentTime < dur){
	col<-c(col[2:k],col[1])
	pie(rep(1, k), col = col, radius = 0.9)
	tmpCurrent<-Sys.time()
	while(Sys.time()-tmpCurrent<rateParam){
		
	}
}