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())
 

bGlicmFyeShSU2VsZW5pdW0pCnJzIDwtIHJlbW90ZURyaXZlcihyZW1vdGVTZXJ2ZXJBZGRyID0gImxvY2FsaG9zdCIsIHBvcnQgPSA0NDQ0LCBicm93c2VyTmFtZSA9ICJjaHJvbWUiKQpycyRvcGVuKCkKCiMgdXJsCnJzJG5hdmlnYXRlKCJodHRwczovL3QuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLm8uY29tLyIpCgojIERhdGEKZGYgPC0gZGF0YS5mcmFtZSjlnLDlnYAgPSAn5oiQ5Yqf6Lev5LiA5q61NjDomZ8nKQoKIyB3cml0ZSBkYXRhCndyaXRlLmNzdihkZiwgJ2FkZHJlc3MuY3N2Jywgcm93Lm5hbWVzID0gRikKb3Blbnhsc3g6OndyaXRlLnhsc3goZGYsICdhZGRyZXNzLnhsc3gnKQoKIyBGaWxlCmFkZCA8LSByZWFkLmNzdigiYWRkcmVzcy5jc3YiKQphZGQxIDwtIG9wZW54bHN4OjpyZWFkLnhsc3goImFkZHJlc3MueGxzeCIpCmFkZDsgYWRkMQoKIyBFbmNvZGUKUCTlnLDlnYAgJT4lIEVuY29kaW5nKCkKUDEk5Zyw5Z2AICU+JSBFbmNvZGluZygpCgojIGtleSBpbgpycyRmaW5kRWxlbWVudCgnY3NzJywgJyNoZWFkZXItc2VhcmNoLWlucHV0Jykkc2VuZEtleXNUb0VsZW1lbnQoYWRkJOWcsOWdgFsxXSAlPiUgbGlzdCgpKSAjIEVSUk9SIQpycyRmaW5kRWxlbWVudCgnY3NzJywgJyNoZWFkZXItc2VhcmNoLWlucHV0Jykkc2VuZEtleXNUb0VsZW1lbnQoYWRkMSTlnLDlnYBbMV0gJT4lIGxpc3QoKSkK