R实例分享二：API小实例互动交流，荐股API示例，股票Chart示例

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

实例展示
http://180.153.251.80:16889/sample-apps/queryPortfolio/
http://180.153.251.80:16889/sample-apps/U-Chart/

1. # This is the server logic for a Shiny web application.
   
2. # You can find out more about building applications with Shiny here:
   
3. #
   
4. # http://www.rstudio.com/shiny/
   
5. #
   
6. 
   
7. library(shiny)
   
8. library(TTR)
   
9. library(quantmod)
   
10. library(DTSR)
    
11. 
    
12. 
    
13. Getk1d <- function(symbol,beginDate="20140101", endDate=Sys.Date()) {
    
14.   d <- NULL
    
15.   #print(nchar(symbol))
    
16.   #need know the input issueCode is DZH style
    
17.   if (mode(symbol) == "character" & length(symbol) == 1 & nchar(symbol) == 12) {
    
18.     beginDate <- gsub("-","",beginDate)
    
19.     endDate <- gsub("-","",endDate)
    
20.     field.set <- "Date,OpenPrice,HighPrice,LowPrice,ClosePrice,Volume,Amount"
    
21.     rs <- dts.GetKLine("k1d", symbol, beginDate, endDate, field.set)
    
22.     if (rs$ErrorCode == 0){
    
23.       d <- rs$Data
    
24.       d <- data.frame(as.numeric(c(d[,1])), as.numeric(c(d[,2])), as.numeric(c(d[,3])), as.numeric(c(d[,4])), as.numeric(c(d[,5])), as.numeric(c(d[,6])), as.numeric(c(d[,7])))
    
25.       colnames(d) <- c("TDate", "Open", "High", "Low", "Close", "Volume", "Amount")
    
26.       rownames(d) <- as.Date(as.character(d$TDate),"%Y%m%d")
    
27.       d$TDate <- NULL
    
28.     }
    
29.   }
    
30.   return(d)
    
31. }
    
32. 
    
33. shinyServer(function(input, output) {
    
34.   #download historical data from web
    
35.   #log <- "download CHL Data from yahoo begin..."
    
36.   #getSymbols("CHL",src="yahoo",from="2014-02-01",end=Sys.Date())
    
37.   #log <- "download CHL Data from yahoo end"
    
38.   
    
39.   bColor <- NA
    
40.   cStyle <- NA
    
41.   indiConnCheckedString <- NULL
    
42.   
    
43.   k<-reactive({
    
44.     if (input$issueCode != "" & length(input$issueCode) == 1 & nchar(input$issueCode) == 12) {
    
45.       Getk1d(input$issueCode,"2014-02-01",Sys.Date())
    
46.     }
    
47.   })
    
48.   
    
49.   uStyleSI_reative <- reactive({
    
50.    
    
51.     #radioButton
    
52.     if (mode(input$colorRdBtn) == "character")
    
53.       bColor <- input$colorRdBtn
    
54.    
    
55.     #choose style
    
56.     if (input$uStyleSI != "")
    
57.       cStyle <- input$uStyleSI
    
58.    
    
59.     #add indicator
    
60.     #checkboxInput
    
61.     if (input$addMACD)
    
62.       indiConnCheckedString <- c(indiConnCheckedString,'addMACD()')
    
63.     if (input$addADX)
    
64.       indiConnCheckedString <- c(indiConnCheckedString,addADX())
    
65.    
    
66.     if (input$addATR)
    
67.       indiConnCheckedString <- c(indiConnCheckedString,addATR())
    
68.    
    
69.     if (input$addBBands)
    
70.       indiConnCheckedString <- c(indiConnCheckedString,addBBands())
    
71.    
    
72.     if (input$addCCI)
    
73.       indiConnCheckedString <- c(indiConnCheckedString,addCCI())
    
74.    
    
75.     if (input$addCMF)
    
76.       indiConnCheckedString <- c(indiConnCheckedString,addCMF())
    
77.    
    
78.     if (input$addCMO)
    
79.       indiConnCheckedString <- c(indiConnCheckedString,addCMO())
    
80.    
    
81.     if (input$addDEMA)
    
82.       indiConnCheckedString <- c(indiConnCheckedString,addDEMA())
    
83.    
    
84.     if (input$addDPO)
    
85.       indiConnCheckedString <- c(indiConnCheckedString,addDPO())
    
86.    
    
87.     if (input$addEMA)
    
88.       indiConnCheckedString <- c(indiConnCheckedString,addEMA())
    
89.    
    
90.     if (input$addEVWMA)
    
91.       indiConnCheckedString <- c(indiConnCheckedString,addEVWMA())
    
92.    
    
93.     if (input$addRSI)
    
94.       indiConnCheckedString <- c(indiConnCheckedString,addRSI())
    
95.    
    
96.     if (input$addSAR)
    
97.       indiConnCheckedString <- c(indiConnCheckedString,addSAR())
    
98.    
    
99.     if (input$addSMA)
    
100.       indiConnCheckedString <- c(indiConnCheckedString,addSMA())
     
101.    
     
102.     if (input$addSMI)
     
103.       indiConnCheckedString <- c(indiConnCheckedString,addSMI())
     
104.    
     
105.     if (input$addWMA)
     
106.       indiConnCheckedString <- c(indiConnCheckedString,addWMA())
     
107.    
     
108.     if (input$addWPR)
     
109.       indiConnCheckedString <- c(indiConnCheckedString,addWPR())
     
110.    
     
111.     if (input$addZLEMA)
     
112.       indiConnCheckedString <- c(indiConnCheckedString,addZLEMA())
     
113.    
     
114.    
     
115.    
     
116.     print(indiConnCheckedString)
     
117.    
     
118.     isOriginalChart <- "0"
     
119.     if (is.null(indiConnCheckedString))
     
120.       isOriginalChart <- "1"
     
121.    
     
122.     print(isOriginalChart)
     
123.     if (input$issueCode == "" | length(input$issueCode) != 1 | nchar(input$issueCode) != 12)
     
124.       return (NULL)
     
125. 
     
126.     data<-k()
     
127.     if (isOriginalChart == "1") #set default chart
     
128.       chartSeries(name=input$issueCode,data,theme=chartTheme(bColor),type=cStyle)
     
129.     else
     
130.       chartSeries(name=input$issueCode,data,theme=chartTheme(bColor),type=cStyle,TA=indiConnCheckedString)
     
131.       #chartSeries(name=input$issueCode,data,theme=chartTheme(bColor),type=cStyle,TA=c(addMACD(),addEMA(),addSAR()))
     
132.     #dev.off()
     
133.   })
     
134.   
     
135.   
     
136.   output$uchart <- renderPlot({
     
137.     uStyleSI_reative()
     
138.   })
     
139.   
     
140. })

