Question

I have a problem with lists. I have two lists:

List1:

[[1]]
 [1] 176 177 178 179 180

[[2]]
 [1] 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241
 [21] 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256

[[3]]
 [1] 260 261 262 263 264 265

[[4]]
 [1] 293 294 295 296 297 298 299 300 301 302 303 304

[[5]]
 [1] 393 394 395 396 397 398

List 2:

[[1]]
 [1]  99 100 101 102 103

[[2]]
 [1] 260 261 262 263 264 265

[[3]]
 [1] 293 294 295 296 297 298 299 300

[[4]]
  [1] 390 391 392 393 394 395

Now I would like to create a new list with the combined overlapping lists of list 1 and list 2. It should look like this:

List 3:

[[1]]
 [1] 260 261 262 263 264 265

[[2]]
 [1] 293 294 295 296 297 298 299 300 301 302 303 304

[[3]]
 [1] 390 391 392 393 394 395 396 397 398

I would be happy for ideas!

Answer 1

The following gives me the result you asked for:

list1<-list(176:180, 222:256, 260:265, 293:304, 393:398)
list2<-list(99:103, 260:265, 293:300, 390:395)

result <- list()
for (x1 in list1) {
  for (x2 in list2) {
    if (any(x1 %in% x2)) {
      result[[length(result)+1]] <- union(x1, x2) 
    }
  }
}