## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----eval=FALSE---------------------------------------------------------------
# library(paddleR)

## ----eval=FALSE---------------------------------------------------------------
# # Set sandbox mode for testing
# set_paddle_mode("sandbox")
# 
# # Revert back to live mode
# set_paddle_mode("live")

## ----eval=FALSE---------------------------------------------------------------
# get_paddle_mode()  # Returns "live" or "sandbox"
# get_paddle_url()   # Returns full API base URL

## -----------------------------------------------------------------------------
Sys.setenv(PADDLE_KEY = "your-live-or-sandbox-key")

## ----eval=FALSE---------------------------------------------------------------
# Sys.setenv(PADDLE_KEY_LIVE = "your-live-key")
# Sys.setenv(PADDLE_KEY_SANDBOX = "your-sandbox-key")

## ----eval=FALSE---------------------------------------------------------------
# # Set mode to sandbox for testing
# set_paddle_mode("sandbox")
# 
# # List products, subscriptions, or customers
# products <- paddle_list_products()
# subscriptions <- paddle_list_subscriptions()

## ----eval=FALSE---------------------------------------------------------------
# .paddle_env <- new.env(parent = emptyenv())
# .paddle_env$mode     <- "live"
# .paddle_env$base_url <- "https://api.paddle.com"