Exporting Data

{
  "summary": "This analysis examines the arguments for and against universal basic income (UBI). Proponents argue that UBI would reduce poverty and provide economic security, while critics express concerns about cost and work incentives..."
}

{
  "analysis": "The 'for' arguments are generally well-supported with empirical evidence from pilot programs. However, the economic feasibility claims rely heavily on contested assumptions about funding mechanisms. The 'against' arguments raise valid concerns about incentive structures, but several employ slippery slope reasoning..."
}

{
  "socialPulse": "Current discussions on social media show mixed reactions...",
  "tweets": [
    {
      "id": "123456789",
      "text": "UBI trial results are promising...",
      "author": {
        "name": "Jane Doe",
        "username": "janedoe",
        "profile_image_url": "https://..."
      },
      "public_metrics": {
        "retweet_count": 45,
        "reply_count": 12,
        "like_count": 230,
        "impression_count": 5400
      },
      "created_at": "2024-01-15T10:30:00.000Z"
    }
  ]
}

import json

# Read the JSON file
with open('analysis.json', 'r') as f:
    analysis_data = json.load(f)

# Access components
blueprint = analysis_data['blueprint']
summary = analysis_data['summary']
tweets = analysis_data['tweets']

# Find thesis
thesis = next(
    (node for node in blueprint 
     if node['type'] == 'thesis' and node['parentId'] is None),
    None
)

# Filter by node type
claims = [node for node in blueprint if node['type'] == 'claim']
evidence = [node for node in blueprint if node['type'] == 'evidence']

# Find nodes with fallacies
fallacious = [node for node in blueprint if len(node['fallacies']) > 0]

library(jsonlite)

# Read the JSON file
analysis_data <- fromJSON('analysis.json')

# Access components
blueprint <- analysis_data$blueprint
summary <- analysis_data$summary
tweets <- analysis_data$tweets

# Find thesis
thesis <- blueprint[blueprint$type == 'thesis' & is.na(blueprint$parentId), ]

# Filter by node type
claims <- blueprint[blueprint$type == 'claim', ]
evidence <- blueprint[blueprint$type == 'evidence', ]

# Find nodes with fallacies
fallacious <- blueprint[lengths(blueprint$fallacies) > 0, ]