| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990 |
- library(shiny)
- # Tab for the scatter plot output
- sct_plot <- tabPanel(
- "Scatter plot",
- # Div for the scatter plot
- tags$div(id = "scatterplot_area"),
- # table for selected elements
- tags$div(id = "table",
- tags$table(
- tags$tr(
- tags$th("Agente Causador"),
- tags$th("Hora"),
- tags$th("Idade")
- )
- )
- )
- )
- # Tab for dendrogram
- dendrogram <- tabPanel(
- "Dendrogram",
- #Div for the tree
- tags$div(id = "dendrogram_area")
- )
- # Tab choropleth
- choropleth <- tabPanel(
- "Choropleth",
- # Div for the bar chart
- tags$div(id = "choropleth_area")
- )
- # Tab for a Treemap
- treemap2 <- tabPanel(
- "TreeMap",
- # Div for the bar chart
- tags$div(id = "treemap2_area")
- )
- # Tab for a Parallel Coordinates
- parallelcoordinates <- tabPanel(
- "Parallel Coordinates",
- # Div for the Parallel Coordinates
- tags$div(id = "parallelcoordinates_area"),
- tags$div(id = "parallelcoordinates_table",
- tags$table(
- tags$tr(
- tags$th("Acidentes"),
- tags$th("Sexo"),
- tags$th("Hora")
- )
- )
- )
- )
- # main content UI layout
- body <- mainPanel(
- tabsetPanel(
- sct_plot,
- dendrogram,
- choropleth,
- treemap2,
- parallelcoordinates
- )
- )
- # Combine different UI elements to form app
- ui <- fluidPage(
- tags$head(tags$link(rel = "stylesheet", type = "text/css", href = "style.css"),
- tags$script(src="d3.js"),
- tags$script(src="polybrush.js"),
- tags$script(src="scatterplot.js"),
- # tags$script(src="tree.js"),
- tags$script(src="dendrogram.js"),
- # tags$script(src="treemap.js"),
- tags$script(src="choropleth.js"),
- tags$script(src="treemap2.js"),
- tags$script(src="parallelcoordinates.js"),
- tags$script(src="radarchart.js")),
- #tags$script(src="http://d3js.org/d3.v5.min.js"),
- body
- )
|
