Commit ffa3e257 authored by Aqeel Padaria's avatar Aqeel Padaria

fix for rendertext not updating 3

parent b5916849
......@@ -438,11 +438,26 @@ server = shinyServer(
output$station <- renderText({
modname <- dataSelect()
file <- datasetSelect()
# main <- read.xlsx(file, sheet = "main")
main <- getSheet("main")
cats <- main[grepl("cat_", names(main))]
if(ncol(cats)>0)
{
catval <- which(gsub("cat_", "", names(cats)) == input$category)
modname <- paste(input$metric, "for", input$category, ":", input[[paste("category",catval, sep="")]])
paste(input$category, input[[paste("category",catval, sep="")]], input$timefactor, sep = "_")
}else
{
modname <- input$metric
}
qs <- getACF()
qs[[1]]
paste(modname, qs[[1]], sep="\n")
})
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment