Displaying 1 result from an estimated 1 matches for "fileputreport".
2019 Oct 07
0
Changing HTML Error code message
...t one time unless the
token is deleted
# Create Token
# token <- drop_auth()
# Save token
# saveRDS(token, "droptoken.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 = ""),...