inst/apps/samplesize_determination_variable/dokumentation/server_load_save.R

In stephanGit/leistungstests: Supplies Functions to calculate 'leistungstests'

# 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)

})