ОШИБКА: не удалось найти развертывание функции "chartJSRadarOutput"

ProgramBox

ОШИБКА: не удалось найти развертывание функции «chartJSRadarOutput»

Post author:admin
Запись опубликована:8 февраля, 2023
Post category:Вопросы по программированию

#r #shiny

#r #блестящий

Вопрос:

Мое блестящее приложение успешно работает на моем локальном компьютере, но когда я хочу его развернуть, оно говорит ERROR: could not find function "chartJSRadarOutput" , что, однако, library(radarchart) у меня уже есть.

Я также прошел через это https://github.com/MangoTheCat/radarchart/tree/master/inst/shiny-examples/basic и сделал все в точности, как было велено, но все равно потерпел неудачу. Вот часть моего пользовательского интерфейса.R и сервер.R-код:

     Server.R
server <- function(input, output) {
  library(shiny)
  library(radarchart)
  library(ggplot2)
  library(reshape2)
top_version<-read.csv("top_version.csv",header = T)
top_version<-top_version[,2:26]
  output$plot1 <- renderChartJSRadar({
    ds<-subset(top_version,top_version$ageInd==input$select1)
    labs<-c('familiarity','favorability','consideration')
    scores<-list('Women'=c(nrow(ds[ds$familiarity==1 amp; ds$gender==2,])/nrow(ds[ds$gender==2,]),nrow(ds[ds$favorability==1 amp; ds$gender==2,])/nrow(ds[ds$gender==2,]),nrow(ds[ds$consideration==1 amp; ds$gender==2,])/nrow(ds[ds$gender==2,])),
                   'Men'=c(nrow(ds[ds$familiarity==1 amp; ds$gender==1,])/nrow(ds[ds$gender==1,]),nrow(ds[ds$favorability==1 amp; ds$gender==1,])/nrow(ds[ds$gender==1,]),nrow(ds[ds$consideration==1 amp; ds$gender==1,])/nrow(ds[ds$gender==1,])))
    chartJSRadar(scores=scores, labs=labs,showToolTipLabel = T)
  })})

ui.R
column(width = 12,
      chartJSRadarOutput("plot1", width = "300", height = "100"))

У кого-нибудь есть какие-либо идеи? Большое спасибо!

Я запускаю ее заново shinyapps.io и у меня есть библиотека пакета в server.R

локальный результат :

 > deployApp('/Users/Qiner/Downloads/ME_Analyst_Assessment_Files/visualapp')
Preparing to deploy application...DONE
Uploading bundle for application: 130647...DONE
Deploying bundle: 581557 for application: 130647 ...
Waiting for task: 266968451
  building: Parsing manifest
  building: Building image: 572450
  building: Fetching packages
  building: Installing packages
  building: Installing files
  building: Pushing image: 572450
  deploying: Starting instances
  rollforward: Activating new instances
  terminating: Stopping old instances
Application successfully deployed to https://qiner-shiny-home.shinyapps.io/visualapp/

и ошибка закончилась shinyapps.io это просто:

 ERROR: could not find function "chartJSRadarOutput"

И sessioninfo для пакета:

 > sessionInfo(package = "radarchart")
R version 3.2.4 (2016-03-10)
Platform: x86_64-apple-darwin13.4.0 (64-bit)
Running under: OS X 10.11.6 (El Capitan)

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages:
character(0)

other attached packages:
[1] radarchart_0.2.0

loaded via a namespace (and not attached):
 [1] Rcpp_0.12.6         rstudioapi_0.6      magrittr_1.5        devtools_1.11.1    
 [5] grDevices_3.2.4     munsell_0.4.3       colorspace_1.2-6    xtable_1.8-2       
 [9] R6_2.1.2            httr_1.1.0          stringr_1.0.0       plyr_1.8.4         
