Defines functions core_canvasServer core_canvasUI

## 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.

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

## 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)

Try the systemPipeShiny package in your browser

Any scripts or data that you put into this service are public.

systemPipeShiny documentation built on March 16, 2021, 6:01 p.m.