# 载入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)

IyDovb3lhaVydmVzdOWMhQpsaWJyYXJ5KHhtbDIpCmxpYnJhcnkocnZlc3QpCgp1cmwgPC0gJ2h0dHBzOi8vdy4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uaC5jb20vcGMvdHcnClNlc3Npb24gPC0gaHRtbF9zZXNzaW9uKHVybCkKCiMjICDmib7mnIkgPGlucHV0IHN1Ym1pdD4g55qEIGxpc3QKRm9ybSA8LSBodG1sX2Zvcm0oU2Vzc2lvbilbWzFdXQpGaWVsZHMgPC0gRm9ybSRmaWVsZHMKCgojIyAgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCiMjICDngrrkvZXkuI3nlKhzZXRfdmFsdWU/CiMjICDlm6DngrrmiJDkurrjgIHlsI/lranjgIHlrLDlhZLpgqPpgormspLmnIlsaXN0IG5hbWUgLS4tCgojIyAg5Ye655m85ZywCkZpZWxkcyRpbnB1dEZyb20kdmFsdWUgPSAiVFBFIgoKIyMgIOebrueahOWcsApGaWVsZHMkbmFtZSR2YWx1ZSA9ICJPS0EiCgojIyAg5Y6755qE5pel5pyfCkZpZWxkcyRkZXBhcnRpbmdvbiR2YWx1ZSA9ICIyMDE4LzA5LzEyIgoKIyMgIOWbnuS+huaXpeacnwpGaWVsZHMkcmV0dXJuaW5nb24kdmFsdWUgPSAiMjAxOC8wOS8yMCIKCiMjICDmiJDkurrmlbjph48KRmllbGRzW1s3XV0kdmFsdWUgPSAiMiIKCiMjICDlsI/lranmlbjph48KRmllbGRzW1s4XV0kdmFsdWUgPSAiMCIKCiMjICDlrLDlhZLmlbjph48KRmllbGRzW1s5XV0kdmFsdWUgPSAiMCIKCiMjICAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KCkZpZWxkcwoKIyMgIOS9huaYr+eci+i1t+S+huaAquaAqueahC0uLQpzdWJtaXRfZm9ybShTZXNzaW9uLEZvcm0p