R/tab_core_canvas.R

In systemPipeShiny: systemPipeShiny: An Interactive Framework for Workflow Management and Visualization

## UI
#' @noRd
core_canvasUI <- function(id){
    ns <- NS(id)
    desc <- "
    ### About this tab
    This is the SPS canavs. You can make scientific figures from this tab.

    Read more instructions, view the video guide and more on [our website](https://systempipe.org/sps/dev/drawer/)

    ### Use canvas
    To start with tab, you need to prepare a plot by clicking the
    `To Canvas` button at other different tabs. A screenshot of a plot will be added
    to the `Images/ Plots` section on the left sidebar.

    Simply drag a plot you want to canvas and start your creation.

    - `View`, `Canvas` menus provide some options to change the canvas.
    - `Help` menu has some detailed instructions.
    - Use `File` menu to save your work.

    "
    tagList(
        tabTitle("systemPipeShiny Canvas"),
        spsHr(), renderDesc(id = ns("desc"), desc), spsHr(),
        canvas(id, on_start = 'li [href=\'#shiny-tab-core_canvas\']'),
        tags$br(),tags$br()
    )
}

## server
#' @noRd
core_canvasServer <- function(id, shared){
    module <- function(input, output, session){
        ns <- session$ns
        ## very clean back-end for new canvas
    }
    moduleServer(id, module)
}