构建一个"Hello, world"Shiny 应用

使用 R 构建 Shiny Web 应用

Kaelen Medeiros

Data Scientist

Shiny 应用的组成部分

library(shiny)

ui <- fluidPage()

server <- function(input, 
                   output, 
                   session) {

}

shinyApp(ui = ui, server = server)

加载 shiny
用一个 HTML 函数创建 UI
定义自定义函数以创建 server
运行应用

Hello, world!!!

library(shiny)

ui <- fluidPage(
    "Hello, world!!!"
)

server <- function(input, output, 
                   session) {

}

shinyApp(ui = ui, server = server)

一个空白网页，显示字符串"Hello, world!!!"

提问（带输入！）

ui <- fluidPage(
    textInput("name", "Enter a name:"),

    textOutput("q")

)

server <- function(input, output) {

    output$q <- renderText({
        paste("Do you prefer dogs 
                    or cats,", 
              input$name, "?")
      })

}

一个网页应用：用户输入姓名后显示"您更喜欢狗还是猫，姓名？"

Passons à la pratique !

使用 R 构建 Shiny Web 应用