上传带有操作按钮的 csv 文件并显示校正图

Question

我试图用 R::shiny 制作一个网络应用程序，但我遇到了一段代码的问题。的确，我想上传一个csv文件并显示相关图。

我尝试使用 actionbutton() 设置相关图，然后使用 updateSelectizeInput()

但是发生了错误：

Error: Unsupported index type: NULL

有人有解决办法吗？谢谢

注意 - 我不想使用 fileInput 小部件上传 csv 文件！仅通过操作按钮 !

library(shiny)
library(readr)
library(corrplot)
library(DT)


# File used for the example
data(iris)
write.csv(x = iris, file = "iris.csv")


#UI
ui <- shinyUI(
  fluidPage(
    navbarPage(
      id = "navbar",
      tabPanel(
        title = "UPLOAD",
        br(),
        actionButton(inputId = "file", label = "ADD A FILE")
      )
    )
  )
)

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

  path <- reactiveValues(pth = NULL)

  file.choose2 <- function(...) {
    pathname <- NULL;
    tryCatch({
      pathname <- file.choose();
    }, error = function(ex) {
    })
    pathname;
  }

  observeEvent(input$file,{
    path$pth <- file.choose2()
  })

  observeEvent(input$file,  {
    newvalue <- "B"
    updateNavbarPage(session, "navbar", newvalue)
  })

  data <- reactive({
        df <- readr::read_csv(file = path$pth)
        return(df)
  })

  observeEvent(input$file,  {
    appendTab(
      inputId = "navbar",
      tabPanel(
        value = "B",
        title = "Corr",
        sidebarLayout(
          sidebarPanel(
            selectizeInput(
              inputId = "select04",
              label = "Select features",
              choices = NULL,
              multiple = TRUE)
          ),
          mainPanel(
            plotOutput(
              outputId = "corrplot01", height = "650px")
          )
        )
      )
    )
  }, once = TRUE)

  # I suppose there is a problem with this line
  observeEvent(input$select04, { 
    col <- names(data())
    col.num <- which(sapply(data(), class) == "numeric")
    col <- col[col.num]
    updateSelectizeInput(session = session, inputId = "select04", choices = col)
  })

  output$corrplot01 <- renderPlot({ 
    df <- data()
    df1 <- df[,input$select04]
    corr <- cor(x = df1, use  = "pairwise.complete.obs")
    corrplot(corr = corr, 
             title = "")
  })
}

shinyApp(ui, server)

Answer 1

我对你的 ui 和服务器做了一些改动，但我认为这可能会解决你的问题。

我从服务器上删除了observeEvent(input$file, ...{})，直接在Ui中添加了ui部分。

我还在 data 反应中添加了 3 个 req() 调用，在第二个 observeEvent(input$select04, ...{}) 中我将其更改为正常 observe 并在 renderPlot 打电话。

library(shiny)
library(readr)
library(corrplot)
library(DT)


# File used for the example
data(iris)
write.csv(x = iris, file = "iris.csv", row.names = F)


#UI
ui <- shinyUI(
  fluidPage(
    navbarPage(
      id = "navbar",
      tabPanel(
        title = "UPLOAD",
        br(),
        actionButton(inputId = "file", label = "ADD A FILE"),
        tabPanel(
          value = "B",
          title = "Corr",
          sidebarLayout(
            sidebarPanel(
              selectizeInput(width = "300px",
                inputId = "select04",
                label = "Select features",
                choices = NULL,
                multiple = TRUE)
            ),
            mainPanel(
              plotOutput(
                outputId = "corrplot01", height = "650px")
            )
          )
        )
      )
    )
  )
)

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

  path <- reactiveValues(pth = NULL)

  file.choose2 <- function(...) {
    pathname <- NULL;
    tryCatch({
      pathname <- file.choose();
    }, error = function(ex) {
    })
    pathname;
  }

  observeEvent(input$file,{
    path$pth <- file.choose2()
  })

  observeEvent(input$file,  {
    newvalue <- "B"
    updateNavbarPage(session, "navbar", newvalue)
  })

  data <- reactive({
    req(path$pth)
    df <- readr::read_csv(file = path$pth)
    return(df)
  })


  # I suppose there is a problem with this line
  observe({ 
    req(names(data()))
    col <- names(data())
    col.num <- which(sapply(data(), class) == "numeric")
    col <- col[col.num]
    updateSelectizeInput(session = session, inputId = "select04", choices = col)
  })

  output$corrplot01 <- renderPlot({ 
    req(input$select04)
    df <- data()
    df1 <- df[,input$select04]
    corr <- cor(x = df1, use  = "pairwise.complete.obs")
    corrplot(corr = corr, 
             title = "")
  })
}

shinyApp(ui, server)

上传带有操作按钮的 csv 文件并显示校正图

Upload a csv file with actionbutton and display a corrplot

r

shiny

r-corrplot