楼主: wqf_cufe
2226 1

[有偿编程] 100币求助：搭建交互式网页应用ShinyApps时无法找到quantmod函数 [推广有奖]

  • 4关注
  • 16粉丝

已卖：4082份资源

教授

89%

还不是VIP/贵宾

-

0%
威望
0 级
论坛币
4297 个
通用积分
6.6800
学术水平
10 点
热心指数
17 点
信用等级
13 点
经验
565 点
帖子
730
精华
0
在线时间
2236 小时
注册时间
2009-5-26
最后登录
2021-12-29
楼主
wqf_cufe 发表于 2014-12-1 01:33:40 |AI写论文
100论坛币
刚写出来一个trading strategy的策略，很简单的策略，然后再Rstudio里面测试没问题，最后决定放到自己的ShinyApps.io上面。

Deloy的时候是成功了的，但是自动打开的页面立马变成灰色，然后LOG里面出现：

  1. APPLICATION / LOGS
  2. 2014-11-30T06:11:15.265031+00:00 shinyapps[shuttle]: Shiny version: 0.10.2.1
  3. 2014-11-30T06:11:15.266635+00:00 shinyapps[shuttle]: knitr version: 0.0.0
  4. 2014-11-30T06:11:15.264968+00:00 shinyapps[shuttle]: R version: 3.1.1
  5. 2014-11-30T06:11:15.266205+00:00 shinyapps[shuttle]: rmarkdown version: 0.0.0
  6. 2014-11-30T06:11:15.565324+00:00 shinyapps[shuttle]:
  7. 2014-11-30T06:11:15.565329+00:00 shinyapps[shuttle]: Starting Shiny with process ID: '12'
  8. 2014-11-30T06:11:15.572858+00:00 shinyapps[shuttle]:
  9. 2014-11-30T06:11:15.572860+00:00 shinyapps[shuttle]: Listening on http://0.0.0.0:52221
  10. 2014-11-30T06:11:23.729778+00:00 shinyapps[shuttle]: R version: 3.1.1
  11. 2014-11-30T06:11:23.730948+00:00 shinyapps[shuttle]: rmarkdown version: 0.0.0
  12. 2014-11-30T06:11:23.729822+00:00 shinyapps[shuttle]: Shiny version: 0.10.2.1
  13. 2014-11-30T06:11:23.731358+00:00 shinyapps[shuttle]: knitr version: 0.0.0
  14. 2014-11-30T06:11:23.996347+00:00 shinyapps[shuttle]:
  15. 2014-11-30T06:11:23.996350+00:00 shinyapps[shuttle]: Starting Shiny with process ID: '25'
  16. 2014-11-30T06:11:24.003787+00:00 shinyapps[shuttle]:
  17. 2014-11-30T06:11:24.003790+00:00 shinyapps[shuttle]: Listening on http://0.0.0.0:45894
  18. 2014-11-30T06:11:25.026523+00:00 shinyapps[shuttle]: Error in eval(expr, envir, enclos) : could not find function "getSymbols"
  19. 2014-11-30T06:17:02.722512+00:00 shinyapps[shuttle]: Shiny version: 0.10.2.1
  20. 2014-11-30T06:17:02.724119+00:00 shinyapps[shuttle]: knitr version: 0.0.0
  21. 2014-11-30T06:17:02.722449+00:00 shinyapps[shuttle]: R version: 3.1.1
  22. 2014-11-30T06:17:02.723658+00:00 shinyapps[shuttle]: rmarkdown version: 0.0.0
  23. 2014-11-30T06:17:03.084402+00:00 shinyapps[shuttle]:
  24. 2014-11-30T06:17:03.084407+00:00 shinyapps[shuttle]: Starting Shiny with process ID: '12'
  25. 2014-11-30T06:17:03.091636+00:00 shinyapps[shuttle]:
  26. 2014-11-30T06:17:03.091638+00:00 shinyapps[shuttle]: Listening on http://0.0.0.0:34012
  27. 2014-11-30T06:17:14.505992+00:00 shinyapps[shuttle]: R version: 3.1.1
  28. 2014-11-30T06:17:14.507932+00:00 shinyapps[shuttle]: rmarkdown version: 0.0.0
  29. 2014-11-30T06:17:14.506041+00:00 shinyapps[shuttle]: Shiny version: 0.10.2.1
  30. 2014-11-30T06:17:14.508543+00:00 shinyapps[shuttle]: knitr version: 0.0.0
  31. 2014-11-30T06:17:14.956255+00:00 shinyapps[shuttle]:
  32. 2014-11-30T06:17:14.956260+00:00 shinyapps[shuttle]: Starting Shiny with process ID: '25'
  33. 2014-11-30T06:17:14.967268+00:00 shinyapps[shuttle]:
  34. 2014-11-30T06:17:14.967270+00:00 shinyapps[shuttle]: Listening on http://0.0.0.0:41123
  35. 2014-11-30T06:17:16.000644+00:00 shinyapps[shuttle]: Error in eval(expr, envir, enclos) : could not find function "getSymbols"
  36. 2014-11-30T16:20:24.231057+00:00 shinyapps[shuttle]: R version: 3.1.1
  37. 2014-11-30T16:20:24.232354+00:00 shinyapps[shuttle]: rmarkdown version: 0.0.0
  38. 2014-11-30T16:20:24.231109+00:00 shinyapps[shuttle]: Shiny version: 0.10.2.1
  39. 2014-11-30T16:20:24.232847+00:00 shinyapps[shuttle]: knitr version: 0.0.0
  40. 2014-11-30T16:20:24.509784+00:00 shinyapps[shuttle]:
  41. 2014-11-30T16:20:24.509786+00:00 shinyapps[shuttle]: Starting Shiny with process ID: '12'
  42. 2014-11-30T16:20:24.516785+00:00 shinyapps[shuttle]:
  43. 2014-11-30T16:20:24.516788+00:00 shinyapps[shuttle]: Listening on http://0.0.0.0:34484
  44. 2014-11-30T16:20:32.308635+00:00 shinyapps[shuttle]: R version: 3.1.1
  45. 2014-11-30T16:20:32.309765+00:00 shinyapps[shuttle]: rmarkdown version: 0.0.0
  46. 2014-11-30T16:20:32.308719+00:00 shinyapps[shuttle]: Shiny version: 0.10.2.1
  47. 2014-11-30T16:20:32.310189+00:00 shinyapps[shuttle]: knitr version: 0.0.0
  48. 2014-11-30T16:20:32.568862+00:00 shinyapps[shuttle]:
  49. 2014-11-30T16:20:32.568864+00:00 shinyapps[shuttle]: Starting Shiny with process ID: '25'
  50. 2014-11-30T16:20:32.575670+00:00 shinyapps[shuttle]:
  51. 2014-11-30T16:20:32.575673+00:00 shinyapps[shuttle]: Listening on http://0.0.0.0:37672
  52. 2014-11-30T16:20:33.662805+00:00 shinyapps[shuttle]: Error in eval(expr, envir, enclos) : could not find function "getSymbols"