复制代码

1. # This is the user-interface definition of a Shiny web application.
   
2. # You can find out more about building applications with Shiny here:
   
3. #
   
4. # http://www.rstudio.com/shiny/
   
5. #
   
6. 
   
7. library(shiny)
   
8. 
   
9. shinyUI(pageWithSidebar(
   
10.   
    
11.   # Application title
    
12.   headerPanel("U CHART"),
    
13.   
    
14.   # Sidebar with a slider input for number of observations
    
15.   sidebarPanel(
    
16.     textInput("issueCode","issueCode","SH600000.stk"),
    
17.    
    
18.     selectInput("uStyleSI",
    
19.                 "Please select chart line style",
    
20.                 c("bars","line","candlesticks","matchsticks")
    
21.     ),
    
22.    
    
23.     radioButtons("colorRdBtn",
    
24.                  "U can change backcolor depends on what you like!",
    
25.                  c("white"="white","black"="black")),
    
26.    
    
27.     helpText("U can add indicators depends on what you need!"),
    
28.     checkboxInput("addMACD","MACD",TRUE),
    
29.     checkboxInput("addADX","ADX",FALSE),
    
30.     checkboxInput("addATR","ATR",FALSE),
    
31.     checkboxInput("addBBands","BBands",FALSE),
    
32.     checkboxInput("addCCI","CCI",FALSE),
    
33.     checkboxInput("addCMF","CMF",FALSE),
    
34.     checkboxInput("addCMO","CMO",FALSE),
    
35.     checkboxInput("addDEMA","DEMA",FALSE),
    
36.     checkboxInput("addDPO","DPO",FALSE),
    
37.     checkboxInput("addEMA","EMA",FALSE),
    
38.     checkboxInput("addEVWMA","EVWMA",FALSE),
    
39.     checkboxInput("addRSI","RSI",FALSE),
    
40.     checkboxInput("addSAR","SAR",FALSE),
    
41.     checkboxInput("addSMA","SMA",FALSE),
    
42.     checkboxInput("addSMI","SMI",FALSE),
    
43.     checkboxInput("addWMA","WMA",FALSE),
    
44.     checkboxInput("addWPR","WPR",FALSE),
    
45.     checkboxInput("addZLEMA","ZLEMA",FALSE)
    
46.   ),
    
47.   
    
48.   # Show a plot of the generated distribution
    
49.   mainPanel(
    
50.     plotOutput("uchart",height="500px")
    
51.     #textOutput("log")
    
52.   )
    
53. ))

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏2 回帖

关键词：Chart Hart API ART Applications building library server about