클리앙 크롤링 실습 중 문의사항

안녕하세요, 클리앙 크롤링편을 실습중인데 아래와 같이 오류가 뜨고 진행이 되지 않아 문의남깁니다.

url <- "https://www.clien.net/service/board/park?&od=T31&po=0"

b<-readLines(url, encoding = "UTF-8")

b2<-b[str_detect(b, "subject_fixed")]

b2

---

 [1] "\t\t\t\t\t\t<span class=\"subject_fixed\" data-role=\"list-title-text\" title=\"인권위는 성추행이 아니라 성희롱으로 표현했네요\">"                   

 [2] "\t\t\t\t\t\t<span class=\"subject_fixed\" data-role=\"list-title-text\" title=\"역시 낙연이 형이야! 사면해주러 왔구나.jpg\">"    

---

str_extract(b2,("(?<=title=\").*(?=\">")"))

---

> str_extract(b2,("(?<=title=\").*(?=\">")"))

+ str_extract(b2,("(?<=title=\").*(?=\">")"))

에러: 예상하지 못한 문자열 상수(string constant)입니다. in:

"str_extract(b2,("(?<=title=\").*(?=\">")"))

str_extract(b2,(""

---

어디가 잘못된 걸까요..?

답변 부탁드립니다..!