Scrape data HTML table-CodePudding

I am trying to scrape the following data from this link:

You need RSelenium to get the table.

url = 'https://www.price.moc.go.th/price_index/index_price01.html'
#start the browser
library(RSelenium)
library(rvest)
library(dplyr)
driver = rsDriver(browser = c("firefox"))
remDr <- driver[["client"]]
remDr$navigate(url)
#get table
df = remDr$getPageSource()[[1]] %>% 
  read_html() %>%
  html_table() 

df[[1]]
# A tibble: 4 x 5
  INDEX    `Nov  21` `M/M` `Y/Y` `A/A`
  <chr>        <dbl> <dbl> <dbl> <dbl>
1 CPI           102.  0.28  2.71  1.15
2 CORE-CPI      101.  0.09  0.29  0.23
3 PPI           106.  1.2   8.5   4.4 
4 CMI           116   0.5  10.4   7.9