Sys.setlocale(locale = "Thai") url <- read_html("https://www.hipflat.co.th/projects/q-house-condo-sathorn-uapnof") text <- html_nodes(url, &q