Inst/ThreadNet/ui/visualize.R

In ThreadNet/ThreadNet: ThreadNet

tabPanel(value = "visualize",
    "Visualize",
    fluidRow(
        column(3,uiOutput("Visualize_Tab_Controls_1")),
        column(3,uiOutput("Visualize_Tab_Controls_3")),
        conditionalPanel(
            condition = "input.tabs !== 'Custom'",
            column(4,uiOutput("Visualize_Tab_Controls_2") )
        )
    ),
    tabsetPanel(
        type = "tabs",
         tabPanel("Thread Trajectories", plotlyOutput("ThreadTrajectoriesOutput") ),
         tabPanel(
            "Whole Sequences",
            radioButtons(
                "ChoosePanelButton_1",
                label = h4("Display threads using:"),
                choices = c("Event time (sequence)", "Actual time", "Relative time"),
                inline=TRUE
            ),
            conditionalPanel(
                condition = "input.ChoosePanelButton_1 == 'Event time (sequence)'",
                plotlyOutput("WholeSequenceThreadMap_Sequence")
            ),
            conditionalPanel(
                condition = "input.ChoosePanelButton_1 == 'Actual time'",
                plotlyOutput("WholeSequenceThreadMap_ActualTime")
            ),
            conditionalPanel(
                condition = "input.ChoosePanelButton_1 == 'Relative time'",
                plotlyOutput("WholeSequenceThreadMap_RelativeTime")
            )
        ),
        tabPanel(
          "Contextual Factors",
          plotlyOutput("visualizePieCharts")
        ),
        tabPanel("N-grams", uiOutput("nGramControls"), plotlyOutput("nGramBarchart")),
        tabPanel(
            "Event network (circle)",
            uiOutput("Circle_Network_Tab_Controls"),
            textOutput("Circle_Network_Path_Estimate"),
            textOutput("Network_Nodes_Edges"),
            visNetworkOutput("circleVisNetwork", width = "100%", height = "1200px")
        ),
        tabPanel(
            "Event network (force)",
            uiOutput("Force_Network_Tab_Controls"),
            fluidRow(
                column(9, forceNetworkOutput("forceNetworkD3", width = "100%", height = "1200px")),
                column(3, plotlyOutput("networkPie"))
            )
        ),
        # tabPanel(
        #     "Event Frequency",
        #     value = 'Custom',
        #     fluidRow(
        #         column(3, uiOutput("VisualizeCustomNetwork_Controls_0")),
        #         column(3, uiOutput("VisualizeCustomNetwork_Controls_1"))
        #     ),
        #     plotlyOutput("VisualizeCustomNetwork")
        #     # verbatimTextOutput("hover"),
        #     # verbatimTextOutput("click")
        # ),
        tabPanel(
            "Other networks",
            uiOutput("Other_Network_Tab_Controls"),
            visNetworkOutput("otherVisNetwork", width = "100%", height = "1200px")
        ),
        tabPanel("Role Maps",
                 uiOutput("Role_map_controls"),
                 plotlyOutput("Role_map_output")
                 ),
        tabPanel(
          "Data Table",
          DT::dataTableOutput("visualizePOVData"))

    )
)