inst/app/code/server/s_introduction_load.data.R

In chemokine/OmicsSBGN: Overlay omics data onto SBGN pathway diagram

output$loaded <- renderText({
# loaded <- eventReactive(
            # this command just try to load 'data(sbgn.xml)' first, to save time for the overlay step.
            # Because loading this data is slow
    # if(input$loadData == "load"){
    input$loadData
        cat("\n\n\n loading data \n")
        data("sbgn.xmls","hsa_ENTREZID_pathwayCommons","mmu_pathwayCommons_ENSEMBL")
        head(names(sbgn.xmls))
        head(hsa_ENTREZID_pathwayCommons)
        head(mmu_pathwayCommons_ENSEMBL)
        print("loaded")
        print(head(names(sbgn.xmls)))
        ""
    }
)