Как сохранить список в виде файла в R, чтобы прочитать его в Python?

Question

У меня есть список, который я создал в R. Я хотел бы сохранить его как внешний файл, а затем я хочу прочитать этот файл на Python.

Я использовал:

write.table(list, file="~/test.txt")

Но я получаю это сообщение об ошибке:

Error in write.table(list, file = "~/test.txt") :
 Error in (function (..., row.names = NULL, check.rows = FALSE, check.names = TRUE,  : 
  arguments imply differing number of rows: 9312, 628, 317, 27, 244, 894, 540, 280, 739, 866, 239, 2432, 969, 2033, 75, 509, 539, 321, 6637, 24, 116, 2006, 18, 2695, 16, 47, 32, 34, 28, 102, 44, 462, 84, 30, 73, 77, 29, 400, 60, 80, 31, 101, 680, 100, 58, 126, 112, 122, 155, 123, 167, 138, 149, 202, 246, 296, 240, 68, 350, 583, 46, 701, 467, 636, 654, 56, 418, 230, 64, 90, 74, 72, 67, 61, 55, 41, 40, 35, 25, 23, 22, 20, 19, 17

Редактировать:

Это структура моего списка (я показываю только часть):

$`5`
  [1] "OTU1159"             "OTU1158"             "UniRef90_A0A1B2YRW1"
  [4] "UniRef90_A0A1B2Z315" "UniRef90_A0A1B2Z316" "UniRef90_A0A1Z9FR83"
  [7] "UniRef90_A0A1Z9FRN0" "UniRef90_A0A1Z9FRT6" "UniRef90_A0A1Z9FSZ6"
 [10] "UniRef90_A0A1Z9FTY0" "UniRef90_A0A1Z9FU92" "UniRef90_A0A1Z9FVK9"
 [13] "UniRef90_A0A1Z9FVU0" "UniRef90_A0A1Z9FWD5" "UniRef90_A0A1Z9FYC5"
$`6`
  [1] "OTU4451"             "OTU4536"             "OTU4458"            
  [4] "OTU4430"             "OTU4435"             "OTU2156"            
  [7] "UniRef90_A0A081FUN4" "UniRef90_A0A081FUN8" "UniRef90_A0A0F5AQ41"
 [10] "UniRef90_A0A0R2PEV0" "UniRef90_A0A0R2U5F4" "UniRef90_A0A0R2UTD5"
 [13] "UniRef90_A0A0R2UUB4" "UniRef90_A0A0R2UW29" "UniRef90_A0A0R2UWJ2"
 [16] "UniRef90_A0A0R2UXE1" "UniRef90_A0A0R2UXE3" "UniRef90_A0A0S8BGF5"

Любая помощь?

Answer 1

Попробуйте открыть соединение в режиме добавления текста, open = "at", а затем lapply функция writeLines, чтобы записать один вектор за раз.

fl <- file("~/test.txt", open = "at")
lapply(thelist, writeLines, con = fl)
close(fl)

Приведенный выше код будет записывать векторы по вертикали,один за другим.Чтобы записать их текст построчно, используйте что-то вроде следующего:

fl <- file("~/test.txt", open = "at")
lapply(thelist, function(x){
  x <- paste(x, collapse = " ")
  writeLines(x, con = fl, sep = "\n")
})
close(fl)

Символ-разделитель collapse может быть любым другим символом, таким как табуляция "\t" или запятая.

Answer 2

Это почти то, для чего нужен JSON. Сделайте следующее в R, где l ваш список:

library(jsonlite)
write_json(l, "test.json")

А затем сделайте это на Python:

import json
with open("test.json") as f:
    l = json.load(f)