tests/testthat/test-viewAntares.R

In rte-antares-rpackage/antaresRead: Import, Manipulate and Explore the Results of an 'Antares' Simulation

# context("viewAntares")
# 
# sapply(studyPathS, function(studyPath){
#   
# opts <- setSimulationPath(studyPath)
# 
# # describe("viewAntares", {
# #   with_mock(
# #     `utils::View` = function(x, title) {print(title)},
# #     {
# #       it("views an antaresDataTable", {
# #         data <- readAntares(timeStep = "annual", select = "LOAD", showProgress = FALSE)
# #         expect_output(viewAntares(data), "data")
# #       })
# #       
# #       it("views an antaresDataList", {
# #         data <- readAntares("all", "all", timeStep = "annual", 
# #                             select = c("LOAD", "FLOW LIN."), showProgress = FALSE)
# #         expect_output(viewAntares(data), "data\\$areas")
# #         expect_output(viewAntares(data), "data\\$links")
# #       })
# #     }
# #   )
# #   
# #   with_mock(
# #     `utils::View` = function(x, title) {return(NULL)},
# #     {
# #       it("displays a warning if there is more than 100 columns", {
# #         data <- readAntares(timeStep = "annual", showProgress = FALSE)
# #         expect_warning(viewAntares(data), "100 columns")
# #       })
# #     }
# #   )
# # })
# })
# if(.requireRhdf5_Antares(stopP = FALSE) & .runH5Test){
#   rhdf5::h5closeAll()
# }
# 
# if(.requireRhdf5_Antares(stopP = FALSE) & .runH5Test){
#   if(dir.exists(tpDir))
#   {
#     unlink(tpDir, recursive = TRUE)
#   }
# }