ShinyApp 在给定条件下自动更改数据集

Question

我有一个 shinyApp 可以根据数据生成两种不同类型的图。 这些数据完全相同（变量和列），除了其中一个是原始的，另一个是离散的。

现在我有一个应用程序，每次你想更改绘图类型时，你都需要手动更改数据集。 因此，您将上传一个或另一个数据集（原始数据集或离散化数据集），具体取决于您要获取的图。

如果您选择一种或另一种类型的数据，我想要一个自动更改数据的应用程序。

例如，假设我上传了原始数据（例如鸢尾花数据集），然后我点击boxplot 获取两个给定变量， 但是，我想获得相同变量的离散版本的barplot，因此 shinyApp 应该能够自动更改数据集。

这可能吗？

这里有基本的 RepEx。

# Shiny
library(shiny)

# Data
library(readxl)
library(dplyr)

# Plots
library(ggplot2)




not_sel <- "Not Selected"

ui <- navbarPage(
  tabPanel(
    title = "Plotter",
    sidebarLayout(
      sidebarPanel(
        title = "Inputs",
        fileInput("xlsx_input", "Select XLSX file to import", accept = c(".xlsx")),
        selectInput("num_var_1", "Variable X axis", choices = c(not_sel)),
        selectInput("num_var_2", "Variable Y axis", choices = c(not_sel)),
        prettyRadioButtons(
          inputId = "graph_selection",
          label = "Choose:", 
          choices = c("Boxplot", "Barplot")
        ),
        actionButton("run_button", "Run Analysis", icon = icon("play"))
      ),
      mainPanel(
        tabsetPanel(
          tabPanel(
            title = "Plot",
            plotOutput("sel_graph")
          )
        )
      )
    )
  )
)



# Server

server <- function(input, output, session){
  
  # Dynamic selection of the data
  data_input <- reactive({
    #req(input$xlsx_input)
    #inFile <- input$xlsx_input
    #read_excel(inFile$datapath, 1)
    iris
  })
  
  # We update the choices available for each of the variables
  observeEvent(data_input(),{
    choices <- c(not_sel, names(data_input()))
    updateSelectInput(inputId = "num_var_1", choices = choices)
    updateSelectInput(inputId = "num_var_2", choices = choices)
  })
  
  num_var_1 <- eventReactive(input$run_button, input$num_var_1)
  num_var_2 <- eventReactive(input$run_button, input$num_var_2)
  

  ## Obtain plots dynamically --------------------------------------------------
  #Boxplot
  draw_boxplot <- function(data_input, num_var_1, num_var_2){
    ggplot(data = data_input, aes(x = .data[[num_var_1]], y = .data[[num_var_2]])) +
      geom_boxplot() + 
      theme_bw()
  }
    ## Barplot
  draw_barplot <- function(data_input, num_var_1, num_var_2){
    ggplot(data = data_input, aes(x = Var1, y = Freq, fill = Var2, label = round(Freq, 3))) +
      geom_bar(stat = "identity") +
      ylim(0, 1) +
      theme_bw()
  }
    
  ## BoxPlot -------------------------------------------------------------------
  
  plot_1 <- eventReactive(input$run_button,{
    req(data_input(), num_var_1(), num_var_2())
    draw_boxplot(data_input(), num_var_1(), num_var_2())
  })
  
  # Create another plot for display --------------------------------------------
  plot_2 <- eventReactive(input$run_button,{
    req(data_input(),input$num_var_2)
    draw_barplot(data_input(), num_var_1(), num_var_2())
  })
  
  graphInput <- reactive({
    switch(input$graph_selection,
           "Boxplot" = plot_1(),
           "Barplot" = plot_2()
    )
  })
  
  
  output$sel_graph <- renderPlot(
      graphInput()
  )
 
}


shinyApp(ui = ui, server = server)

Answer 1

所以“考虑到一些用户输入，Shiny 是否有可能在您的计算机上自行查找数据集” - 也许。下面是一些可能的解决方案和注意事项。

如果你的应用只在本地使用

如果你只打算在本地使用 Shiny，很容易让用户为文件夹提供一个字符串，Shiny 可以在其中导入它需要的所有文件。只要文件具有标准化的名称格式，就可以直接通过逻辑来匹配正确的输入和正确的绘图。

请注意，您不能对 fileInput() 执行此操作，因为它只存储文件名，而不是文件的完整路径。

如果您的应用程序可能托管在某个地方

如果您想托管您的应用程序而不是在本地运行它，情况会变得更糟。然后，Shiny 只能访问运行它的计算机上的文件。那么最好的选择可能是让用户使用fileInput(..., multiple = TRUE) 上传多个文件。同样，鉴于名称是标准化的，您可以制定一些逻辑来将正确的数据与正确的图联系起来。