「R shiny 抓虫」为什么我的fileInput失效了？

本文主要是介绍「R shiny 抓虫」为什么我的fileInput失效了？，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

只有经历几个我得花好久才能找到的bug，我才觉得我有点会用Shiny了

今天在写Shiny 的时候遇到了几个巨大的问题，就是Shiny中一个组件fileInput无论如何都无法上传文件

我在这个问题上花了差不多1个小时时间，其中大概做了如下几件事情:

• 不断的进行代码注释，检查我新增代码块是否有问题
• 重启电脑
• 将代码放到另一台电脑上运行

直到问题的解决的一瞬间，我才认识到福尔摩斯的话是多么正确

当你排除所有的不可能，无论剩下的是什么，即使是不可能也一定是真相.

接下来，我就提供一个最简单的代码复现出我的问题。由于这是很最简洁代码了，相信大家应该能够比较容易发现错误

if (interactive()) {ui <- fluidPage(sidebarLayout(sidebarPanel(fileInput("file1", "Choose CSV File",accept = c("text/plain",".vcf")),tags$hr(),checkboxInput("header", "Header", TRUE)),mainPanel(tableOutput("contents"),downloadLink("a",label = "Download"),downloadLink("a",label = "Download"))))server <- function(input, output) {output$contents <- renderTable({# input$file1 will be NULL initially. After the user selects# and uploads a file, it will be a data frame with 'name',# 'size', 'type', and 'datapath' columns. The 'datapath'# column will contain the local filenames where the data can# be found.inFile <- input$file1if (is.null(inFile))return(NULL)read.csv(inFile$datapath, header = input$header)})}shinyApp(ui, server)
}

我用动图演示下效果

下面是正确答案的分割线

---

文件无法上传的原因是下面这两行一模一样的代码。由于他们拥有相同的outputId, 其结果就是Shiny 没有解析出数据的输入和数据，结果导致Shiny的reactive体系无法正确调用server函数

        downloadLink("a",label = "Download"),downloadLink("a",label = "Download")

有了这个血泪教训，我想之后，我应该更会小心的处理inputId和outputId了吧

我的一个好朋友果子老师经常说我成长很快，因为他们做一次实验的时间，我们的运算可以重复很多次。但是同样的，我们明天也要经历更多的失望。那些杀不死你的会让你更强大，所以我变秃了，也变强了。

这篇关于「R shiny 抓虫」为什么我的fileInput失效了？的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---