为什么闪亮的仪表板加载时间过长？

Question

目标

嗨，我有两个数据集。我想通过使用radioButtons在shinydashboard中一次选择一个。

问题

在app.R文件，我首先加载两个数据集（71 MB和103 MB的大小）。下面的代码工作，只需要几秒钟的应用负载：

工作代码：

library(shiny) 
library(dplyr) 
library(shinydashboard) 

# Global 
df10151 <- read.csv("Data/df1015.csv", header = TRUE) 
df8051 <- read.csv("Data/df805.csv", header = TRUE) 

# UI 
ui <- dashboardPage(
    dashboardHeader(title = "Driving States"), 
    dashboardSidebar(
    sliderInput("fid", "Frame ID:", 
       min = 0, max = 50, value = 3, step = 0.1 
    ))) 

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


} 

shinyApp(ui, server) 

但是，当我加入radioButtons，它永远需要并不会加载：

代码失败：

library(shiny) 
    library(dplyr) 
    library(shinydashboard) 

    # Global 
    df10151 <- read.csv("Data/df1015.csv", header = TRUE) 
    df8051 <- read.csv("Data/df805.csv", header = TRUE) 

    # UI 
    ui <- dashboardPage(
     dashboardHeader(title = "Driving States"), 
     dashboardSidebar(
     radioButtons("radio", label = h3("Select the Dataset (first 5 minutes)"), 
       choices = list("US-101" = df10151, "I-80" = df8051), 
       selected = NULL),   

     sliderInput("fid", "Frame ID:", 
        min = 0, max = 50, value = 3, step = 0.1 
     ))) 

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


    } 

    shinyApp(ui, server) 

没有错误信息。我究竟做错了什么？

Answer 1

我不知道你想绘制到底是什么，所以这里有一个例子：

单选框在ui.R会像：

radioButtons("radio", label = h3("Select the Dataset (first 5 minutes)"), 
       choices = c("US-101" = 1, "I-80" = 2), 
       selected = 1) 

为server.R你需要的东西，如：

output$plot = renderPlot({ 
     switch(input$radio, 
     `1` = hist(df10151$Var), 
     `2` = hist(df8051$Var) 
})