In rte-antares-rpackage/fbClust: A Tool Of Ptdf Manipulation In Order To Cluster And Visualize Domains

library(flexdashboard)
library(rAmCharts)
library(manipulateWidget)
library(ggplot2)
library(pipeR)
library(data.table)
library(DT)
library(shiny)
library(gridExtra)

# vizTypicalDay <- function(data, combi, hour, dayType) {
#   tags$div(
#     tags$div(style = "height: 830px; width : 840px",
#              combineWidgets(
#                ncol = 2,
#                list = lapply(1:nrow(combi), function(X) {
#                  clusterPlot(data, combi[X, 1], combi[X, 2], hour, dayType,
#                              ggplot = F, typicalDayOnly = T, xlim = xlim, ylim = ylim)
#                }))
#     ),
#     align = "center")
# }

vizTypicalDay <- function(data, combi, hour, dayType) {
  # column(12,
         combineWidgets(
           ncol = 2,
           list = lapply(1:nrow(combi), function(X) {
             clusterPlot(data = data, country1 = combi[X, 1], country2 = combi[X, 2], 
                         hour = hour, dayType = dayType,
                         ggplot = F, typicalDayOnly = T, xlim = xlim, ylim = ylim,
                         export = F)
           }), width = "100%", height = "100%")
  # )
}

vizHistoricalDay <- function(data, combi, hour, dayType) {
  grid.arrange(grobs = lapply(1:nrow(combi), function(X) {
    clusterPlot(data, combi[X, 1], combi[X, 2], hour, dayType, ggplot = T,
                xlim = xlim, ylim = ylim)
  }), ncol = 2)
}

Cluster {data-navmenu="Hour"}

Typical day, hour : `r data[idDayType == dayType]$TypicalDay`

Column {data-width=100}

Day in cluster

day <- data[idDayType == dayType]$TypicalDay

datatable(data.frame(Date = as.character(unique(data[idDayType == dayType]$dayIn[[1]]$Date))), rownames=FALSE, 
          # filter = 'top'
          extensions = 'Buttons',
          options = list(searching=F,
                         paging = F,
                         bInfo = F,
                         pageLength = 10000,
                         dom = 'Bfrtip',
                         buttons = list(
                           list(extend = 'csv',
                                buttons = c('csv'),
                                text = 'Download data',
                                filename = "cluster_typicalDay")
                         )
          )
)

uniqPeriod <- unique(data[, dayIn][[1]]$Period)

Column {.tabset}

Hour 1 {data-navmenu="Hour"}

hour <- 1

Column {.tabset}

Historical domains, hour 1

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 1

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 2 {data-navmenu="Hour"}

hour <- 2

Column {.tabset}

Historical domains, hour 2

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 2

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 3 {data-navmenu="Hour"}

hour <- 3

Column {.tabset}

Historical domains, hour 3

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 3

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 4 {data-navmenu="Hour"}

hour <- 4

Column {.tabset}

Historical domains, hour 4

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 4

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 5 {data-navmenu="Hour"}

hour <- 5

Column {.tabset}

Historical domains, hour 5

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 5

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 6 {data-navmenu="Hour"}

hour <- 6

Column {.tabset}

Historical domains, hour 6

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 6

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 7 {data-navmenu="Hour"}

hour <- 7

Column {.tabset}

Historical domains, hour 7

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 7

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 8 {data-navmenu="Hour"}

hour <- 8

Column {.tabset}

Historical domains, hour 8

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 8

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 9 {data-navmenu="Hour"}

hour <- 9

Column {.tabset}

Historical domains, hour 9

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 9

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 10 {data-navmenu="Hour"}

hour <- 10

Column {.tabset}

Historical domains, hour 10

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 10

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 11 {data-navmenu="Hour"}

hour <- 11

Column {.tabset}

Historical domains, hour 11

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 11

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 12 {data-navmenu="Hour"}

hour <- 12

Column {.tabset}

Historical domains, hour 12

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 12

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 13 {data-navmenu="Hour"}

hour <- 13

Column {.tabset}

Historical domains, hour 13

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 13

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 14 {data-navmenu="Hour"}

hour <- 14

Column {.tabset}

Historical domains, hour 14

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 14

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 15 {data-navmenu="Hour"}

hour <- 15

Column {.tabset}

Historical domains, hour 15

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 15

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 16 {data-navmenu="Hour"}

hour <- 16

Column {.tabset}

Historical domains, hour 16

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 16

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 17 {data-navmenu="Hour"}

hour <- 17

Column {.tabset}

Historical domains, hour 17

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 17

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 18 {data-navmenu="Hour"}

hour <- 18

Column {.tabset}

Historical domains, hour 18

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 18

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 19 {data-navmenu="Hour"}

hour <- 19

Column {.tabset}

Historical domains, hour 19

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 19

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 20 {data-navmenu="Hour"}

hour <- 20

Column {.tabset}

Historical domains, hour 20

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 20

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 21 {data-navmenu="Hour"}

hour <- 21

Column {.tabset}

Historical domains, hour 21

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 21

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 22 {data-navmenu="Hour"}

hour <- 22

Column {.tabset}

Historical domains, hour 22

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 22

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 23 {data-navmenu="Hour"}

hour <- 23

Column {.tabset}

Historical domains, hour 23

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 23

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

Hour 24 {data-navmenu="Hour"}

hour <- 24

Column {.tabset}

Historical domains, hour 24

if (hour %in% uniqPeriod) {
  vizHistoricalDay(data, combi, hour, dayType)
}

Typical day, hour 24

if (hour %in% uniqPeriod) {
  vizTypicalDay(data, combi, hour, dayType)
}

rte-antares-rpackage/fbClust documentation built on July 4, 2023, 12:06 a.m.