diff --git a/.Rhistory b/.Rhistory
deleted file mode 100644
index 4cea67e..0000000
--- a/.Rhistory
+++ /dev/null
@@ -1,102 +0,0 @@
-install.packages("shinysurveys")
-devtools::load_all(".")
-startApplication()
-shinysurveys::teaching_r_questions
-devtools::load_all(".")
-shinysurveys::teaching_r_questions
-startApplication()
-devtools::load_all(".")
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-df()
-input
-input$name
-devtools::load_all(".")
-startApplication()
-survey_data
-survey_data %>% as.data.frame
-as.data.frame(survey_data)
-data.frame(id = df()$input_id, answer = survey_data)
-data.frame(id = df()$input_id, answer = unlist(survey_data))
-data.frame(
-input_id = df()$input_id,
-response = sapply(df()$input_id, function(x) input[[x]])
-)
-devtools::load_all(".")
-startApplication()
-survey_data
-jsonlite::toJSON(survey_data, pretty = TRUE, auto_unbox = TRUE)
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-df()
-need(df(), "Please create a template for an inquiry first.")
-validate(need(df(), "Please create a template for an inquiry first."))
-df()
-need(df(), "Please create a template for an inquiry first.")
-shiny::need(df(), "Please create a template for an inquiry first.")
-validate(shiny::need(df(), "Please create a template for an inquiry first."))
-shiny::validate(shiny::need(df(), "Please create a template for an inquiry first."))
-shiny::validate(need(df(), "Please create a template for an inquiry first."))
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-devtools::load_all(".")
-startApplication()
-startApplication()
-3.5/100*70
-3.5*100/70
-3*100/70