It's possible to get the theme, then extract specific variable using bslib functions

theme <- bslib::bs_current_theme()
bslib::bs_get_variables(theme , varnames = "primary")

see https://rstudio.github.io/bslib/reference/bs_get_variables.html