[13] tools_3.2.4         utils_3.2.4         packrat_0.4.7-1     grid_3.2.4         
[17] gtable_0.2.0        git2r_0.14.0        withr_1.0.1         htmltools_0.3.5    
[21] stats_3.2.4         datasets_3.2.4      yaml_2.1.13         digest_0.6.10      
[25] randomForest_4.6-12 base_3.2.4          RJSONIO_1.3-0       shiny_0.13.2       
[29] reshape2_1.4.1      ggplot2_2.1.0       bitops_1.0-6        htmlwidgets_0.6    
[33] graphics_3.2.4      RCurl_1.95-4.8      curl_0.9.7          rsconnect_0.4.3    
[37] memoise_1.0.0       mime_0.4            labeling_0.3        stringi_1.1.1      
[41] shinyapps_0.4.1.8   methods_3.2.4       scales_0.4.0        jsonlite_1.0       
[45] httpuv_1.3.3

И журналы на shinyapps.io есть :

 2016-10-10T02:13:43.346532 00:00 shinyapps[130647]: LANG: en_US.UTF-8
2016-10-10T02:13:43.346534 00:00 shinyapps[130647]: R version: 3.2.4
2016-10-10T02:13:43.346536 00:00 shinyapps[130647]: shiny version: 0.13.2
2016-10-10T02:13:43.346550 00:00 shinyapps[130647]: rmarkdown version: NA
2016-10-10T02:13:43.346552 00:00 shinyapps[130647]: knitr version: NA
2016-10-10T02:13:43.346558 00:00 shinyapps[130647]: jsonlite version: 1.0
2016-10-10T02:13:43.346564 00:00 shinyapps[130647]: RJSONIO version: 1.3.0
2016-10-10T02:13:43.346593 00:00 shinyapps[130647]: htmltools version: 0.3.5
2016-10-10T02:13:43.523112 00:00 shinyapps[130647]: Using jsonlite for JSON processing
2016-10-10T02:13:43.527991 00:00 shinyapps[130647]: 
2016-10-10T02:13:43.527992 00:00 shinyapps[130647]: Starting R with process ID: '59'
2016-10-10T02:13:43.546168 00:00 shinyapps[130647]: Listening on http://0.0.0.0:36262
2016-10-10T02:13:43.546165 00:00 shinyapps[130647]: 
2016-10-10T02:13:43.628716 00:00 shinyapps[130647]: Warning: Error in tag: could not find function "chartJSRadarOutput"
2016-10-10T02:13:43.634773 00:00 shinyapps[130647]:     65: fluidRow
2016-10-10T02:13:43.634780 00:00 shinyapps[130647]:     53: navbarPage
2016-10-10T02:13:43.634785 00:00 shinyapps[130647]:      6: eval
2016-10-10T02:13:43.634767 00:00 shinyapps[130647]: Stack trace (innermost first):
2016-10-10T02:13:43.634774 00:00 shinyapps[130647]:     64: tag
2016-10-10T02:13:43.634779 00:00 shinyapps[130647]:     55: div
2016-10-10T02:13:43.634785 00:00 shinyapps[130647]:      5: eval
2016-10-10T02:13:43.634769 00:00 shinyapps[130647]:     72: tag
2016-10-10T02:13:43.634775 00:00 shinyapps[130647]:     62: div
2016-10-10T02:13:43.634779 00:00 shinyapps[130647]:     54: tabPanel

2016-10-10T02:13:43.634786 00:00 shinyapps[130647]:      4: eval
2016-10-10T02:13:43.634770 00:00 shinyapps[130647]:     71: tags$div
2016-10-10T02:13:43.634776 00:00 shinyapps[130647]:     59: bootstrapPage
2016-10-10T02:13:43.634782 00:00 shinyapps[130647]:     11: doTryCatch
2016-10-10T02:13:43.634787 00:00 shinyapps[130647]:      3: eval
2016-10-10T02:13:43.634771 00:00 shinyapps[130647]:     70: div
2016-10-10T02:13:43.634775 00:00 shinyapps[130647]:     61: tagList
2016-10-10T02:13:43.634781 00:00 shinyapps[130647]:     13: runApp
2016-10-10T02:13:43.634787 00:00 shinyapps[130647]:      2: eval.parent
2016-10-10T02:13:43.634771 00:00 shinyapps[130647]:     69: column
2016-10-10T02:13:43.634776 00:00 shinyapps[130647]:     60: attachDependencies
2016-10-10T02:13:43.634782 00:00 shinyapps[130647]:     12: fn
2016-10-10T02:13:43.634788 00:00 shinyapps[130647]:      1: local
2016-10-10T02:13:43.634772 00:00 shinyapps[130647]:     68: tag
2016-10-10T02:13:43.634778 00:00 shinyapps[130647]:     57: tag
2016-10-10T02:13:43.634783 00:00 shinyapps[130647]:     10: tryCatchOne
2016-10-10T02:13:43.634901 00:00 shinyapps[130647]: Error in tag("div", list(...)) : 
2016-10-10T02:13:43.634772 00:00 shinyapps[130647]:     67: tags$div
2016-10-10T02:13:43.634778 00:00 shinyapps[130647]:     56: tags$div
2016-10-10T02:13:43.634784 00:00 shinyapps[130647]:      7: connect$retry
2016-10-10T02:13:43.634903 00:00 shinyapps[130647]:   could not find function "chartJSRadarOutput"

