R/ui_session.R

In CIP-RIU/fbsession:

#' shiny UI session management in HIDAP-AGROFIMS
#' 
#' 
#' @author Omar Benites Ivan Perez
#' @param type type of ui element; default is a tab in a shiny dashboard
#' @param title display title
#' @param name a reference name
#' @export

ui_session <- function(type="tab",title="User session",name="open_session" ){
  
  ##### Tab item #####
  shinydashboard::tabItem(
    tabName = name,
    
    h1("Sessions"),
    fluidRow(
      box(
        title = tagList(shiny::icon("list"), "List sessions"), status = "primary", solidHeader = TRUE, collapsible = TRUE, width = 12,
        column(
          12,
          fluidRow(
            column(12, DT::dataTableOutput("dtsession"))
          ),
          
          fluidRow(
            column(6, align = "left", style = "margin-top: 26px;",
                   actionButton('delete_file', 'Delete', icon(""), class = "btn-warning", style="color: #fff;")
            ),
            column(6, align = "right", style = "margin-top: 26px;",
                   actionButton("refreshsession", "Refresh", icon("sync")),
                   actionButton('load_inputs', 'Load', icon("download"), class = "btn-primary", style="color: #fff;")
            )
          ),
          fluidRow(
            column(12, verbatimTextOutput("text2"))
          )
        )
      )
    )
    
    
    # fluidRow(
    #   column(
    #     12,
    #     fluidRow(
    #       column(12, DT::dataTableOutput("dtsession"))
    #     ),
    # 
    #     fluidRow(
    #       column(12, align = "right", style = "margin-top: 26px;",
    #              actionButton("refreshsession", "Refresh", icon("sync")),
    #              actionButton('load_inputs', 'Load', icon("download"), class = "btn-primary", style="color: #fff;")
    #       )
    #     ),
    #     fluidRow(
    #       column(12, verbatimTextOutput("text2"))
    #     )
    #   )
    # )
  )



}