Выделение текста в двух квадратных скобках с помощью str_extract

Question

У меня есть несколько переменных меток, которые выглядят так.

Как извлечь текст в квадратных скобках, используя stringr

var1<-' [I don\'t think public officials care much what people like me think.] 
For the following questions, please indicate whether you strongly agree, agree, 
disagree, or strongly disagree.'
var1
library(stringr)
str_extract(var1, '\[.\]')

Answer 1

Можно было бы использовать поиск по регулярному выражению для соответствия всем символам, которые не являются закрывающей квадратной скобкой, следующей за открывающей скобкой

library(stringr)
str_extract(var1, "(?<=\\[)[^]]+")
#[1] "I don't think public officials care much what people like me think."

data

var1 <- " [I don't think public officials care much what people like me think.] \n\t\tFor the following questions, please indicate whether you strongly agree, agree, \n\t\tdisagree, or strongly disagree."