Hello Shiny!

第一次需要安裝套件
install.packages("shiny")
library(shiny)

範例:
runExample("01_hello")


shiny 產出的目錄匣，裡面有兩個程式碼檔案
server.R
ui.R

範例: 建立一個Hello World 目錄以及兩個檔案
setwd("C:/NTUTrainRL2")
dir.create("HelloWorld")
file.create("HelloWorld/ui.R")
file.create("HelloWorld/server.R")

修改了 兩個內容
server.R
ui.R

將以下的程式碼貼入`HelloWorld/ui.R
shinyUI(fluidPage(

  titlePanel("Hello World!"),

  sidebarLayout(
    sidebarPanel(
      sliderInput("bins",
                  "Number of bins:",
                  min = 5,
                  max = 30,
                  value = 15)#change min/max/default
    ),

    mainPanel(
      plotOutput("distPlot")
    )
  )
))

#將以下的程式碼貼入`HelloWorld/server.R`
shinyServer(function(input, output) {

  output$distPlot <- renderPlot({
    x    <- faithful[, 2]
    bins <- seq(min(x), max(x), length.out = input$bins + 1)

    hist(x, breaks = bins, col = 'skyblue', border = 'white')#change col
  })
})


#完成後，就使用以下指令執行
runApp("HelloWorld")

#將結果公開
到 shinyapps.io 申請一個帳號 https://www.shinyapps.io/
之後可以將 輸出結果 連結至 shinyapps.io
將申請下來的 token code (rsconnect......)
貼到 RStudio Console 執行即可。

執行過  Token 之後，然後到編輯區，找到 Publish Applications
將內容上傳至 shinyapps.io