http shiny rstudio comgallerykmeansexample html http shiny rstudio

サンプル • http: //shiny. rstudio. com/gallery/kmeansexample. html • 他にも色々見たい場合 http: //shiny. rstudio. com/gallery/

解説: レイアウト Ui. R →　shiny. UI(fluid. Page(　←　レイアウトの設定 他にも色々あるよ!!! http: //shiny. rstudio. com/articles/layout-guide. html

解説: レイアウト title. Panel sidebar. Panel main. Panel

つまりぃ･･･ server. R Ui. R • shiny. UI(fluid. Page( • title. Panel("Old Faithful Geyser Data") • • sidebar. Layout( sidebar. Panel( , bins slider. Input(" ", “Number of bins: ”, 　　　　　　　　 min = 1, max = 50, value = 30) • • • , • ) 　　　 • main. Panel( • • shiny. Server(function(input, output) { ) )) ) plot. Output("dist. Plot") dist. Plot <render. Plot({ output$ x <- faithful[, 2] bins <- seq(min(x), max(x), length. out = input$bins + 1) hist(x, breaks = bins, col = 'darkgray', border = 'white') }) })

もっと色々正確に知りたい!! インターフェースについて http: //qiita. com/hoxo_m/items/8 a 138429 d 8 d 995440020 ウィジェットについて http: //qiita. com/hoxo_m/items/8 e 84 eb 67 c 44 afebe 4 d 24 出力について http: //qiita. com/hoxo_m/items/5 0 c 6541 ad 5 a 475 a 6736 b

Server. R # This is the server logic for a Shiny web application. # You can find out more about building applications with Shiny here: # # http: //shiny. rstudio. com # library(shiny) shiny. Server(function(input, output) { output$text <- render. Text({ paste("今の自分の気分はいつもより", input$bins , "倍" , input$radio) }) })

ui. R # This is the user-interface definition of a Shiny web application. # You can find out more about building applications with Shiny here: # # http: //shiny. rstudio. com # library(shiny) shiny. UI(fluid. Page( # Application title. Panel("11月6日黄プロジェクト問題"), # Sidebar with a slider input for number of bins sidebar. Layout( sidebar. Panel( slider. Input("bins", "何倍? ", min = 100, max = 1000, value = 500), radio. Buttons("radio", label = h 3("気分は？"), choices = list("最高" = "最高", "早く帰りたい" = "早く帰りたい", "もう授業終われ" = "もう授業終われ"), selected = "最高") ),

ui. R # Show a plot of the generated distribution main. Panel( text. Output("text") ) ) ))