Thank you so much for your reply and solution, that works perfectly for the response column. However I am still having trouble with the remainder of the data. The approach you provided does not work for my other property columns. Here is a reprex for the node data attempting to split property2 (which contains only {Prestige:0} or {Prestige:1}). Alsoproperty5 which is perhaps even more awkward in that the data is in the format:
"{"prestige_list": [5, 5, 8, 7, 5, 6], ....
My desired output in this case would be 6 columns labelled round_ 1 -> round_6 for each of the contents of prestige list, conform list and payoff list (so 18 columns total). I can then use the other functions from tidyverse to tidy this into long format data.
In any case, both functions fail on the third line providing the error:
Error in if (is.character(txt) && length(txt) == 1 && nchar(txt, type = "bytes") < : missing value where TRUE/FALSE needed
library(tidyverse)
library(jsonlite)
url <- "https://drive.google.com/uc?export=download&id=139G1oa5kQOMNgb9gKELpa0H0rgt0AE2q"
node <- read_csv(url)
tidy_property2 <- node %>%
select_if(~!all(is.na(.))) %>%
mutate(property2 = map(property2, fromJSON)) %>%
unnest_wider(col = property2)
tidy_property5 <- node %>%
select_if(~!all(is.na(.))) %>%
mutate(property5 = map(property5, fromJSON)) %>%
unnest_wider(col = property5)
Once again, any advice would be greatly appreciated