diff --git a/JASON_UROPA_queries_V8.R b/JASON_UROPA_queries_V8.R index d7c7e9c..172eea9 100644 --- a/JASON_UROPA_queries_V8.R +++ b/JASON_UROPA_queries_V8.R @@ -72,21 +72,21 @@ PrintTablesUI <- function(id, label = "ui1UI") { box(background = "light-blue",title= "JASON_UROPA_queries", column(width = 6, - textInput("var1","feature"), - textInput("var6","attribute.value"), - textInput("var5","filter.attribute"), - textInput("var3","show.attribute"), + textInput(ns("var1"),"feature"), + textInput(ns("var6"),"attribute.value"), + textInput(ns("var5"),"filter.attribute"), + textInput(ns("var3"),"show.attribute"), # bsTooltip("var3", "type attributes between quotation marks separated with comma", # "right", options = list(container = "body")), - sliderInput("distance_up", "distance_uptream", min = -10000, max = 10000, value = c(500))) + sliderInput(ns("distance_up"), "distance_uptream", min = -10000, max = 10000, value = c(500))) , column(width = 6, - selectInput("var7","strand",choices=c("+","-","both")), - selectInput("var2","feature.anchor",choices=c("start","center","end")), - selectInput("var4","internals",choices=c("none","center","any")), - selectInput("var8","direction",choices=c("any_direction","upstream","downstream")), - sliderInput("distance_down", "distance_upstream",min = -10000, max = 10000, value = c(500) + selectInput(ns("var7"),"strand",choices=c("+","-","both")), + selectInput(ns("var2"),"feature.anchor",choices=c("start","center","end")), + selectInput(ns("var4"),"internals",choices=c("none","center","any")), + selectInput(ns("var8"),"direction",choices=c("any_direction","upstream","downstream")), + sliderInput(ns("distance_down"), "distance_upstream",min = -10000, max = 10000, value = c(500) ) ) )