Skip to content

Instantly share code, notes, and snippets.

@BernardOng
Created August 4, 2016 16:59
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save BernardOng/892d2eb40d76ab3e1059b6357278cd7a to your computer and use it in GitHub Desktop.
Save BernardOng/892d2eb40d76ab3e1059b6357278cd7a to your computer and use it in GitHub Desktop.
# ----- get the stock history here
sname <- toupper(input$sname)
xdf1 <- getSymbols(sname, from=input$drange[1], to=input$drange[2],auto.assign=FALSE)
colnames(xdf1) = c("Open","High","Low","Close","Volume","Adjusted")
xdf2 <- getStockXts(input$sparm,xdf1)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment