Nice tutorial on persistent data storage in Shiny. I have been trying to get some a dropbox storage to go, with no luck. I checked your app https://daattali.com/shiny/persistent-data-storage/ and they don't seem to run either for any of the remote storage options. Leads me to think there is a larger authentication issue or that your demo apps for remote storage are purposely disabled which in this case is a non-issue. Any Ideas?

Below is a screen shot with the error from your demo app

it is not working, what to do???

Hi,

Great tutorial! I tried running the code file but unfortunately I got below error in Shiny Server. This error was received for this code for this article

Error :do not know how to convert 'data$timestamp' to class “POSIXct"
SnapShot of the error:

Any help is appreciated!

Hi,

Excellent and much needed implementation.

I found an issue with date and time inputs when using local tables as storage system: their posix elements are spread across multiple columns. Small example below.

library(shiny)

outputDir <- "RESPONSES"

fields <- c("Date", "Time")

saveData <- function(data) {
data <- t(data)
fileName <- sprintf("%s_%s.csv", as.integer(Sys.time()), digest::digest(data))
write.csv(
x = data,
file = file.path(outputDir, fileName),
row.names = FALSE, quote = TRUE
)
}

loadData <- function() {
files <- list.files(outputDir, full.names = TRUE)
data <- lapply(files, read.csv, stringsAsFactors = FALSE)
data <- do.call(rbind, data)
data
}

ui <- fluidPage(
dateInput("Date", "Date",
format = "ddmmyyyy",
value = ""),
timeInput("Time", "Time",
seconds = F),
actionButton("Submit", "Submit", width = "280px"),
hr(),
DT::dataTableOutput("responses", width = 300), tags$hr()
)

server = function(input, output, session) {
formData <- reactive({
data <- sapply(fields, function(x) input[[x]])
data
})

observeEvent(input$Submeter, {
saveData(formData())
})
output$responses <- DT::renderDataTable({
input$Submeter
loadData()
})
}

shinyApp(ui, server)