С именованным списком вы получите имена в итоговой таблице:
ll <- list(t1 = t1, t2 = t2, t3 = t3)
tab <-
ll %>%
map_df(tidy, .id = "id")
Ваш селектор
$("div a.action:visible:first-child").addClass("first");
соответствует только элементу A , только если он является первым дочерним элементом родительского DIV и когда он видим.
Если вы хотите получить первый видимый элемент A , вы должны использовать функцию .eq
$("div a.action:visible").eq(0).addClass("first");
или псевдокласс : first
$("div a.action:visible:first").addClass("first");
Я не уверен, почему : visible: first-child
не работает, но вы можете попробовать
$("div a.action:visible").eq(0).addClass("first");
Насколько мне известно, селектор псевдокласса: first-child будет соответствовать только первому потомку. Его нельзя дополнительно указать, добавив псевдокласс, который также должен быть видимым. Вы можете попробовать написать
$("div a.action:visible:first").addClass("first");
вместо того, чтобы использовать правильный псевдокласс css. Документация JQuery для: first