【原】shiny學(xué)習(xí)筆記1---上傳數(shù)據(jù)

育種數(shù)據(jù)分析 2021-11-18

展開全文

Shiny簡(jiǎn)介

Shiny是RStudio公司開發(fā)的新包，有了它，可以用R語言輕松開發(fā)交互式web應(yīng)用。

Shiny特性

只用幾行代碼就可以構(gòu)建有用的web應(yīng)用程序—不需要用JavaScript。
Shiny應(yīng)用程序會(huì)自動(dòng)刷新計(jì)算結(jié)果，這與電子表格實(shí)時(shí)計(jì)算的效果類似。當(dāng)用戶修改輸入時(shí)，輸出值自動(dòng)更新，而不需要在瀏覽器中手動(dòng)刷新。
Shiny用戶界面可以用純R語言構(gòu)建，如果想更靈活，可以直接用HTML、CSS和JavaScript來寫。
預(yù)先構(gòu)建有輸出小工具，用來展示圖形、表格以及打印輸出R對(duì)象。
采用反應(yīng)式（reactive）編程模型，摒棄了繁雜的事件處理代碼，這樣你可以集中精力于真正關(guān)心的代碼上。
開發(fā)和發(fā)布你自己的Shiny小工具，其他開發(fā)者也可以非常容易地將它加到自己的應(yīng)用中

書寫本文檔初衷

以下幾種情況:

肯定是官網(wǎng)的cookbook看的廢掉了, 還是沒入門!
寫說明文檔的同事考慮過小白的感受么!
還是英文的, 我雖然看得懂, 但是…不想看啊!
我就想吃一個(gè)雞蛋, 你把雞的進(jìn)化史都扔過來了, 同理, 我只想看一下如何上傳數(shù)據(jù), 分析數(shù)據(jù), 下載結(jié)果, 然后你讓我學(xué)html, 學(xué)css, 學(xué)JavaScript…

ok, 吐槽結(jié)束.

1, 使用RStudio新建一個(gè)Shiny App

點(diǎn)擊新建, Shiny Web App

2, 命名為shiny-download

3, 運(yùn)行模型

點(diǎn)擊Run App

4, 查看app

5, 如何上傳數(shù)據(jù)呢

目的:

1, 上傳csv格式的數(shù)據(jù)
2, 上傳后數(shù)據(jù)打印head結(jié)果
3, 上傳后數(shù)據(jù)打印summary結(jié)果

shinydashboard使用指南
這是非常友好的可以生成ui界面, 結(jié)構(gòu)如下:
dashboardPage # 定義整個(gè)界面, 分為三部分

1, dashboardHeader #標(biāo)題
2, dashboardSidebar #導(dǎo)航欄
3, dashboardBody # 主界面欄

library(shiny)
library(data.table)
library(shinydashboard)

ui = dashboardPage(
    dashboardHeader(title = "如何上傳數(shù)據(jù)"),
    dashboardSidebar(
        menuItem("上傳數(shù)據(jù)",tabName = "a"),
        br(),
        menuItem("head結(jié)果",tabName = "b"),
        br(),
        menuItem("summary結(jié)果",tabName = "c")
    ),
    dashboardBody(
        tabItems(
            tabItem(tabName = "a",fileInput("dat","上傳csv文件",accept = ".csv")),
            tabItem(tabName = "b",tableOutput('head')),
            tabItem(tabName = "c",verbatimTextOutput("summary"))
        )
    )
)

server <- function(input, output) {

    d1 <- reactive({
        inFile1 <- input$dat
        if (is.null(inFile1)) return(NULL)
        fread(inFile1$datapath)
    })

    output$head <- renderTable({
        dat= d1()
        head(dat)
    })

    output$summary <- renderPrint({
        dat= d1()
        summary(dat)
    })

}
shinyApp(ui = ui, server = server)