13. rCharts 描
1 r e q u i r e ( shiny )
2 r e q u i r e ( rCharts )
3 ui <? shinyUI ( f l u i d P a g e (
4 headerPanel ( ” I n t e r a c t i v e Charts ” ) ,
5 sidebarLayout (
6 s id eb a rP a ne l (
7 s l i d e r I n p u t ( ”obs ” , ”Number of o b s e r v a t i o n s : ” ,
8 min = 10 , max = 500 , value = 100)
9 ) ,
10 mainPanel (
11 # r C h a r t s S h i n y 用 O u t p u t 関 数 使
12 showOutput ( ”myChart” )
13 )
14 )
15 ))
ui 部分
@ksmzn Shiny 確率分布 学 作 January 17, 2015 13 / 23
14. rCharts 描
1 s e r v e r <? f u n c t i o n ( input , output ) {
2 output $myChart <? renderChart ({
3 # Polychart . j s 作
4 df1<?data . frame ( y=round ( rnorm ( input $obs , 0 , . 5 ) ,
d i g i t s =2))
5 p1 <? r P l o t ( x = ” bin ( y , 0 . 1 ) ” , y= ” count ( y ) ” , data
=df1 , type=” bar ” )
6 p1$addParams (dom = ’ myChart ’ )
7 r e t u r n ( p1 )
8 })
9 }
10
11 shinyApp ( ui = ui , s e r v e r = s e r v e r )
server 部分
@ksmzn Shiny 確率分布 学 作 January 17, 2015 14 / 23