# save_data_as_rds -------------------
output$save_data_as_rds <-downloadHandler(
filename = function(){
paste('Versuchs_Daten_', Sys.Date(), '.rds', sep='')
},
content = function(con) {
# convert reactive value to plain list to reduce size
ostit_list <- reactiveValuesToList(ostit)
saveRDS(ostit_list, file = con)
}
)
# load_data.rds -------
observe({
# upload data
inFile <- input$load_rds_data
if (is.null(inFile)) { return(NULL) }
else {
ostit <- readRDS(file = inFile$datapath)
}
# jetzt müssen alle SUBJEKTE initialisiert werden!!!!
# test-spec
updateNumericInput(session, "spec", value = ostit$spec)
updateSelectInput(session, "spec_type", selected = ostit$spec_type)
# anforderungen
updateNumericInput(session, "p_min", value = ostit$p_min*100)
updateNumericInput(session, "power", value = ostit$power*100)
# meta daten
updateTextInput(session, "variable_name", value = ostit$variable_name)
updateTextInput(session, "variable_unit", value = ostit$variable_unit)
# roh-daten
output$raw_data <- renderRHandsontable({rhandsontable(ostit$raw_data)})
# ui design-aid
updateNumericInput(session, "p_pass_desired", value = ostit$p_pass_desired*100)
updateNumericInput(session, "sample_size_desired", value = ostit$sample_size_desired)
# dokumentation
updateTextAreaInput(session, "versuchsziel", value = ostit$versuchsziel)
updateTextAreaInput(session, "sollwert", value = ostit$sollwert)
updateTextAreaInput(session, "versuchsbeschreibung", value = ostit$versuchsbeschreibung)
updateTextAreaInput(session, "ergebnis", value = ostit$ergebnis)
updateTextAreaInput(session, "schlussfolgerung", value = ostit$schlussfolgerung)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.