在部署R闪亮应用程序时加载软件包时出现问题

Question

当我在本地运行时，我试图部署一个运行完美的R闪亮应用程序。但是当我部署这个应用程序时，它会在一些输出中显示一个错误消息："Error: An error has occurred. Check your logs or contact the app author for clarification.“。

在阅读了几个线程之后，我认为这与包的加载有关。

我正在使用以下软件包：

library(shiny)
library(magrittr)
library(shinyjs)
library(DT)
library(ggthemes)
library(shinythemes)
library(r2symbols)
library(caret)
# install.packages("PresenceAbsence")
library(glmnet)
library(tidyverse)
# install.packages("devtools")

在新的会话中部署应用程序时，我收到了以下警告。我不太清楚到底出了什么问题(因为应用程序在我的R会话中起作用)。你能给我一些建议吗?我也应该试着让应用程序在服务器上运行吗？

  Loading required package: shiny
Warning: package ‘shiny’ was built under R version 3.6.3
Warning: package ‘shinyjs’ was built under R version 3.6.3
You can use shinyjs to call your own JavaScript functions:
    https://deanattali.com/shinyjs/extend

Attaching package: ‘shinyjs’

The following object is masked from ‘package:shiny’:

    runExample

The following objects are masked from ‘package:methods’:

    removeClass, show

Warning: package ‘DT’ was built under R version 3.6.3

Attaching package: ‘DT’

The following objects are masked from ‘package:shiny’:

    dataTableOutput, renderDataTable

Warning: replacing previous import ‘vctrs::data_frame’ by ‘tibble::data_frame’ when loading ‘dplyr’
Warning: package ‘ggthemes’ was built under R version 3.6.3
Warning: package ‘shinythemes’ was built under R version 3.6.3
Warning: package ‘r2symbols’ was built under R version 3.6.3

Attaching package: ‘r2symbols’

The following object is masked from ‘package:ggplot2’:

    sym

Warning: package ‘caret’ was built under R version 3.6.3
Loading required package: lattice
Warning: package ‘lattice’ was built under R version 3.6.3

Attaching package: ‘PresenceAbsence’

The following objects are masked from ‘package:caret’:

    sensitivity, specificity

Warning: package ‘glmnet’ was built under R version 3.6.3
Loading required package: Matrix
Loaded glmnet 4.0-2
Warning: package ‘tidyverse’ was built under R version 3.6.3
-- Attaching packages -------------------------------------------------------------------------- tidyverse 1.3.0 --
v tibble  3.0.4     v dplyr   1.0.0
v tidyr   1.0.2     v stringr 1.4.0
v readr   1.3.1     v forcats 0.4.0
v purrr   0.3.3     
Warning: package ‘tibble’ was built under R version 3.6.3
Warning: package ‘dplyr’ was built under R version 3.6.3
-- Conflicts ----------------------------------------------------------------------------- tidyverse_conflicts() --
x tidyr::expand()    masks Matrix::expand()
x tidyr::extract()   masks magrittr::extract()
x dplyr::filter()    masks stats::filter()
x dplyr::lag()       masks stats::lag()
x purrr::lift()      masks caret::lift()
x tidyr::pack()      masks Matrix::pack()
x purrr::set_names() masks magrittr::set_names()
x dplyr::sym()       masks r2symbols::sym(), ggplot2::sym()
x tidyr::unpack()    masks Matrix::unpack()

Listening on http://127.0.0.1:6757

详细信息：

我还在服务器部分中提到了我的输出，它在部署到闪亮的服务器时不显示，但在从本地PC运行时工作。pred_prob_func()使用来自caret包的随机林，并使用随机林模型(ranger)获得预测的概率。我甚至不确定包装装载是个问题，但我想是的。然而，我不知道为什么它会工作在我的个人电脑，而不是在闪亮的服务器。版本中的问题？

产出：

  # Heatmap predicted probabilities
  output$Heatmap_predicted_probabilities <- renderPlot({
   
    plot(x=seq(0,1,0.01), y=rep(0,101), main="Heatmap of predicted probabilities", xlab="The square cross symbol represents the predicted probability based on input values on the dashboard", ylab="", xlim=c(0,1), ylim=c(-0.1,0.1), yaxt="n", bty="n", pch=15, cex=20, col=hsv(0.05, seq(0,1,length.out = 101), 0.80))
    points(x=pred_prob_func(input_list())$pred_prob, y=0, lwd=2, pch=7, cex=4)
    
  })

Answer 1

我找到了解决方案，我想我会把它发到这里，供将来可能面临同样问题的人使用。显然，这不是版本的问题。当我只调用“caret”软件包运行该应用程序时，它在我的本地PC上运行得很好。但是当上传到闪亮的服务器上时，它没有工作。我意识到只调用'caret‘包是不够的，但我也需要调用'ranger’库，因为我正在使用使用'ranger‘的'caret’做随机林。虽然它在本地PC上不单独调用“ranger”，但只有在添加这两行代码时，应用程序才能在服务器上顺利运行：

library(ranger)
library(caret)