I want to obtain the value 6.911,930 from the following website:
https://www2.bmf.com.br/pages/portal/bmfbovespa/boletim1/SistemaPregao1.asp?pagetype=pop&caminho=Resumo%20Estat%EDstico%20-%20Sistema%20Preg%E3o&Data=04/06/2024&Mercadoria=DAP

I have tried to transform it into a table using the following code:

link <- "https://www2.bmf.com.br/pages/portal/bmfbovespa/boletim1/SistemaPregao1.asp?pagetype=pop&caminho=Resumo%20Estat%EDstico%20-%20Sistema%20Preg%E3o&Data=04/06/2024&Mercadoria=DAP"

Pag_bmf <- read_html(link)
table_node = html_nodes(Pag_bmf ,"table")
table_content <- html_table(table_node)[[5]] 

I am new to webscraping, and as far as I can tell the value I want is in the following line

/html/body/div/div[2]/form[1]/table[5]/tbody/tr[3]/td