I am trying this
library(shiny)
library(stringr)
results = data.frame(matrix(ncol = 2, nrow = 0))
colnames(results) = c("rule_name", "containDB_Core")
rule_list = list.files("C:\\Users\\singhp25\\Desktop\\Tactical rules")
rule_list = rule_list[grepl('.sas', rule_list)]
for (i in rule_list){
con <- file(paste("C:\\Users\\singhp25\\Desktop\\Tactical rules\\", i, sep = ""))
rawContent <- readLines(con) # empty
rawScript = str_c(rawContent,collapse=' ')
close(con) # close the connection to the file, to keep things tidy
#results[nrow(results)+1, ] = c(i, grepl('DB_CORE', rawScript, ignore.case = T))
}
#results[results$containDB_Core == 'TRUE', ]
input$data = load("U:/ModelResult.RData")
ui = shinyUI(pageWithSidebar(
headerPanel("Test App"),
sidebarPanel(
input$text = textInput("test", "Enter text"),
submitButton(text = "Submit")
),
mainPanel(
tableOutput("Variable")
)
))
server = shinyServer(function(input, output){
search.criteria <- reactive({
if(grepl(test,data(rawscript),ignore.case = TRUE)==TRUE)
{
results = results[nrow(results)+1, ]
results <- c("rule_name", "FALSE")
}
else if (grepl(test,data(rawscript),ignore.case = FALSE)==FALSE)
{
results = results[nrow(results)+1, ]
results <- c("rule_name", "FALSE")
}
}
)
output$Variable = renderTable({
print(search.criteria())
results[search.criteria(), ] #use the search.critera() reactive to determine rows to display
})
})