x <- "01000010011010010110111101101001011011100110011001101111"
str_split(x,pattern = "") %>% unlist %>% rev() %>% paste0(collapse = "")
