POST
library(httr)
library(jsonlite)
url <- 'https://www.twse.com.tw/zh/exchangeReport/MI_INDEX'
payload <- list(
response='json'
)
res <- POST(url, body = payload, encode = 'form')
data.frame(content(res)$data7)
## X.1.一般股票. X.133.100.861.323. X.1.858.133.197. X.1.119.384.
## 1 1.一般股票 133,100,861,323 1,858,133,197 1,119,384
## X.2.台灣存託憑證. X.21.304.554. X.5.246.761. X.1.102. X.3.受益憑證. X0L X0L.1
## 1 2.台灣存託憑證 21,304,554 5,246,761 1,102 3.受益憑證 0 0
## X0L.2 X.4.ETF. X.9.699.340.104. X.661.704.262. X.185.882. X.5.受益證券.
## 1 0 4.ETF 9,699,340,104 661,704,262 185,882 5.受益證券
## X.3.180.958. X.252.483. X.48. X.6.變更交易股票. X.17.749.673. X.1.661.331.
## 1 3,180,958 252,483 48 6.變更交易股票 17,749,673 1,661,331
## X.852. X.7.認購.售.權證. X.1.548.180.360. X.1.653.132.000. X.51.174.
## 1 852 7.認購(售)權證 1,548,180,360 1,653,132,000 51,174
## X.8.轉換公司債. X0L.3 X0L.4 X0L.5 X.9.附認股權特別股. X0L.6 X0L.7 X0L.8
## 1 8.轉換公司債 0 0 0 9.附認股權特別股 0 0 0
## X.10.附認股權公司債. X0L.9 X0L.10 X0L.11 X.11.認股權憑證. X0L.12 X0L.13
## 1 10.附認股權公司債 0 0 0 11.認股權憑證 0 0
## X0L.14 X.12.公司債. X0L.15 X0L.16 X0L.17 X.13.ETN. X.3.115.370. X.753.000.
## 1 0 12.公司債 0 0 0 13.ETN 3,115,370 753,000
## X.144. X.14.創新板股票. X.4.417.500. X.44.000. X.44.
## 1 144 14.創新板股票 4,417,500 44,000 44
## X.15.創新板.變更交易方法股票. X0L.18 X0L.19 X0L.20 X.證券合計.1.6.14.15..
## 1 15.創新板-變更交易方法股票 0 0 0 證券合計(1+6+14+15)
## X.133.123.028.496. X.1.859.838.528. X.1.120.280. X.總計.1.15..
## 1 133,123,028,496 1,859,838,528 1,120,280 總計(1~15)
## X.144.398.149.842. X.4.180.927.034. X.1.358.630.
## 1 144,398,149,842 4,180,927,034 1,358,630
GET
# GET
library(rvest)
html_data <- read_html('https://news.ltn.com.tw/list/breakingnews')
高鐵
url <- 'https://www.thsrc.com.tw/TimeTable/Search'
payload <- list(
SearchType = 'S',
Lang = 'TW',
StartStation = 'TaiPei',
EndStation = 'XinZhu',
OutWardSearchDate ='2022/12/29',
OutWardSearchTime = '19:30',
ReturnSearchDate = '2022/12/29',
ReturnSearchTime = '19:30'
)
res <- POST(url, body = payload, encode = 'form')
#content(res)
證交所網路爬蟲
library(httr)
library(jsonlite)
url <- 'https://www.twse.com.tw/zh/exchangeReport/MI_INDEX'
payload <- list(
response='json'
)
res <- POST(url, body = payload, encode = 'form')
jd <- fromJSON(as.character(res))
df <- data.frame(jd$data7)
colnames(df) <- jd$fields7
df
## 成交統計 成交金額(元) 成交股數(股) 成交筆數
## 1 1.一般股票 133,100,861,323 1,858,133,197 1,119,384
## 2 2.台灣存託憑證 21,304,554 5,246,761 1,102
## 3 3.受益憑證 0 0 0
## 4 4.ETF 9,699,340,104 661,704,262 185,882
## 5 5.受益證券 3,180,958 252,483 48
## 6 6.變更交易股票 17,749,673 1,661,331 852
## 7 7.認購(售)權證 1,548,180,360 1,653,132,000 51,174
## 8 8.轉換公司債 0 0 0
## 9 9.附認股權特別股 0 0 0
## 10 10.附認股權公司債 0 0 0
## 11 11.認股權憑證 0 0 0
## 12 12.公司債 0 0 0
## 13 13.ETN 3,115,370 753,000 144
## 14 14.創新板股票 4,417,500 44,000 44
## 15 15.創新板-變更交易方法股票 0 0 0
## 16 證券合計(1+6+14+15) 133,123,028,496 1,859,838,528 1,120,280
## 17 總計(1~15) 144,398,149,842 4,180,927,034 1,358,630
ltn
library(rvest)
res <- read_html('https://news.ltn.com.tw/list/breakingnews')
title <- res %>% html_nodes('.title') %>% html_text()
time <- res %>% html_nodes('.time') %>% html_text()
ltn_news <- data.frame(title = title, time = time)
ltn_news
## title time
## 1 資深教師嘆學生寫作崩壞 網友爭論是「退化」還是「不懂欣賞」 21:09
## 2 白俄：烏克蘭S-300飛彈落入境內 21:09
## 3 健康網》不只心血管疾病會胸痛！ 醫揭「5大」疼痛原因 21:08
## 4 華為手錶能測「火腿」血氧心率 網諷：做成火腿的豬還能救 21:05
## 5 美女神槍手！基警首位射擊教官 竟是明星臉女警 21:04
## 6 半導體前景堪憂 三星急開會議擬對策 21:03
## 7 12/29 威力彩、雙贏彩、今彩539 開獎囉！ 21:02
## 8 慘！4生肖2023易飛來橫禍 2生肖健康亮紅燈 21:01
## 9 高端、基亞內線交易案 士林地檢署16路搜索 21:00
## 10 足球》驚！C羅女友送他千萬超跑當耶誕大禮 卻造成塞車惹民怨 20:56
## 11 公車撞死母嬰》中國醫大前路口險象環生 里長建議設左轉專用燈 20:55
## 12 轎車左右狂切+煞車+倒車……後方駕駛怒了：讓你紅 20:51
## 13 壽山動物園一票難求 黃捷：遇到「在地居民」記得「三不」 20:51
## 14 楊冪老東家爆欠債4.4億不還！債主點名她「離開也要負責」 20:51
## 15 （獨家）陳昇自爆口腔癌後遺症 追真相兇手是「它」 20:50
## 16 逾37年未開發 嘉義市竹村市地重劃將送內政部審議 20:44
## 17 武漢肺炎》中國退燒藥產量翻4倍 農村缺藥依然嚴重 20:37
## 18 枯水期限定美景 永和山水庫「希臘古城造型峭壁」再現 20:36
## 19 白俄羅斯：一枚烏克蘭飛彈落入領土 盧卡申科已知悉 20:32
## 20 新聞360》無人機掀朝鮮半島風雲 南北韓「軍備競賽」2023再升溫 20:30