Thanks chris, I am just pasting the code snippets here..
R Program
server <- function(input, output, session) {
# Create reactive values to pass to download files
subtaskList.Reactive <- reactive({input$subtaskList})
subtask.Reactive <- reactive({subtask$Program})
task.Reactive <- reactive({input$task})
observeEvent(input$Program,{
.
.
}
ui <- navbarPage(
title = "IT Portfolio Dashboard",
# Define elements within task Dashboard tab
tabPanel("Project Dashboard",
includeCSS("LDshiny.css"),
fluidRow(column(2, downloadButton('TaskReport', "Generate report")), class="download_this_thing"),
.
.
}
#application
shinyApp(ui = ui, server = server)
R Markdown Program (.rmd)
```{r echo=FALSE,warning=FALSE }
backgroundFactors <- c("On Target", "At Risk", "In Trouble", NA)
backgrounColors <- c("#00E100", "#EAFF09", "#FF0009", "#FFFFFF")
options(knitr.table.format = "html")
# Pull Task Level Data
tasklisttemplate <- config$tasklist
tasklisturl <- sprintf(tasklisttemplate)
tasklisturl <- URLencode(tasklisturl)
gettasklist <- fromJSON(tasklisturl, flatten = TRUE, simplifyDataFrame = TRUE)
# Pull Milestone data
milestonestemplate <- config$milestones
# Pull task Risks
taskrisktemplate <- config$taskrisks
taskdata <- getprojectlist$data[gettasklist$data$name == task.Reactive(), ]
this is where I am getting error
ERROR
Error in task.Reactive() : could not find function "task.reactive" Calls:
<Anonymous> ... withcallingHandlers -> withVisible -> eval -> eval -> [ ->[.data.frame..