Changing HTML Error code message

classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

Changing HTML Error code message

Gabriel Guzman
Hello,

I'm relatively new to using R and shiny. Currently, I'm getting the Error:
Conflict (HTTP  409) when trying to access an html file from dropbox and
this is fine, I know the reason. What I do have a problem with is trying to
find a way to change Error code message. Instead of simply "Error: Conflict
(HTTP  409)", I would a message a client might be able to understand. I've
tried a couple forms of validation and try-catches. I'm including the code
and simple html files to recreate the problem. Any and all suggestions are
welcome. Thank you in advance for your help.



library(shiny)
library(rdrop2)
library(httr)

ui <- # Define UI for dataset viewer application

  shinyUI(pageWithSidebar(

    headerPanel("Test DropBox html Docs to Shiny"),

    sidebarPanel(

      selectInput("Cat", "Choose a Category:",

                  choices = c("A", "B", "C")),

      selectInput("Year", "Choose a Year:",

                  choices = c("2012", "2011")),

      downloadButton("downFile", "Download File"),

      width = 2),


    mainPanel(

      tabsetPanel(type = "tabs",

                  tabPanel("Html Pages", htmlOutput("viewReport"))), width
= 10)
    )
  )

#IMPORTANT: The two lines below needs to be run just 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 = ""),
                  overwrite = TRUE, local_path = "./www",
             dtoken = token)

      filePutReport()

  })

  # Show Html Pages

  output$viewReport <- renderUI({

    tags$iframe(seamless = "seamless", width = "1400", height = "1000",

                src = filePutReport2()
                )
  })


  ###
  output$downFile <- downloadHandler(
    # generate bins based on input$bins from ui.R
    filename = function() {

      paste0(filePutReport() )
    },

    content = function(file){

      file.copy(from = paste0("./www/", filePutReport2() ), to = file,
overwrite = TRUE)
    }

  )

})

shinyApp(ui = ui, server = server)
______________________________________________
[hidden email] mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel