shinyServer(function(input, output) {
output$value <- renderPlot({
  data2 <- dataxts()
  Macd <- function(data,fast=12,slow=26,difnm=9){....}#Macd function技術指標
  kds <- function (data3,day=9,k=3,d=3){....}#Kd function技術指標
  plstrategy <- function(data2,cond1){....}#畫圖
  macd <- Macd(data2,12,26,9)#讀function
  kd <- kds(data2,12,2,2)#讀function
  
  K <- "K>80" %in% input$checkstrategy #如果在checkgroup選到K>80命名為K
  D <- "diff>50" %in% input$checkstrategy
  osc <- "osc<50" %in% input$checkstrategy
  
  if(K&D&osc){#如果選擇有K>80和diff>50和osc<50
    cond1 <- kd$beganperK>80&macd$OSC<50&macd$DIF>50 #就將cond1設為kd要>80且osc小於50且diff>50 返回true or false
    plstrategy(data2,cond1)
    
  }
  else if(K&D){
    cond1 <- kd$beganperK>80&macd$DIF>50
    plstrategy(data2,cond1)
  }
  else if(K&osc){
    cond1 <- kd$beganperK>80&macd$OSC<50
    plstrategy(data2,cond1)
  }
  else if(D&osc){
    cond1 <- macd$OSC<50&macd$DIF>50
    plstrategy(data2,cond1)
  }
  else if(D){
    cond1 <- macd$DIF>50
    plstrategy(data2,cond1)
  }
  else if(K){
    cond1 <- kd$beganperK>80
    plstrategy(data2,cond1)
  }
  else if(osc){
    cond1 <- macd$OSC<50
    plstrategy(data2,cond1)
  }
  
  
  
})


})