Skip to contents

Format Shakepay file

Source: R/format_shakepay.R
format_shakepay.Rd

Format a .csv transaction history file from Shakepay for later ACB processing.

In 2024, the Shakepay transaction history file has changed. Shakepay now provides two files: crypto_transactions_summary.csv and cash_transactions_summary.csv. The new correct file with all transactions is the first one, crypto_transactions_summary.csv.

Furthermore, this file does not report referral rewards anymore, which need to be added manually or through the referral argument (using a list if multiple referrals).

Usage

format_shakepay(data, referral)

Arguments

data

The dataframe

referral

Feature to include referral rewards manually (e.g., as a list with dates and credit amounts) since Shakepay stopped including these in their transaction history files.

Value

A data frame of exchange transactions, formatted for further processing.

Examples

formatted.shakepay <- format_shakepay(data_shakepay)
head(formatted.shakepay)
#>                  date currency   quantity total.price spot.rate transaction
#> 1 2021-05-07 14:50:41      BTC 0.00103982   53.069740  51002.43         buy
#> 2 2021-05-08 12:12:57      BTC 0.00011000    5.784024  52582.03     revenue
#> 3 2021-05-09 12:22:07      BTC 0.00012000    6.034441  50287.01     revenue
#> 4 2021-05-21 12:47:14      BTC 0.00013000    7.348590  56527.62     revenue
#> 5 2021-06-11 12:03:31      BTC 0.00014000    8.396927  59978.05     revenue
#> 6 2021-06-23 12:21:49      BTC 0.00015000    8.852574  59017.16     revenue
#>   description                  comment revenue.type exchange rate.source
#> 1         Buy Bought @ $51,002.432 CAD         <NA> shakepay    exchange
#> 2      Reward              ShakingSats     airdrops shakepay    exchange
#> 3      Reward              ShakingSats     airdrops shakepay    exchange
#> 4      Reward              ShakingSats     airdrops shakepay    exchange
#> 5      Reward              ShakingSats     airdrops shakepay    exchange
#> 6      Reward              ShakingSats     airdrops shakepay    exchange
formatted.shakepay <- format_shakepay(data_shakepay,
 referral = list(
  Date = c("2021-05-07 21:25:36",
           "2021-05-17 21:25:36"),
  Credit = c(30, 10)))
head(formatted.shakepay)
#>                  date currency    quantity total.price spot.rate transaction
#> 1 2021-05-07 14:50:41      BTC  0.00103982   53.069740  51002.43         buy
#> 2 2021-05-07 21:25:36      CAD 30.00000000   30.000000      1.00     revenue
#> 3 2021-05-08 12:12:57      BTC  0.00011000    5.784024  52582.03     revenue
#> 4 2021-05-09 12:22:07      BTC  0.00012000    6.034441  50287.01     revenue
#> 5 2021-05-17 21:25:36      CAD 10.00000000   10.000000      1.00     revenue
#> 6 2021-05-21 12:47:14      BTC  0.00013000    7.348590  56527.62     revenue
#>   description                  comment revenue.type exchange rate.source
#> 1         Buy Bought @ $51,002.432 CAD         <NA> shakepay    exchange
#> 2      Reward          Referral reward    referrals shakepay    exchange
#> 3      Reward              ShakingSats     airdrops shakepay    exchange
#> 4      Reward              ShakingSats     airdrops shakepay    exchange
#> 5      Reward          Referral reward    referrals shakepay    exchange
#> 6      Reward              ShakingSats     airdrops shakepay    exchange