library(RSelenium)
rs <- remoteDriver(remoteServerAddr = "localhost", port = 4444, browserName = "chrome")
rs$open()

# url
rs$navigate("https://t...content-available-to-author-only...o.com/")

# Data
df <- data.frame(地址 = '成功路一段60號')

# write data
write.csv(df, 'address.csv', row.names = F)
openxlsx::write.xlsx(df, 'address.xlsx')

# File
add <- read.csv("address.csv")
add1 <- openxlsx::read.xlsx("address.xlsx")
add; add1

# Encode
P$地址 %>% Encoding()
P1$地址 %>% Encoding()

# key in
rs$findElement('css', '#header-search-input')$sendKeysToElement(add$地址[1] %>% list()) # ERROR!
rs$findElement('css', '#header-search-input')$sendKeysToElement(add1$地址[1] %>% list())