fork download
copy 
  1. shinyServer(function(input, output) {
  2. output$value <- renderPlot({
  3.   data2 <- dataxts()
  4.   Macd <- function(data,fast=12,slow=26,difnm=9){....}#Macd function技術指標
  5.   kds <- function (data3,day=9,k=3,d=3){....}#Kd function技術指標
  6.   plstrategy <- function(data2,cond1){....}#畫圖
  7.   macd <- Macd(data2,12,26,9)#讀function
  8.   kd <- kds(data2,12,2,2)#讀function
  9.  
  10.   K <- "K>80" %in% input$checkstrategy #如果在checkgroup選到K>80命名為K
  11.   D <- "diff>50" %in% input$checkstrategy
  12.   osc <- "osc<50" %in% input$checkstrategy
  13.  
  14.   if(K&D&osc){#如果選擇有K>80和diff>50和osc<50
  15.     cond1 <- kd$beganperK>80&macd$OSC<50&macd$DIF>50 #就將cond1設為kd要>80且osc小於50且diff>50 返回true or false
  16.     plstrategy(data2,cond1)
  17.  
  18.   }
  19.   else if(K&D){
  20.     cond1 <- kd$beganperK>80&macd$DIF>50
  21.     plstrategy(data2,cond1)
  22.   }
  23.   else if(K&osc){
  24.     cond1 <- kd$beganperK>80&macd$OSC<50
  25.     plstrategy(data2,cond1)
  26.   }
  27.   else if(D&osc){
  28.     cond1 <- macd$OSC<50&macd$DIF>50
  29.     plstrategy(data2,cond1)
  30.   }
  31.   else if(D){
  32.     cond1 <- macd$DIF>50
  33.     plstrategy(data2,cond1)
  34.   }
  35.   else if(K){
  36.     cond1 <- kd$beganperK>80
  37.     plstrategy(data2,cond1)
  38.   }
  39.   else if(osc){
  40.     cond1 <- macd$OSC<50
  41.     plstrategy(data2,cond1)
  42.   }
  43.  
  44.  
  45.  
  46. })
  47.  
  48.  
  49. })
Success #stdin #stdout #stderr 0.23s 39120KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Error: could not find function "shinyServer"
Execution halted
https://ideone.com/5ZtgbT
language:
R (R 3.5.2)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!