# UFO 套件使用

## 安裝

install.packages("remotes")

remotes::install_github("tpemartin/UFO", 
    auth_token = "cef1934....d70b", 
    force=T, 
    build_vignettes = T)

# Medium新聞發佈

主要有兩個步驟：

* 啟動medium service
* 進行社科院新聞轉發

## 啟動medium service

library(UFO)
require(dplyr)
require(rvest)
medium <- mediumService()

## 進行社科院新聞轉發

# 社科院新聞url
url <- "https://www.ntpu.edu.tw/college/e4/news_more.php?id=1164"

# 進行轉發至medium.com
medium$UrlRepost2medium_public(
  url=url,
  tags=list("UFO","長青")
) -> result

# 瀏覽

由於medium是以tags來進行頁面分類，所以要出現在UFO的文章tags一定要有"UFO", 要出現在USR的文章tags一定要有"USR"。