x <- c("[@Fotheringham1981]", "df[1,2]")
gsub("\\[@([^]]*)]", "\\\\cite{\\1}", x)