2016-10-10T02:13:43.634773 00:00 shinyapps[130647]:     66: div
2016-10-10T02:13:43.634777 00:00 shinyapps[130647]:     58: fluidPage
2016-10-10T02:13:43.634783 00:00 shinyapps[130647]:      9: tryCatchList
2016-10-10T02:13:43.634774 00:00 shinyapps[130647]:     63: tags$div
2016-10-10T02:13:43.634781 00:00 shinyapps[130647]:     52: shinyUI
2016-10-10T02:13:43.634784 00:00 shinyapps[130647]:      8: tryCatch

1. Итак, он отлично работает на вашем локальном компьютере, но когда вы запускаете его удаленно, он не работает — где вы запускаете его удаленно? Есть ли какие-либо пакеты, загруженные в ваш локальный сеанс R, которые отсутствуют на сервере? Отличается ли ОС? Пожалуйста, добавьте результаты sessionInfo () как с вашего локального компьютера, так и с сервера к вашему вопросу.

2. Спасибо за ваш комментарий, я уже обновил описание!

3. Также, когда я запускаю ваш код на своей машине, он не работает. В нем говорится Error in output$plot1 <- renderChartJSRadar({ : object 'output' not found .

Ответ №1:

Вам необходимо загрузить пакет в обоих файлах. Я проверил это самостоятельно shinyapps.io учетная запись, и ошибка исчезла.

В вашем коде все еще есть ошибка, о которой я упоминал в комментариях ( 2016-10-10T02:14:15.159934 00:00 shinyapps[130687]: Warning: Error in <-: object 'output' not found ), потому что в ней отсутствуют данные, но это устраняет ошибку, о которой ваш вопрос.

 #Server.R
output$plot1 <- renderChartJSRadar({
  library(shiny)
  library(radarchart)
  ds<-subset(top_version,top_version$ageInd==input$select1)
  labs<-c('familiarity','favorability','consideration')
  scores<-list('Women'=c(nrow(ds[ds$familiarity==1 amp; ds$gender==2,])/nrow(ds[ds$gender==2,]),nrow(ds[ds$favorability==1 amp; ds$gender==2,])/nrow(ds[ds$gender==2,]),nrow(ds[ds$consideration==1 amp; ds$gender==2,])/nrow(ds[ds$gender==2,])),
               'Men'=c(nrow(ds[ds$familiarity==1 amp; ds$gender==1,])/nrow(ds[ds$gender==1,]),nrow(ds[ds$favorability==1 amp; ds$gender==1,])/nrow(ds[ds$gender==1,]),nrow(ds[ds$consideration==1 amp; ds$gender==1,])/nrow(ds[ds$gender==1,])))
  chartJSRadar(scores=scores, labs=labs,showToolTipLabel = T)
})

#ui.R
require(shiny)
library(radarchart)
column(width = 12,
       chartJSRadarOutput("plot1", width = "300", height = "100"))

1. Большое спасибо! Ошибка исчезла! Возможно, потому, что я не использовал библиотеку пакета в пользовательском интерфейсе. R, я всегда думаю, что нет необходимости в пакете библиотеки в ui.r. Что касается ошибки вывода, она не появляется с моей стороны. Спасибо!