library(shiny)
library(antaresFlowbased)
library(DT)
library(data.table)
library(rAmCharts)
library(manipulateWidget)
giveTableError <- function(dta){
dta$Inf_error <- round(unlist(lapply(dta$outFlowBased, function(X)X$error$error1)), 3)
dta$Sup_error <- round(unlist(lapply(dta$outFlowBased, function(X)X$error$error2)), 3)
dta$outFlowBased <- NULL
dta
}
get_plot_output_list <- function(dta, input_n, ylim, xlim) {
# Insert plot output objects the list
plot_output_list <- lapply(input_n, function(i) {
plotname <- paste("plot1", i, sep="")
plot_output_object <- combineWidgetsOutput(plotname)
plot_output_object <- renderCombineWidgets({
combineWidgets(
plot(antaresFlowbased:::graphFlowBased2D(dta$outFlowBased[[i]], "BE", "FR", hour = dta$hour[i], dayType = dta$dayType[i], xlim = xlim, ylim = ylim)),
plot(antaresFlowbased:::graphFlowBased2D( dta$outFlowBased[[i]], "DE", "FR", hour = dta$hour[i], dayType = dta$dayType[i], xlim = xlim, ylim = ylim)),
plot(antaresFlowbased:::graphFlowBased2D( dta$outFlowBased[[i]], "BE", "NL", hour = dta$hour[i], dayType = dta$dayType[i], xlim = xlim, ylim = ylim)),
plot(antaresFlowbased:::graphFlowBased2D( dta$outFlowBased[[i]], "DE", "NL", hour = dta$hour[i], dayType = dta$dayType[i], xlim = xlim, ylim = ylim))
)
})
attributes(plot_output_object)$outputFunc <- function (outputId, width = "100%", height = "1000px")
{
htmlwidgets::shinyWidgetOutput(outputId, "combineWidgets",
width, height, package = "manipulateWidget")
}
# print(attributes(plot_output_object)$outputFunc)
plot_output_object
})
do.call(tagList, plot_output_list) # needed to display properly.
return(plot_output_list)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.