Running examples in ‘loggle-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: stockdata_source
> ### Title: Source code for stock prices of S&P 500 companies from 2007 to
> ###   2016
> ### Aliases: stockdata_source
> 
> ### ** Examples
> 
> library(XML)
> library(RCurl)
Loading required package: bitops
> library(quantmod)
Loading required package: xts
Loading required package: zoo

Attaching package: ‘zoo’

The following objects are masked from ‘package:base’:

    as.Date, as.Date.numeric

Loading required package: TTR
Version 0.4-0 included new data defaults. See ?getSymbols.
> 
> # select one stock of interest
> stock.ticker <- "MSFT"
> 
> # extract stock information from wiki
> url <- "https://en.wikipedia.org/wiki/List_of_S%26P_500_companies"
> tabs <- getURL(url)
> stock.info <- readHTMLTable(tabs, stringsAsFactors = FALSE)[[1]]
> stock.ticker.all <- stock.info$`Ticker symbol`
> stock.name.all <- stock.info$Security
> stock.sector.all <- stock.info$`GICS Sector`
> stock.index <- which(stock.ticker.all == stock.ticker)
> stock.name <- stock.name.all[stock.index]
> stock.sector <- stock.sector.all[stock.index]
> 
> # extract stock closing prices and indices of dates
> stock.price <- getSymbols(stock.ticker, auto.assign=FALSE, 
+ from='2007-01-01', to="2017-01-01")[, 4]
‘getSymbols’ currently uses auto.assign=TRUE by default, but will
use auto.assign=FALSE in 0.5-0. You will still be able to use
‘loadSymbols’ to automatically load data. getOption("getSymbols.env")
and getOption("getSymbols.auto.assign") will still be checked for
alternate defaults.

This message is shown once per session and may be disabled by setting 
options("getSymbols.warning4.0"=FALSE). See ?getSymbols for details.

Error in curl::curl_download(cu, tmp, handle = h) : 
  Timeout was reached: Resolving timed out after 10000 milliseconds
Calls: getSymbols ... getSymbols.yahoo -> .getHandle -> new.session -> <Anonymous>
Execution halted