Styjun

Mimic lecturing on blackboard, facing audience

Quoting Keynes in a lecture

What does "Scientists rise up against statistical significance" mean? (Comment in Nature)

A Trivial Diagnosis

How can I write humor as character trait?

What does Apple's new App Store requirement mean

Short story about a deaf man, who cuts people tongues

Pre-mixing cryogenic fuels and using only one fuel tank

Will number of steps recorded on FitBit/any fitness tracker add up distance in PokemonGo?

Can I say "fingers" when referring to toes?

Is it allowed to activate the ability of multiple planeswalkers in a single turn?

Has any country ever had 2 former presidents in jail simultaneously?

Biological Blimps: Propulsion

Can I cause damage to electrical appliances by unplugging them when they are turned on?

Doesn't the system of the Supreme Court oppose justice?

Does the reader need to like the PoV character?

What is the English pronunciation of "pain au chocolat"?

Why is the Sun approximated as a black body at ~ 5800 K?

How can ping know if my host is down

Why do ¬, ∀ and ∃ have the same precedence?

How do you make your own symbol when Detexify fails?

Why Shazam when there is already Superman?

Were Persian-Median kings illiterate?

Make a Bowl of Alphabet Soup

Creating a sublist for elements within a list of lists after creation of list object

List of lists changes reflected across sublists unexpectedlyHow do I remove an element from a list by index in Python?Getting the last element of a list in PythonShuffling a list of objectsHow do I get the number of elements in a list in Python?Is there a simple way to delete a list element by value?How to Sort a List<T> by a property in the objectPython - comparing sublists within two different listsAugment sublists in a list of sublists with missing elements as NAProlog - longest sublist within a list

2

1

Sample list:

sublist <- list(foo = "foo", bar = "bar", baz = "baz")

sample_list <- list(a = sublist,
 b = sublist,
 c = sublist)

Here, I would like to create a sublist for the elements in a b and c within each of the aforementioned lists. I.e I would like to nest foo, bar, baz, one list further down, after I have created the list in the manner above.

Desired output:

sample_list <- list(a = list(a_down = sublist),
 b = list(b_down = sublist),
 c = list(c_down = sublist))

r list recursion

share|improve this question

edited 15 hours ago

VictorNautica

asked 15 hours ago

VictorNauticaVictorNautica

526213

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Something like lapply(1:3, function(i) setNames(list(sublist), letters[i]))?
  
  – Rui Barradas
  15 hours ago
  

  
  
  
  

add a comment | 

2

1

Sample list:

sublist <- list(foo = "foo", bar = "bar", baz = "baz")

sample_list <- list(a = sublist,
 b = sublist,
 c = sublist)

Here, I would like to create a sublist for the elements in a b and c within each of the aforementioned lists. I.e I would like to nest foo, bar, baz, one list further down, after I have created the list in the manner above.

Desired output:

sample_list <- list(a = list(a_down = sublist),
 b = list(b_down = sublist),
 c = list(c_down = sublist))

r list recursion

share|improve this question

edited 15 hours ago

VictorNautica

asked 15 hours ago

VictorNauticaVictorNautica

526213

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Something like lapply(1:3, function(i) setNames(list(sublist), letters[i]))?
  
  – Rui Barradas
  15 hours ago
  

  
  
  
  

add a comment | 

Sample list:

sublist <- list(foo = "foo", bar = "bar", baz = "baz")

sample_list <- list(a = sublist,
 b = sublist,
 c = sublist)

Here, I would like to create a sublist for the elements in a b and c within each of the aforementioned lists. I.e I would like to nest foo, bar, baz, one list further down, after I have created the list in the manner above.

Desired output:

sample_list <- list(a = list(a_down = sublist),
 b = list(b_down = sublist),
 c = list(c_down = sublist))

r list recursion

share|improve this question

edited 15 hours ago

VictorNautica

asked 15 hours ago

VictorNauticaVictorNautica

526213

sublist <- list(foo = "foo", bar = "bar", baz = "baz")

sample_list <- list(a = sublist,
 b = sublist,
 c = sublist)

sample_list <- list(a = list(a_down = sublist),
 b = list(b_down = sublist),
 c = list(c_down = sublist))

share|improve this question

edited 15 hours ago

VictorNautica

asked 15 hours ago

VictorNauticaVictorNautica

526213

share|improve this question

edited 15 hours ago

VictorNautica

asked 15 hours ago

VictorNauticaVictorNautica

526213

asked 15 hours ago

VictorNauticaVictorNautica

526213

asked 15 hours ago

VictorNauticaVictorNautica

526213

1 Answer
1

active

oldest

votes

1

We can use imap

library(purrr)
out2 <- imap(sample_list, ~ set_names(list(.x), paste0(.y, "_down"))) 

or making use of lst

imap(sample_list, ~ lst(!! paste0(.y, "_down") := .x))

-checking with OP's output

identical(out, out2)
#[1] TRUE

share|improve this answer

answered 15 hours ago

akrunakrun

415k13204278

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55280089%2fcreating-a-sublist-for-elements-within-a-list-of-lists-after-creation-of-list-ob%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

1

We can use imap

library(purrr)
out2 <- imap(sample_list, ~ set_names(list(.x), paste0(.y, "_down"))) 

or making use of lst

imap(sample_list, ~ lst(!! paste0(.y, "_down") := .x))

-checking with OP's output

identical(out, out2)
#[1] TRUE

share|improve this answer

answered 15 hours ago

akrunakrun

415k13204278

add a comment | 

1

We can use imap

library(purrr)
out2 <- imap(sample_list, ~ set_names(list(.x), paste0(.y, "_down"))) 

or making use of lst

imap(sample_list, ~ lst(!! paste0(.y, "_down") := .x))

-checking with OP's output

identical(out, out2)
#[1] TRUE

share|improve this answer

answered 15 hours ago

akrunakrun

415k13204278

add a comment | 

We can use imap

library(purrr)
out2 <- imap(sample_list, ~ set_names(list(.x), paste0(.y, "_down"))) 

or making use of lst

imap(sample_list, ~ lst(!! paste0(.y, "_down") := .x))

-checking with OP's output

identical(out, out2)
#[1] TRUE

share|improve this answer

answered 15 hours ago

akrunakrun

415k13204278

library(purrr)
out2 <- imap(sample_list, ~ set_names(list(.x), paste0(.y, "_down"))) 

imap(sample_list, ~ lst(!! paste0(.y, "_down") := .x))

identical(out, out2)
#[1] TRUE

share|improve this answer

answered 15 hours ago

akrunakrun

415k13204278

answered 15 hours ago

akrunakrun

415k13204278

answered 15 hours ago

akrunakrun

415k13204278