在R的互動是網頁中必須安裝Shiny套件，如何安裝套件在第二篇資料的視覺化有明確說明，而我們以最簡單的例子來說明，在網頁有輸入框及選擇縣市，當我輸入文字及選擇縣市時右側會顯示，成果如下圖
萬丈高樓平地起，不起眼的程式卻蘊涵絕妙的上乘武功心法，首先開一個新檔名為app.R，程式如下
library(shiny)
ui <- fluidPage(
titlePanel("This is a demo"),
sidebarLayout(
sidebarPanel(
textInput("txtInput","Input the text to display"),
selectInput("slctInput","Select the country you live in",choices = c("高雄","台中","台北","台南"))
),
mainPanel(
paste("You are entering"),
textOutput("txtOutput"),
textOutput("countryOutput")
)
)
)
server <- shinyServer(function(input,output){
output$txtOutput <- renderText({
paste(input$txtInput)
})
output$countryOutput <- renderText({
paste(input$slctInput)
})
})
shinyApp(ui = ui, server = server)
上面就Shiny網頁的基本語法，不論你要從頭寫還是要複製貼上，上述程式都是一個基本的模板，了解這個基本模板你在參閱一些網路大神作品，你才能使用吸星大法納為己有，首先看下圖三個紅框
上圖1-3的紅框是基本架構ui變數是宣告網頁有甚麼東西正如變數名稱，而server也就網頁所輸入的東西交給後台進行運算，其實跟一般Web架構差不多的概念，而至於第三個紅框很重要將ui及server所撰寫的東西交給shiny涵式進行運算，第四個紅框就是執行所有的結果並以網頁呈現。
而對於語法而言，很簡單說明如下
1.fluidPage:建立一個網頁介面
2.titlePanel("This is a demo")告訴頁抬頭是甚麼
3. sidebarLayout()：告訴網頁我要右側開一個網頁
4.sidebarPanel():告訴網頁建立一個面板
5.面板內包含textInput()及selectInput()
mainPanel():主要將textInput()及selectInput()兩個涵式宣告變數即告訴此兩個變數為textOutput類型涵式，裡面為變數名稱。
shinyServer(function(input,output):告訴shiny涵式會有input也就是ui的兩個變數，以及運算後要輸出的值就是output。
output$txtOutput <- renderText({
paste(input$txtInput)
})
在運算部分在shiny使用renderText，而上述為ui的變數所執行的內容，若ui有兩個輸入項，在server就需以上的方式進行處理。
shinyApp(ui = ui, server = server)，因為本程式使用ui及server作為變數名稱，當然你的ui及server的名稱可自取，相對shinyApp()函式的等於就是您設定的變數。
今天先到這邊寫太多，就太雜了。
下一篇見!
沒有留言:
張貼留言