library(stringr)
str_replace('filter [70.00-140.00]','(?<=\\[)\\d+', '80')
sub('\\[\\d+', '[80', 'filter [70.00-140.00]')
sub('(?<=\\[)\\d+', '80', 'filter [70.00-140.00]', perl=TRUE)
bGlicmFyeShzdHJpbmdyKQpzdHJfcmVwbGFjZSgnZmlsdGVyIFs3MC4wMC0xNDAuMDBdJywnKD88PVxcWylcXGQrJywgJzgwJykKc3ViKCdcXFtcXGQrJywgJ1s4MCcsICdmaWx0ZXIgWzcwLjAwLTE0MC4wMF0nKQpzdWIoJyg/PD1cXFspXFxkKycsICc4MCcsICdmaWx0ZXIgWzcwLjAwLTE0MC4wMF0nLCBwZXJsPVRSVUUp