library(stringr)
test <- "asdf asiodjfojewl kjwnkjwnefkjnkf [asdf] fasdfads fewrw [keyword<1] keyword [keyword>1]"
## If the word is right after "[":
str_extract_all(test, "(?<=\\[)keyword[^\\]\\[]*(?=])")
## If the word is anywhere betwee "[" and "]":
str_extract_all(test, "(?<=\\[)[^\\]\\[]*?keyword[^\\]\\[]*(?=])")
bGlicmFyeShzdHJpbmdyKQp0ZXN0IDwtICJhc2RmIGFzaW9kamZvamV3bCBrandua2p3bmVma2pua2YgW2FzZGZdIGZhc2RmYWRzIGZld3J3IFtrZXl3b3JkPDFdIGtleXdvcmQgW2tleXdvcmQ+MV0iCiMjIElmIHRoZSB3b3JkIGlzIHJpZ2h0IGFmdGVyICJbIjoKc3RyX2V4dHJhY3RfYWxsKHRlc3QsICIoPzw9XFxbKWtleXdvcmRbXlxcXVxcW10qKD89XSkiKQojIyBJZiB0aGUgd29yZCBpcyBhbnl3aGVyZSBiZXR3ZWUgIlsiIGFuZCAiXSI6CnN0cl9leHRyYWN0X2FsbCh0ZXN0LCAiKD88PVxcWylbXlxcXVxcW10qP2tleXdvcmRbXlxcXVxcW10qKD89XSkiKQ==