R/datacleaner_ui.R

In datacleanr: Interactive and Reproducible Data Cleaning

# UI ----------------------------------------------------------------------
# //-------------------------------------------------------------------------




datacleanr_ui <- function(request) {

  # ns <- shiny::NS(id)


  # Panel texts ----------------------------

  text_grouping_side_panel <- shiny::tagList(
    shiny::br(),
    shiny::p("Select grouping variables for subsequent viewing and cleaning.")
  )
  text_startsummary_side_panel <- shiny::tagList(
    shiny::br(),
    shiny::p(
      "Clicking",
      shiny::tags$strong("Set and Start"),
      "will set the grouping structure throughout",
      shiny::tags$code("datacleanr", .noWS = "after"),
      ". After changing the structure",
      shiny::tags$strong("please click again.")
    )
  )

  # text_filtering_side_panel <- shiny::tagList(
  #     # shiny::p(
  #     # shiny::tags$b("Add/Remove"),
  #     # "text boxes and add unquoted filter statements."),
  #     shiny::p(shiny::tags$b("Add/Remove"),
  #              "filter statements as necessary. These are passed to",
  #              shiny::tags$b("base::subset()"), "."),
  #     shiny::p("Use", shiny::tags$b("single quotes"), "for values of character/factor variables."),
  #     shiny::tags$p("For example, valid statements for filtering",
  #                   shiny::tags$b("iris"),
  #                   "are:"),
  #     shiny::tags$ol(
  #         shiny::tags$li(shiny::tags$small("Species == 'setosa'")),
  #         shiny::tags$li(shiny::tags$small("Species %in% c('setosa','versicolor')"))),
  #
  #     shiny::br(),
  #     shiny::p("Click",
  #              shiny::tags$b("'Apply'"),
  #              "when you're ready, and",
  #              shiny::tags$b("'Reset'"),
  #              "to start from scratch."))
  #
  #
  # text_annotate_side_panel <- shiny::tagList(
  #     shiny::p("After selecting points by",
  #              shiny::tags$b("clicking/lasso-selecting"),
  #              "the",
  #              shiny::tags$b("last selection"),
  #              "can be annotated with a text label.",
  #              shiny::br(),
  #              "These labels are collected and provided as an additional column",
  #              shiny::tags$b("'.annotation'"),
  #              "in the table to the right and outputted via the",
  #              shiny::tags$b("Extraction Tab.")),
  #     shiny::br(),
  #
  #     shiny::p("The annotation can be updated or removed by deleting all characters in the input box and clicking the button again.",
  #              "Note, that the most-recent selection can be deleted with a ",
  #              shiny::tags$b("double-click on the plot."),
  #              "This also removes the respective annotations."))
  #
  #
  # text_plot_main_panel <- shiny::tagList(
  #     shiny::p("Select at least ",
  #              shiny::tags$b("X and Y"),
  #              " variables and click",
  #              shiny::tags$b("'Plot!'."),
  #              "The",
  #              shiny::tags$b("Z"),
  #              "variable adjusts point size.",
  #              "The legend entries correspond with the rownumbers on the table to the left.",
  #              "Individual items (i.e. groups) can be",
  #              shiny::tags$b("hidden"),
  #              "by clicking on the legend.",
  #              "Double-clicking one item hides all others (speeding up selections), and a subsequent double-click displays all data."),
  #     shiny::p("Note, that",
  #              shiny::tags$b("'Plot!'"),
  #              "must be clicked after any variable input has been",
  #              shiny::tags$b("clicked or changed."),
  #              shiny::br(),
  #              shiny::br(),
  #              "To mark and exclude outliers, ",
  #              shiny::tags$b("click or lasso/box select"),
  #              "individual points.",
  #              shiny::tags$b("Double-click"),
  #              "on the plot area to remove the last selection.",
  #              shiny::br(),
  #              "The plot's",
  #              shiny::tags$b("control bar"),
  #              "allows to",
  #              shiny::tags$b("zoom and reset views")),
  #     shiny::br(),
  #
  #     shiny::p("Selected points appear in the",
  #              shiny::tags$b(" table below"),
  #              "and can be annotated with the tool to the left."))

  shiny::tagList(


    shiny::navbarPage(
      "datacleanr",
      id = "nav",

      # TAB GROUPING ------------
      shiny::tabPanel(
        value = "tabOverview",
        id = "tabOv",
        title = "Set-up & Overview",
        icon = shiny::icon("layer-group"),

        # panel set-up
        shiny::sidebarLayout(
          sidebarPanel = shiny::sidebarPanel(
            shiny::h4(shiny::tags$strong("Grouping")),

            shiny::actionLink("help-ov",
                              "Click for Help",
                              icon = shiny::icon("question-circle")
            ),
            shiny::br(),

            text_grouping_side_panel,


            module_ui_group_select(id = "group"),
            module_ui_checkbox(
              id = "grouptick",
              cond_id = "group-groupvar"
            ),
            # shiny::br(),
            # shiny::h4(shiny::tags$strong("Start and Summarize")),
            shiny::actionButton("gobutton",
                                "Set and Start",
                                icon = shiny::icon("rocket"),
                                class = "btn-info"
            ),
            # shiny::actionLink("help-start",
            #                   "Click for Help",
            #                   icon = shiny::icon("question-circle")),
            shiny::br(),

            text_startsummary_side_panel,
            width = 3
          ), # /sidebarPanel

          mainPanel = shiny::mainPanel(

            # shiny::actionButton("gosummary",
            #                     "Summarize",
            #                     icon = shiny::icon("rocket"),
            #                     class = "btn-info"),

            # shiny::uiOutput("gosummarybutton"),
            shiny::tagList(
              shiny::actionLink("help-summarize",
                                "Click for Help",
                                icon = shiny::icon("question-circle")
              ),

              module_ui_summary(id = "summary")
            )
          ) # /mainPanel
        ) # /sidebarLayout
      ), # /tabPanel

      # TAB FILTERING -----------
      shiny::tabPanel(
        value = "tabFiltering",
        id = "tabFil",
        title = "Filtering",
        icon = shiny::icon("sliders-h"),


        shiny::sidebarLayout(
          sidebarPanel = shiny::sidebarPanel(
            shiny::h4(shiny::tags$strong("Filter Statements")),

            shiny::actionLink("help-filter",
                              "Click for Help",
                              icon = shiny::icon("question-circle")
            ),

            shiny::br(),
            shiny::br(),

            shiny::actionButton("addbutton",
                                "Add",
                                icon = shiny::icon("plus-circle")
            ),
            shiny::actionButton("removebutton",
                                "Remove",
                                icon = shiny::icon("trash")
            ),
            shiny::br(),
            # text_filtering_side_panel,
            shiny::br(),

            module_ui_df_filter("check"),

            shiny::br(),

            shiny::tagList(
              shiny::actionButton(
                inputId = "apply_filter",
                label = "Apply",
                icon = shiny::icon("check-double"),
                class = "btn-info"
              ),
              shiny::actionButton(
                inputId = "reset_filter",
                label = "Reset",
                icon = shiny::icon("undo"),
                class = "btn-danger"
              ),

              shiny::br(),
              shiny::br(),
              # shiny::hr(style = "border-top: 1px solid #A0A0A0;"),

              shiny::h4(shiny::tags$strong("Data Overview")),
              shiny::br(),
              module_ui_group_selector_table("df-filter-tab")
            ),
            width = 3
          ), # /sidebarLayout

          mainPanel = shiny::mainPanel(
            # Diagnostics
            # shiny::textOutput('show_inputs'),
            # shiny::verbatimTextOutput("outDF"),
            shiny::tags$div(id = "placeholder")
          ) # /mainPanel
        ) # /sidebarLayout
      ), # /tabPanel

      # TAB VIS -----------------
      shiny::tabPanel(
        value = "tabVisualization",
        title = "Visual Cleaning & Annotating",
        icon = shiny::icon("chart-area"),
        shiny::sidebarLayout(
          sidebarPanel = shiny::sidebarPanel(
            width = 4,
            # shiny::h4(shiny::tags$strong("Data Overview")),

            shiny::tagList(
              shiny::fluidRow(
                shiny::column(
                  4,
                  shiny::h4(shiny::tags$strong("Plot Groups")),
                ),
                module_ui_group_relayout_buttons("grp_relayout")
              ) # /fluidRow
            ),


            shiny::br(),
            module_ui_group_selector_table("df"),

            shiny::br(),
            # shiny::hr(style = "border-top: 1px solid #A0A0A0;"),

            shiny::h4(shiny::tags$strong("Annotate last selection")),
            shiny::actionLink("help-annotator",
                              "Click for Help",
                              icon = shiny::icon("question-circle")
            ),
            shiny::br(),
            module_ui_text_annotator("annotator"),

            shiny::br(),

            # shiny::h4(shiny::tags$strong("Impact on distribution")),


            shiny::tagList(
              shiny::fluidRow(
                shiny::column(
                  8,
                  shiny::h4(shiny::tags$strong("Impact on distribution")),
                ),
                shiny::column(
                  4,
                  shiny::uiOutput("histogramupdatebutton")
                )
              ) # /fluidRow
            ), # /taglist
            shiny::actionLink("help-hist",
                              "Click for Help",
                              icon = shiny::icon("question-circle")
            ),

            module_ui_histograms("plotvars")
          ),

          mainPanel = shiny::mainPanel(
            width = 8,
            # diagnostics
            # shiny::textOutput('show_inputs'),
            # shiny::verbatimTextOutput("outDF"),
            module_ui_plot_selectorcontrols("selectors"),
            shiny::actionLink("help-plot",
                              "Click for Help",
                              icon = shiny::icon("question-circle")
            ),
            module_ui_plot_selectable("plot"),
            module_ui_lowercontrol_btn("lwrcontrol"),
            module_ui_plot_annotation_table("dt")
          )
        ) # /sidebarLayout
      ) # /tabPanel


      ,
      # TAB EXTRACT -------------
      shiny::tabPanel(
        value = "tabExtraction",
        title = "Extract",
        icon = shiny::icon("file-export"),
        shiny::sidebarLayout(
          sidebarPanel = shiny::sidebarPanel(
            width = 4,


            shiny::h4(shiny::tags$strong("Reproducible Recipe")),
            shiny::actionLink("help-repro",
                              "Click for Help",
                              icon = shiny::icon("question-circle")
            ),
            shiny::br(),
            shiny::br(),

            shiny::p("All commands and operations in previous tabs are translated to
                                                                                         code on the right, ensuring reproducibility."),
            # shiny::br(""),
            # shiny::checkboxInput("overwrite",
            #                      label = "Concise code?",
            #                      value = FALSE)),
            module_ui_extract_code_fileconfig("config")
          ),

          mainPanel = shiny::mainPanel(
            width = 8,
            # shiny::h4(shiny::tags$strong("Reproducible Recipe")),
            module_ui_extract_code("extract")
          )
        )
      )
      , # /tabPanel



      # HANDLER BUTTONS TOP ------------------
      bslib::nav_item(
        shiny::actionButton("close",
                            "Close",
                            icon = shiny::icon("check-circle"),
                            class = "btn-success",
                            style = "padding: 8px; margin: 6px;"
        ),
        style = "padding-left: 40px;"
        ),
      bslib::nav_item(
        shiny::actionButton("cancel",
                            "Cancel",
                            icon = shiny::icon("window-close"),
                            class = "btn-secondary",
                            style = "padding: 8px; margin: 6px;"
        )
                          ),


      position = "fixed-top"
      ), # /navbarPage

    shiny::tags$style(type = "text/css", "body {padding-top: 70px;}"),
    shiny::tags$script(src = c(href = "https://d3js.org/d3-selection.v2.js"))
    # shiny::tags$script(src = c(href = "https://cdnjs.cloudflare.com/ajax/libs/d3/7.1.1/d3.min.js")),

  )
}