エヴァっぽいプログレスバーが作りたくて
以下をコピペでインストール devtoolsをインストールしてなかったらそれもインストール
# install.packages("devtools")
devtools::install_github("amafuro/ProgressEbar")
Progress.Ebar()の引数をいじれば色々プログレスバーをカスタマイズ出来ます.
#style1,2 is prototypes. Main style is 3.
#style4 is textProgressbar.
#Progress.Ebar(min = 0,max = 1,style = 3,
#char = "/",char.color = "cyan",
#bgchar = "/",bgchar.color = "red",
#text = "逃げちゃだめだ ",text.color = "blue)
library(ProgressEbar)
n<-100
pe<-Progress.Ebar(min = 1,max = n,style = 3)
for (i in seq(n)) {
set.PE(pe,i)
Sys.sleep(1 / 100)
}
おまけでパッケージ「patchwork」で作図したオブジェクトに楽にラベリングできる関数つけました.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.