# 载入rvest包
library(xml2)
library(rvest)

url <- 'https://w...content-available-to-author-only...h.com/pc/tw'
Session <- html_session(url)

##  找有 <input submit> 的 list
Form <- html_form(Session)[[1]]
Fields <- Form$fields


##  ------------------------------------------------
##  為何不用set_value?
##  因為成人、小孩、嬰兒那邊沒有list name -.-

##  出發地
Fields$inputFrom$value = "TPE"

##  目的地
Fields$name$value = "OKA"

##  去的日期
Fields$departingon$value = "2018/09/12"

##  回來日期
Fields$returningon$value = "2018/09/20"

##  成人數量
Fields[[7]]$value = "2"

##  小孩數量
Fields[[8]]$value = "0"

##  嬰兒數量
Fields[[9]]$value = "0"

##  ------------------------------------------------

Fields

##  但是看起來怪怪的-.-
submit_form(Session,Form)