dplyr和进度条之间的冲突（shinyIncubator）

Question

我想在我闪亮的应用程序中引入dplyr代码，但在加载dplyr包的阶段，我已经遇到了一个问题。甚至在我添加任何实际的dplyr代码之前，以及在我添加行之后：

library(dplyr)

以下错误将代替无功输入之一：

Error: invalid assignment for reference class field ‘n’, should be from class “numeric” or a subclass (was class “environment”)

此错误仅在向代码中添加“库（dplyr）”时出现，如果删除了进度条的代码，则不再出现。该错误只会出现，而不会出现属性为被动且通过服务器控制的输入。R.另一个输入保持不变。

请有人指出是什么问题吗？谢谢

服务器R（不工作）：

library(shinyIncubator)
library(dplyr)

shinyServer(function(input, output, session) {

output$new_input<-renderUI({ 
  if (is.null(input$input_file)) {
    return(NULL)
}

progress <- Progress$new(session, min=1, max=10)
on.exit(progress$close())
progress$set(message = 'Calculating',
             detail = 'Please wait...')
for (i in 1:10) {
  progress$set(value = i)
  Sys.sleep(0.05)
}

library(gdata)
dat<-read.xls(input$input_file$datapath,check.names=F)
selectInput("a",dat[1,1],c("b"="b","c"="c"))

  })  
})

服务器R（工作正常）：

library(shinyIncubator)
library(dplyr)

shinyServer(function(input, output, session) {

output$new_input<-renderUI({ 
  if (is.null(input$input_file)) {
    return(NULL)
}

#    progress <- Progress$new(session, min=1, max=10)
#    on.exit(progress$close())
#    progress$set(message = 'Calculating',
#                 detail = 'Please wait...')
#    for (i in 1:10) {
#      progress$set(value = i)
#      Sys.sleep(0.05)
#    }

library(gdata)
dat<-read.xls(input$input_file$datapath,check.names=F)
selectInput("a",dat[1,1],c("b"="b","c"="c"))

  })  
})

服务器R（工作正常）：

library(shinyIncubator)
# library(dplyr)

shinyServer(function(input, output, session) {

output$new_input<-renderUI({ 
  if (is.null(input$input_file)) {
    return(NULL)
}

progress <- Progress$new(session, min=1, max=10)
on.exit(progress$close())
progress$set(message = 'Calculating',
             detail = 'Please wait...')
for (i in 1:10) {
  progress$set(value = i)
  Sys.sleep(0.05)
}

library(gdata)
dat<-read.xls(input$input_file$datapath,check.names=F)
selectInput("a",dat[1,1],c("b"="b","c"="c"))

  })  
})

用户界面。R:

shinyUI(navbarPage("a",
               tabPanel("a",
                        sidebarLayout(
                          sidebarPanel(
                            fileInput("input_file","Upload your file:"),
                            htmlOutput("new_input")
                          ),
                          mainPanel(
                            helpText(".")
                          )
                        )
               )
))

另外，输入文件是。xls或。xlsx（内容对于重现我的问题并不重要）。

Answer 1

好的，我自己也找到了解决办法。似乎shinyIncubator和dplyr都有一个名为Progress的功能。所以我刚刚用shinyIncubator:：Progress替换了Progress，代码开始工作。