sunsynkr
is an R package to help you acquire information about Sunsynk photovoltaic systems from their API. If you have a Sunsynk inverter and an account to view and manage it on SunsynkConnect, you should be able to use this package to retrieve information about your plant.
Note that this package is unofficial and is in no way associated with Sunsynk. It may stop working (or return misleading outputs) at any time and without warning.
Also note that this package is currently at an early stage of development. Functions may not work as specified and things may change fundamentally in future versions.
Installation
From R, you can install the current release of sunsynkr
like so:
devtools::install_github("DavidASmith/sunsynkr")
Example usage
First, load the package.
Authentication
You must configure environment variables to hold your sunsynk username and password (the ones you use to login to SunsynkConnect at https://sunsynk.net/). Configure the following environment variables:
SUNSYNK_USER
SUNSYNK_PASS
Get a token
All sunsynkr
functions which call the API require a token as an argument. Accordingly, you must first acquire an authentication token.
token <- get_token()
token
#> Sunsynk API token - Success
#> Type: bearer
#> Scope: all
You can now use this token to authenticate other susynkr
functions to the API.
Get plants details
You can now get details of all plants associated with your account.
plants <- get_plants(token)
Printing the sunsynkr_plants
object returns a tibble summarising the information available for each plant.
plants
#> # A tibble: 1 × 7
#> id name address pac etoday etotal update_at
#> <chr> <chr> <chr> <int> <dbl> <dbl> <chr>
#> 1 XXXXXX XXXXX XXXXX XX XXXXXXX XX, XXXXXXXXX XXX… 0 27.3 7398. 2024-07-…
Flow
We can query the most recent power flow from the API for a given plant. We can extract the plant from plants
like this.
plant_id <- plants$data$infos[[1]]$id
Then, we can obtain the power flow for the plant.
flow <- get_flow(token,
plant_id)
Printing the sunsynkr_flow
object outputs a representation of the power flows managed by the inverter.
flow
#> PV 0W ----- --<-- 19W Grid
#> | ------- |
#> -----| |--<--
#> | Inv |
#> -->--| |-->--
#> | ------- |
#> BATT 152W -->-- -->-- 166W Load
#> (89%)
Day summary
You can return a summary of all power flows (and battery state of charge) at five minute intervals for a given day.
date <- lubridate::today() - lubridate::days(1)
day_summary_table <- get_day_summary_table(token,
plant_id,
date)
day_summary_table
#> # A tibble: 288 × 6
#> dt pv_w battery_w `soc_%` load_w grid_w
#> <dttm> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 2024-07-30 00:00:00 0 15 57 172 162
#> 2 2024-07-30 00:05:00 0 14 57 172 160
#> 3 2024-07-30 00:10:00 0 17 57 169 154
#> 4 2024-07-30 00:15:00 0 15 57 170 155
#> 5 2024-07-30 00:20:00 0 13 57 161 161
#> 6 2024-07-30 00:25:00 0 16 56 171 159
#> 7 2024-07-30 00:30:00 0 17 56 166 149
#> 8 2024-07-30 00:35:00 0 17 56 167 153
#> 9 2024-07-30 00:40:00 0 16 56 170 157
#> 10 2024-07-30 00:45:00 0 13 56 165 153
#> # ℹ 278 more rows
You can also generate a plot of the day summary table.
plot(day_summary_table)