R read JSON with proxy

rm(list=ls())

library(httr)
library(data.table)
library(dplyr)
library(plotly)

url = 'https://api.finmindtrade.com/api/v4/data'

config_proxy <- httr::config(
  proxy = curl::ie_get_proxy_for_url(),
  proxyauth = 8,
  proxyuserpwd = ":",
  ssl_verifypeer = 0
)

response = httr::GET(
  url = url,
  query = list(
    dataset="TaiwanStockPrice",
    data_id= "2330",
    start_date= "2010-01-01",
    end_date= as.character(Sys.Date()),
    token = "" # 參考登入，獲取金鑰
  ),
  config_proxy
)
data = content(response)
df = data$data %>% 
  do.call('rbind',.) %>% 
  data.table

fig <- df %>% plot_ly(x = ~date, type="candlestick",
                      open = ~open, close = ~close,
                      high = ~max, low = ~min) 
fig