You haven't shared what you want to scrape but you don't need to create a session.
For example, to get titles of the journal in the first page you can do :
library(rvest)
apa_url <- "https://www.apa.org/pubs/journals/browse?query=Title:*&type=journal"
apa_url %>%
read_html() %>%
html_nodes('section.sresults li a') %>%
html_text()
# [1] "American Journal of Orthopsychiatry - APA Publishing | APA"
# [2] "American Psychologist Journal - APA Publishing | APA"
# [3] "Archives of Scientific Psychology"
# [4] "Asian American Journal of Psychology"
# [5] "Behavior Analysis: Research and Practice"
# [6] "Behavioral Development"
#...
#...
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…