Good. What have you tried? The table looks a bit tricky being in a dataTables_wrapper.
This is the top line anyway:
library(tidyverse)
library(rvest)
url <- "http://www4.vestibular.ufjf.br/2021/notaspism1/A.html"
read_html(url) %>%
html_nodes('table') %>%
.[2] %>%
html_table(fill = TRUE) %>%
as.data.frame()