Question

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

我尝试使用actionbutton（）和updateSelectizeInput（）设置相关图

但是发生了错误：

错误：不支持的索引类型：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

我稍微更改了用户界面和服务器，但我认为这可能会解决您的问题。

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

我还在req()反应式，第二个data（我更改为普通observeEvent(input$select04, ...{})）和observe调用中添加了3个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)

使用actionbutton上载csv文件并显示Corrplot

1 个答案: