Код R с использованием GraphQL не печатает вложенные данные

#r #shiny #neo4j #graphql #neo4j-graphql-js

Вопрос:

Я создаю блестящее приложение, используя neo4j-graphql-js и сервер Apollo. Я могу получить доступ к игровой площадке API GraphQL, и мой запрос будет работать там, но в настоящее время не переводится в мое приложение. Поскольку я использую шаблон, я не могу найти документацию по коду, чтобы исправить его.

Код и запрос, о которых идет речь, таковы:

 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] вместо узла проекта.

projects_in_need_of-это связь, она выглядит так в схеме:

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

Я считаю, что моя программа ошибается при создании таблицы данных из-за печати flat_result и результата.df предоставляет правильную информацию.