R/settings_rightSideBar.R

In earnaud/MetaShARK-v2: metashark

#' @import shiny
#' @importFrom shinydashboardPlus dashboardControlbar controlbarMenu
#' controlbarItem
#' @importFrom shinyWidgets prettySwitch
#'
#' @noRd
rightSidebarSettings <- function(id) {
  shinydashboardPlus::dashboardControlbar(
    id = "settings_bar",
    width = 300,

    # #### MAX 5 PANELS !!!! due to AdminLTE2 ### #

    shinydashboardPlus::controlbarMenu(
      id = "settings_menu",
      # Sessionning ====
      shinydashboardPlus::controlbarItem(
        title = "Login",
        id = "login",
        tags$div(
          wipRow(
            collapsibleUI(
              id = NS(id, "orcid-help"),
              label = "Interest of login",
              ... = tags$p(
                "Without login, you can write and read all", tags$b("public"),
                "data packages created on this instance of MetaShARK. By logging
                in, you will also be able to edit", tags$b("private"), "data
                packages that will not be visible to other users."
              )
            ),
            orcidUI(NS(id, "orcid"))
            # TODO POC ORCID
          )
        ),
        # icon = "globe",
        value = 1
      ),
      # Metacat token input ====
      shinydashboardPlus::controlbarItem(
        title = "Metacat",
        id = "metacat",
        tags$div(
          textAreaInput(
            NS(id, "metacat_token"),
            "Authentication token"
          ),
          textOutput(NS(id, "verbose_token")),
          collapsibleUI(
            NS(id, "help-metacat"),
            "How to get your token",
            ... = tagList(
              tags$b("To fetch your authentication token:"),
              tags$ul(
                tags$li("Login into your metacat through user interface."),
                tags$li("Navigate in the upper-right menu corner and click
                        'My profile'."),
                tags$li("Click the 'settings' tab and the 'Authentication token'
                        panel."),
                tags$li("Copy paste the authentication token into the dedicated
                        area on the left.")
              )
            )
          ),
          class = "inputBox"
        ),
        # icon = "desktop",
        value = 2
      ),
      # CEDAR token input ====
      shinydashboardPlus::controlbarItem(
        title = "CEDAR token",
        id = "cedar",
        tags$div(
          wipRow(
            textAreaInput(
              NS(id, "cedar_token"),
              "Authentication token",
              width = "120%"
            ),
            tags$span(
              actionButton(NS(id, "cedar_save"), "Save")
            ),
            collapsibleUI(
              NS(id, "help-cedar"),
              "How to get your token",
              tagList(
                tags$b("To fetch your authentication token:"),
                tags$ul(
                  tags$li("Login into your CEDAR profile at:
                          https://cedar.metadatacenter.org/"),
                  tags$li("Navigate in the upper-right menu corner and click
                          'Profile'."),
                  tags$li("Paste the content for `key` field before `Usage from
                          REST client`.")
                )
              )
            )
          ) # end of wipRow
        ),
        # icon = "tree",
        value = 3
      )
    )
  )
}

#' @title settings
#'
#' @description server part of the settings module. Allow the user to change
#' several settings in the app.
#'
#' @import shiny
# @importFrom cedarr accessOntology
#'
#' @noRd
settings <- function(id, main_env) {
  moduleServer(id, function(input, output, session) {
    # Sessionning ====
    collapsible("help-orcid")

    orcid("orcid", main_env)

    # Metacat token ====
    collapsible("help-metacat")

    observeEvent(input$metacat_token, {
      main_env$SETTINGS$metacat_token <- input$metacat_token
      showNotification(
        id = "metacat_set", "Dataone token set.",
        type = "message"
      )
    })

    # CEDAR token ====
    collapsible("help-cedar")

    observeEvent({
      input$cedar_token
      input$cedar_save
    }, {
      req(input$cedar_token)
      .SETTINGS$cedar_token <- input$cedar_token
    })
  })
}