# Download the Emerging Markets ETF fund data from the ishares homepage.

emerging_market_fund <- read_csv("https://www.ishares.com/us/products/239637/ishares-msci-emerging-markets-etf/1467271812596.ajax?fileType=csv&fileName=EEM_holdings&dataType=fund", 
    skip = 11)

# Take a look at the fund snapshot we just imported. 
head(emerging_market_fund)
## # A tibble: 6 × 16
##   Ticker                               Name `Asset Class` `Weight (%)`
##    <chr>                              <chr>         <chr>        <dbl>
## 1 005930            SAMSUNG ELECTRONICS LTD        Equity       4.0677
## 2    700               TENCENT HOLDINGS LTD        Equity       3.5839
## 3   2330 TAIWAN SEMICONDUCTOR MANUFACTURING        Equity       3.4673
## 4   BABA ALIBABA GROUP HOLDING ADR REPRESEN        Equity       2.6717
## 5    NPN              NASPERS LIMITED N LTD        Equity       1.7072
## 6    941                   CHINA MOBILE LTD        Equity       1.6573
## # ... with 12 more variables: Price <dbl>, Shares <dbl>, `Market
## #   Value` <chr>, `Notional Value` <chr>, Sector <chr>, SEDOL <chr>,
## #   ISIN <chr>, Exchange <chr>, Country <chr>, Currency <chr>, `Market
## #   Currency` <chr>, `FX Rate` <dbl>