复制代码
[size=13.63636302948px]我的server.R里面source了几个function，而且quantmod里面的这个getsymbols是在那几个source的function里面，不在server.R里面，我不知道是不是这里出了问题。下面贴出我的部分代码，抱歉由于代码过多实在无法全部贴出来。
[size=13.63636302948px]

  1. source("helpers.R")
  2. source("loadfunction.R")
  3. source("main2.R")
  4. source("main.R")
  5. source("plotperiod.R")

  7. Sys.setlocale(locale="English")

  9. ##################################################
  10. #Sys.setlocale(locale='Chinese');
  11. # server.R

  13. shinyServer(function(input, output) {
  14.   
  15.   dataInput0 <- reactive({
  16.    
  17.     Analysisfun(input$symb,input$dates[1],input$dates[2],comb1)
  18.    
  19.   })
  20.   
  21.   
  22.   dataInput <- reactive({
  23.    
  24.     param1 = as.numeric(input$n_breaks1)
  25.     param2 = as.numeric(input$n_breaks2)
  26.    
  27.     Analysisf(input$symb,input$dates[1],input$dates[2],param1,param2)
  28.    
  29.   })
  30.   
  31.   dataInput2 <- reactive({
  32.    
  33.     param1 = as.numeric(input$n_breaks1)
  34.     param2 = as.numeric(input$n_breaks2)
  35.    
  36.     profitplot(input$symb,input$dates[1],input$dates[2],param1,param2)
  37.    
  38.   })
复制代码
  1. if (!require(quantmod)) {
  2.   stop("This app requires the quantmod package. To install it, run 'install.packages(\"quantmod\")'.\n")
  3. }

  5. # Download data for a stock, if needed
  6. getkc <- function(symbol,startdate,enddate) {
  7.   if (!exists(symbol))
  8.     getSymbols(symbol, src = "yahoo",
  9.                from = startdate,
  10.                to = enddate,
  11.                auto.assign = FALSE)   
  12. }




  17. Analysisf <- function(symbol,startdate,enddate,param1,param2){


  20. data <- getkc(symbol,startdate,enddate)
  21. 。。。。。。。。。。
复制代码


分享0
关键词：quantmod Shiny quant apps Shin 网页

相关帖子

沙发
fssdlyl001 发表于 2014-12-2 20:41:13
看到你的应用在调用“getSymbols”的时候有问题，不太明白if (!require(quantmod))的目的是什么，为什么不让这个包在应用中默认载入？
返回列表
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002号-2 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2026-2-1 19:36