Stocktwit

Raw <- fromJSON('https://api.stocktwits.com/api/2/streams/symbol/ric/TSLA.json')

entities <- Raw[['messages']][['entities']]['sentiment']
ind <- entities[,1]
ind

##      basic
## 1     <NA>
## 2     <NA>
## 3     <NA>
## 4     <NA>
## 5     <NA>
## 6     <NA>
## 7  Bullish
## 8  Bullish
## 9  Bullish
## 10 Bullish
## 11    <NA>
## 12    <NA>
## 13    <NA>
## 14    <NA>
## 15 Bullish
## 16    <NA>
## 17 Bullish
## 18    <NA>
## 19    <NA>
## 20 Bearish
## 21 Bearish
## 22    <NA>
## 23 Bullish
## 24    <NA>
## 25 Bullish
## 26    <NA>
## 27    <NA>
## 28 Bearish
## 29    <NA>
## 30    <NA>