使用 GraphQL 的 R 代码不打印嵌套数据

如何解决使用 GraphQL 的 R 代码不打印嵌套数据

我正在使用 neo4j-graphql-js 和 Apollo 服务器创建一个 Shiny 应用程序。我可以访问 GraphQL API 游乐场，我的查询将在那里工作，但目前没有转换为我的应用程序。由于我使用的是模板，我找不到修复它的代码文档。

有问题的代码和查询是这样的：

execute_query = function(query) {
    result <- conn$exec(Query$new()$query('link',query)$link)
    flat_result <- result %>% fromJSON(flatten = F)
    print(flat_result)
    result.df <- as.data.frame(flat_result[[1]])
    print(result.df)
    output$table <- DT::renderDataTable({result.df},rownames = TRUE,filter = 'top',selection = 'multiple',extensions = 'Buttons')
}

# Run a query
execute_query('

query SampleQuery {
Skill{
    name
    projects_in_need_of{
    name
    }
  }
}
')

当我的应用程序运行时，它会在一列中打印出skill.name，然后在另一列中打印出skill.projects_in_need_of，当它应该返回一个项目时。它返回 [object Object] 而不是项目节点。

projects_in_need_of 是一个关系，它在架构中看起来像这样：

 type Skill {
   _id: Long!
   name: String!
   projects_in_need_of: [Project] @relation(name: "IN_NEED_OF",direction: IN)
  
}

我相信我的程序在创建数据表时搞砸了，因为打印 flat_result 和 result.df 给出了正确的信息。