преобразовать пару (1L, 2L) в пару (1,2)

Question

моя проблема в том, что я пытаюсь получить пары по этому коду:
for (i in 1: 4) {for (j in 1: 4) {print (pair (i, j)) *
}}

мой ожидаемый результат будет (1,1), (1,2) .... не (1L, 1L), (1L, 2L)

Answer 1

- ответ на вопрос перед редактированием -

Я предполагаю, что вы имеете в виду pairlist, а не pair.

Если это так, вы можете сделатьследующее:

v <- list(pairlist(1,2),pairlist(3,4))

if (any(sapply(v,identical,pairlist(1,2))))
  print(1)
# [1] 1

if (any(sapply(v,identical,pairlist(2,2))))
  print(1)
# *nothing happens*