I have a sample application where it creates a dummy text file in the working directory. Now I have another R file(add.R) where I need to execute it and paste the results in a text file. Below is the reprex
ui.R
library(shiny)
source("add.R")
# Define UI for application that draws a histogram
shinyUI(fluidPage(
textInput("name", "Name: "),
textOutput("greeting"),
actionButton("checkme","checkme"),
selectInput("Slider","Slider",choices = unique(iris$Species))
)
)
server.R
library(shiny)
source("add.R")
# Define server logic required to draw a histogram
shinyServer(function(input, output) {
myfileexists <- eventReactive(input$checkme,{
file.exists("test2.txt")
})
output$greeting <- renderText({
paste0("Hello, ", input$name, "Does your file exist ?", myfileexists())
})
print(getwd())
file.create("test2.txt")
})
add.R
a <- 3 + 4
b <- 3 + t
Expected out put. IN case any error, the application should show error occurred
text2.txt file
a <- 3 + 4
a
[1] 7
b <- 3 + t
Error in 3 + t : non-numeric argument to binary operator