บทนำ

กรณีศึกษา: การสร้างเว็บแอปพลิเคชันด้วย Shiny ใน R

Dean Attali

Shiny Consultant

ภาพรวมคอร์ส

ต้องมีความรู้ Shiny เบื้องต้น
ทบทวนแนวคิดสำคัญของ Shiny
พัฒนาแอปหลายตัวสำหรับสถานการณ์จริง
ฝึกซ้ำฟีเจอร์สำคัญเพื่อเพิ่มความคุ้นเคย
เรียนรู้ฟีเจอร์ใหม่และแนวปฏิบัติที่ดี

เทมเพลตแอป Shiny

library(shiny)

ui <- fluidPage()

server <- function(input, output) {}

shinyApp(ui = ui, server = server)

โหลดแพ็กเกจ shiny
สร้างหน้าเว็บด้วย fluidPage() — ส่วน UI ของแอป Shiny
สร้างส่วน server ของแอป — ที่อยู่ของ logic การทำงาน
รวม UI + server เข้าด้วยกันเป็นแอป Shiny แล้วรัน

การเพิ่มข้อความใน Shiny

เพิ่มข้อความเป็น argument ให้ fluidPage()
```
ui <- fluidPage(
    "Hello there" 
)
```
ผลลัพธ์: หน้าเว็บที่แสดงข้อความ "Hello there"
fluidPage() รับ argument ได้ไม่จำกัดจำนวน

ui <- fluidPage(
    "Hello",
    "there"
)

การจัดรูปแบบข้อความ

h1()

h2()

strong()

em()

หัวข้อหลัก

หัวข้อรอง

ตัวหนา

ตัวเอียง (emphasized)

การจัดรูปแบบข้อความ

ui <- fluidPage(
    h1("SHINY COURSE"),
    "by",
    strong("Dean Attali"),
)

SHINY COURSE

by Dean Attali

เลย์เอาต์แบบ Sidebar

chapter1_1_introduction.027.png

เลย์เอาต์แบบ Sidebar

chapter1_1_introduction.028.png

เลย์เอาต์แบบ Sidebar

chapter1_1_introduction.029.png

เลย์เอาต์แบบ Sidebar

chapter1_1_introduction.030.png

ui <- fluidPage( 
    sidebarLayout(
        sidebarPanel(
            "This is the sidebar"
        ),
        mainPanel(
            "Main panel goes here"
        )
    )
)

มาฝึกกันเถอะ!

กรณีศึกษา: การสร้างเว็บแอปพลิเคชันด้วย Shiny ใน R