import requests
import json

class PRCTClient:
    def __init__(self, base_url="https://prct.xeradb.com"):
        self.base_url = base_url
        
    def get_paper_citations(self, record_id):
        """Get citation data for a specific paper"""
        url = f"{self.base_url}/api/paper/{record_id}/citations/"
        response = requests.get(url)
        response.raise_for_status()
        return response.json()
    
    def search_autocomplete(self, query):
        """Get search suggestions"""
        url = f"{self.base_url}/api/search-autocomplete/"
        params = {"q": query}
        response = requests.get(url, params=params)
        response.raise_for_status()
        return response.json()["suggestions"]
    
    def get_analytics(self, data_type="overview"):
        """Get analytics data"""
        url = f"{self.base_url}/api/analytics-data/"
        params = {"type": data_type}
        response = requests.get(url, params=params)
        response.raise_for_status()
        return response.json()

# Usage example
client = PRCTClient()

# Get citations for a specific paper
citations = client.get_paper_citations("RW12345")
print(f"Post-retraction citations: {citations['post_retraction_count']}")

# Search for papers
suggestions = client.search_autocomplete("covid")
for paper in suggestions:
    print(f"{paper['title']} - {paper['journal']}")

# Get paper citations
curl -X GET "https://prct.xeradb.com/api/paper/RW12345/citations/" \
  -H "Accept: application/json"

# Search autocomplete
curl -X GET "https://prct.xeradb.com/api/search-autocomplete/?q=covid" \
  -H "Accept: application/json"

# Get post-retraction analytics with filters
curl -X GET "https://prct.xeradb.com/api/post-retraction-analytics/?time_filter=1y&journal=nature" \
  -H "Accept: application/json"

# Export data
curl -X GET "https://prct.xeradb.com/api/export/?format=json&limit=100" \
  -H "Accept: application/json"

library(httr)
library(jsonlite)

# PRCT API client for R
get_paper_citations <- function(record_id, base_url = "https://prct.xeradb.com") {
  url <- paste0(base_url, "/api/paper/", record_id, "/citations/")
  response <- GET(url)
  stop_for_status(response)
  return(content(response, "parsed"))
}

search_autocomplete <- function(query, base_url = "https://prct.xeradb.com") {
  url <- paste0(base_url, "/api/search-autocomplete/")
  response <- GET(url, query = list(q = query))
  stop_for_status(response)
  return(content(response, "parsed")$suggestions)
}

# Usage
citations <- get_paper_citations("RW12345")
cat("Post-retraction citations:", citations$post_retraction_count, "\n")

suggestions <- search_autocomplete("covid")
for (paper in suggestions) {
  cat(paper$title, "-", paper$journal, "\n")
}