Firstly, thanks very much for this nice shiny tool, very useful!
I was trying to create a shiny app showing karyotype with certain annotated region highlight, but got error message: "Error: all(sapply(dots, function(x) is(x, "GRanges"))) is not TRUE"
Seems the error is due to code of the add_track() function
This stopifnot(all(sapply(dots, function(x) is(x, "GRanges")))) is not used in the ideogram.js; could you please let me know what's the possible reason of this error?
Btw, the example page showing ideogRam usage examples is gone, maybe due to updating issue? Could you re upload the example code?
Appreciate your help!
Below is code for my little test shiny app where the error showed up:
Firstly, thanks very much for this nice shiny tool, very useful!
I was trying to create a shiny app showing karyotype with certain annotated region highlight, but got error message: "Error: all(sapply(dots, function(x) is(x, "GRanges"))) is not TRUE" Seems the error is due to code of the add_track() function
Btw, the example page showing ideogRam usage examples is gone, maybe due to updating issue? Could you re upload the example code?
Appreciate your help!
Below is code for my little test shiny app where the error showed up:
library(shiny) library(ideogRam) server <- function(input, output) { output$ideo_01 <- renderIdeogRam({ chromosome <- input$chromosome organism <- input$organism orientation <- input$orientation if (orientation == "default") orientation <- NULL
}) }
ui <- shinyUI(fluidPage( titlePanel("IdeogRam test out of CCN"), sidebarPanel( width = 4, textInput("organism", label = "Organism", value = "human", placeholder = "Organism's name or organism's NCBI Taxonomy ID"), textInput("chromosome", label = "Chromosome", value = "", placeholder = "Default showing all chromosomes"), selectInput("orientation", label = "Orientation", choices = c("default", "horizontal", "vertical")),
), mainPanel( ideogRamOutput("ideo_01") ) )) runApp(list(ui = ui, server = server))