LocalDriveDaPrice <- "//fs2/world/Analytics/Apps/Qlikview/FTR/SPP_DATA/Markets/DA/LMP_By_SETTLEMENT_LOC"
LocalDriveRefPrice <- "//fs2/world/SMD/Staff/SPP_Auction_Revenue_Rights/PY_2017_2018_ARR_Registration/TCR_REFERENCE_PRICES"
TestListPaths <- list(list(Source = 'NPPD_NPPD', Sink = 'SPRM_SPRM'),
list(Source = 'SPRM_SPRM', Sink = 'NPPD_NPPD'),
list(Source = 'AECI', Sink = 'SPA'),
list(Source = 'SPA', Sink = 'AECI'),
list(Source = 'GRDA.GREC3', Sink = 'WR.NSW'),
list(Source = 'WR.NSW', Sink = 'GRDA.GREC3'),
list(Source = 'GRDA.GREC3', Sink = 'NPPD_NPPD'),
list(Source = 'NPPD_NPPD', Sink = 'GRDA.GREC3')
)
testthat::test_that('getting day-ahead price using FTP on a specific day works', {
dateRange <- lubridate::as_date(c('2016-06-01', '2016-06-03'))
dfData <- getDfDaPriceSpp( dateRange = dateRange )
ind <- dfData[['Settlement Location']] == 'NPPD_NPPD'
testthat::expect_equal(nrow(dfData[ind, ]), 2*24)
# this should not download again, and just use the cache
dateRange <- lubridate::as_date(c('2016-06-02', '2016-06-03'))
testthat::expect_silent(dfData <- getDfDaPriceSpp( dateRange = dateRange ))
ind <- dfData[['Settlement Location']] == 'NPPD_NPPD'
testthat::expect_equal(nrow(dfData[ind, ]), 1*24)
})
testthat::test_that('getting day-ahead price using local drive on a specific day works', {
dateRange <- lubridate::as_date(c('2016-07-01', '2016-07-03'))
dfData <- getDfDaPriceSpp( dateRange = dateRange, ftpRoot = LocalDriveDaPrice )
ind <- dfData[['Settlement Location']] == 'NPPD_NPPD'
testthat::expect_equal(nrow(dfData[ind, ]), 2*24)
# this should not download again, and just use the cache
dateRange <- lubridate::as_date(c('2016-07-02', '2016-07-03'))
testthat::expect_silent(dfData <- getDfDaPriceSpp( dateRange = dateRange, ftpRoot = LocalDriveDaPrice ))
ind <- dfData[['Settlement Location']] == 'NPPD_NPPD'
testthat::expect_equal(nrow(dfData[ind, ]), 1*24)
})
testthat::test_that('getting the lmp distribution works', {
dateRange <- lubridate::as_date(c('2016-07-01', '2016-07-03'))
dfCongest <- getDfSppDaCongestOnPaths(lstPaths = TestListPaths, dateRange, ftpRoot = LocalDriveDaPrice)
# expect 48 hour data for each path
testthat::expect_equal(nrow(dfCongest), 48 * length(TestListPaths))
dfCongest <- getDfDaCongestDistribution(lstPaths = TestListPaths, ftpRoot = LocalDriveDaPrice, periodName = 'Jun_17', onOrOff = 'OFF', yearOffset = 1)
testthat::expect_equal(nrow(dfCongest), length(TestListPaths))
})
testthat::test_that('calculation of reference price works', {
dfCalc <- calcRefPriceSpp(lstPaths = TestListPaths, periodName = 'Jun_17', onOrOff = 'OFF', ftpRoot = LocalDriveDaPrice)
})
testthat::test_that('reference price download works', {
dfRefPrice <- getDfRefPriceByPeriod('Jun_17', onOrOff = 'OFF', ftpRoot = LocalDriveRefPrice, lstPaths = TestListPaths)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.