Step #1

library(httr) library(jsonlite) library(dplyr) library(readr)

Step #2

url <- “https://api.finmindtrade.com/api/v4/data”

response <- GET( url = url, query = list( dataset = “TaiwanStockInfo” ) )

result <- fromJSON( content(response, “text”, encoding = “UTF-8”), flatten = TRUE )

stocks <- as.data.frame(result$data)

head(stocks)

Step #3

twse_stocks <- stocks %>% filter(type == “twse”)

head(twse_stocks)