APPLE Crawler
#install.packages('rvest')
library(rvest)
## Loading required package: xml2
apple <- read_html('https://tw.appledaily.com/new/realtime')
apple %>% html_nodes('.rtddt h1') %>% html_text()
## [1] "高雄海洋首都夢破滅ing！"
## [2] "宥勝南極長征倒數100公里 凍傷頻傳煮熱..."
## [3] "AI協力！信望愛基金會推英語辨識平台將上..."
## [4] "千里奔台悼江丙坤！ 陳雲林哀傷：未語淚先...(24894)"
## [5] "林石化酒後失態 昔部屬訝異：他從沒醉過啊(324)"
## [6] "誆投資海外房產 「房屋網大亨」涉吸金12...(6001)"
## [7] "【UBA】總教練王志群坐著督軍 台師大照...(19)"
## [8] "觀光局政策轉彎納入北桃竹 竹市：樂見其成(986)"
## [9] "南韓10萬計程車司機大罷工 抗議共乘Ap..."
## [10] "毀壞軍譽！少將名醫酒後在高鐵騷擾乘客 遭...(6875)"
## [11] "恐怖！女剛拿駕照就撞鐵門 保全被啪啪彈飛...(15452)"
## [12] "【豬瘟直擊】珠海民眾不知疫情 「發生啥事...(5562)"
## [13] "陳明通的說辭不通情理"
## [14] "最棒里長怒了！ 批選後核准龍崎掩埋場水保...(1179)"
## [15] "蘇啟誠遺孀發聲明：部分政治人物誤導損及名...(3)"
## [16] "舞台劇呼應時事談校園性侵 女演員聞豆導自..."
## [17] "Fed和川普都沒錯 美股明年頭號威脅是它(16)"
## [18] "【最即時專題1】韓國瑜公布小內閣完整名單...(157144)"
## [19] "印尼胖童減掉近百公斤 夢想當足球員(106)"
## [20] "【最即時專題4】看陳其邁玩貓喝咖啡 韓國...(42764)"
## [21] "周冬雨較靚迪麗熱巴 粉紅裝PK仙氣(201)"
## [22] "【暖冬救觀光】鄭文燦發飆有效 交部轉彎、...(25746)"
## [23] "警押通緝犯赴北檢歸案 嫌犯意圖奪槍遭制伏(11160)"
## [24] "64歲婦約砲3P迷劫遊客 落網喊冤：是他...(29692)"
## [25] "吃不到拉麵留負評 反遭店家洗臉洩個資(5261)"
## [26] "可惡！貴婦奈奈捲款逃國外 竟還捐錢當功德...(3787)"
## [27] "北檢驚爆通緝犯襲警奪槍 法警英勇制伏歹徒(908)"
## [28] "【最即時專題6】韓國瑜小內閣再出包 準教...(33267)"
## [29] "【動腦A】愷樂揪團鬥智主考官Jolin ...(8459)"
## [30] "韓國瑜看上高雄煉油廠 將打造賽馬產業鏈(4609)"
#as.character(apple)
WordCloud2
article <- '人人稱羨的明星眷侶吳奇隆、劉詩詩現蹤台北，《蘋果》掌握消息，48歲的吳奇隆準備當爸，31歲劉詩詩已有5個月身孕一舉得男，預產期明年5月，小倆口已定居他之前購買的新莊豪宅。吳奇隆下午4點半在微博發出「官宣」：「我們懷著激動喜悅的心情期待家庭的新成員，謝謝大家關心。」並標註劉詩詩，劉詩詩同步回應「期待」並加3顆愛心，顯見夫婦倆喜悅心情。
前天有網友po出巧遇照，夫婦倆皆戴帽、戴口罩，劉詩詩穿著長及腳踝的寬鬆大衣，吳奇隆背著背包在她後面亦步亦趨，並在她上車前伸手作勢攙扶，寵妻之情溢於言表，最多人好奇的是劉詩詩是否懷孕，吳奇隆媽媽今證實劉詩詩已懷孕，隆媽開心地說：「5個月了，家裡所有人都很高興！之前外界關心他們何時會有孩子，難免有壓力。」也透露媳婦腹中胎兒不是做的，是自然而然懷上的，但吳奇隆很低調，並不想公開喜訊，對外都沒講，只想讓老婆安心養胎，今天消息曝光後，他才發微博。
隆媽已有3男2女共5個孫子，吳奇隆都視如己出，極為照顧，如今他將迎接兒子，也是吳家孫兒第6個新成員，全家人欣喜可想而知。隆媽笑說：「剛好他（指吳奇隆）也在休息放鬆，你們之前不是都寫他胖了嗎？」
此外，劉詩詩早已搬離霧霾嚴重的北京，飛來台灣定居，固定在台灣產檢，如無意外應也會在台灣生產，腹中男娃健康，只是她會孕吐，讓吳奇隆很心疼，常要催她多吃點。
去年底《蘋果》曾報導吳奇隆砸1.9億元一口氣購入4戶新莊豪宅，1戶自用，另3戶則分給父母和兄弟，隆媽透露現在吳家人雖然不同戶但都挨著住，晚餐一塊吃，就跟尋常家庭一樣，劉詩詩也會參加家庭聚會。
捕獲「野生隆詩」的網友表示，前天（18日）下午2點半左右，經過美麗華百貨附近的美食廣場，和一群人擦身而過，瞬間判斷男的很像吳奇隆，於是掏出手機捕捉身影，只見劉詩詩先向麵包店裡的人揮手道再見，接著步出店外搭休旅車離開，網友說：「他們走超快，而擦身時不覺得（劉詩詩）是孕婦，不過若小於3個月我也看不出來啦。」
該網友未拍到正面，仍有人說：「感覺是懷孕了，隆哥很小心的樣子。」劉詩詩之前一度消失4個月，被爆懷雙胞胎3個月，她都未回應，10月底在上海出席OMEGA代言活動，對比其他女星穿性感晚禮服，她以外套遮掩身形且不開放提問，晚宴也跳過敬酒提早離席，種種跡象都讓懷孕傳聞甚囂塵上，今終於有了明確答案，隆詩CP登記結婚近4年，總算將升格當爸媽，寶貝兒子明年5月報到。（趙大智、吳惠菁／台北報導）'
# install.packages('jiebaR')
library(jiebaR)
## Loading required package: jiebaRD
mixseg <- worker()
seg <- segment(article, jiebar = mixseg)
# install.packages('wordcloud2')
library(wordcloud2)
tb <- table(seg)
tb2 <- tb[(nchar(names(tb))>=2) & (tb > 1)]
tb2
## seg
## 下午 不是 之前 他們 前天 劉詩詩 台北 台灣 吳奇隆 喜悅
## 2 2 4 2 2 8 2 2 11 2
## 回應 報導 夫婦倆 定居 家庭 已有 心情 懷孕 成員 新莊
## 2 2 2 2 2 2 2 4 2 2
## 明年 期待 消息 網友 腹中 蘋果 豪宅 透露 關心 隆媽
## 2 2 2 4 2 2 2 2 2 4
## 隆詩
## 2
wordcloud2(tb2, shape = 'star')
LTN Crawler
library(rvest)
ltn <- read_html('http://news.ltn.com.tw/list/breakingnews')
#as.character(ltn)
title <- ltn %>% html_nodes('.tit p') %>% html_text() %>% trimws()
links <- ltn %>% html_nodes('.tit') %>% html_attr('href')