Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Update 20170710_JSON_UROPA_queries.R
  • Loading branch information
fazelzadeh committed Jul 12, 2017
1 parent a0c4909 commit 3379275
Showing 1 changed file with 2 additions and 21 deletions.
23 changes: 2 additions & 21 deletions 20170710_JSON_UROPA_queries.R
@@ -1,6 +1,4 @@



#================================
#
# Initialization
Expand All @@ -16,8 +14,6 @@ library(shinyBS)
startpoint <- 1

# User-defined functions


# A print function to create the configuration file format
JU_resformat <- function (var1, var2, var3, var4, var5, var6, var7, var8, distance_up, distance_down) {
# var3_read <- gsub("[[:space:]]", "", unlist(strsplit(var3, ";")))
Expand Down Expand Up @@ -71,21 +67,16 @@ PrintTablesUI <- function(id, strcol3_list, strcol9_list, label = "ui1UI") {
box(background = "light-blue",title= "JSON_UROPA_queries",

column(width = 6,

sliderInput(ns("distance_up"), "distance_uptream", min = -100000, max = 100000,step=100, value = c(500)),
selectInput(ns("var8"),"direction",choices=c("any_direction","upstream","downstream")),
selectInput(ns("var4"),"internals",choices=c("none","center","any")),
selectInput(ns("var1"), "feature",as.list(strcol3_list),multiple = T),
selectInput(ns("var6"), "attribute.value",as.list(strcol9_list),multiple = T)

),


# bsTooltip("var3", "type attributes between quotation marks separated with comma",
# "right", options = list(container = "body")),

column(width = 6,

sliderInput(ns("distance_down"), "distance_downstream",min = -100000, max = 100000,step=100,value = c(500)),
selectInput(ns("var7"),"strand",choices=c("+","-","both")),
selectInput(ns("var2"),"feature.anchor",choices=c("start","center","end")),
Expand Down Expand Up @@ -117,7 +108,6 @@ PrintTables <- function(input, output, session) {
return(strinputvars)
}


#================================
#
# Program code
Expand Down Expand Up @@ -146,8 +136,7 @@ ui <- dashboardPage(

)), dashboardBody(


###define slider color
##define slider color

tags$style(HTML(".irs-bar {width: 100%; height: 10px; background: black; border-top: 1px solid black; border-bottom: 1px solid black;}")),
tags$style(HTML(".irs-bar-edge {background: black; border: 1px solid black; height:10px; border-radius: 10px 10px 10px 10px;}")),
Expand All @@ -164,10 +153,8 @@ ui <- dashboardPage(

div(id = "ui_zero2")
)

)


server <- (function(input, output, session) {

output$textORdate <- renderUI({
Expand All @@ -179,23 +166,17 @@ server <- (function(input, output, session) {
}

################# #upload human and mouse gtf file automatically

#configFile <- reactive({
# inFile <- input$gtf_files
# if (is.null(inFile)) {return()}
# return(source(inFile$"Z:/shiny/apps/UROPA/JSON_UROPA"))
# })



# if(input$gtf_files == "human"){
# read.table("gencode.v22.genes.gtf", sep = "\t")
# }

################################################################


})
})

# GTF file
strcol3_list <- "test"
Expand Down

0 comments on commit 3379275

Please sign in to comment.