Displaying 1 result from an estimated 1 matches for "fileputreport2".
Did you mean:
fileputreport
2019 Oct 07
0
Changing HTML Error code message
...rds")
token <- readRDS("droptoken.rds")
server <- shinyServer(function(input, output) {
# ---------------------------------------------------
filePutReport <- reactive(
paste(input$Cat, "_", input$Year, "_Doc.html", sep = "")
)
filePutReport2 <- reactive({
# Search if the file exists in DropBox
drop_download(path = paste("shiny_docs/shinydbtest/", filePutReport(),
sep = ""),
overwrite = TRUE, local_path = "./www",
dtoken = token)
filePutReport()
})
#...