import_script.R

# Only reimport from Google if we want to (if there is new data)
import_question = readline(prompt="Reimport data from Google? Type 'yes'")
if(toupper(import_question) == "YES") { 
  # Fetch the Data spreadsheet from Google sheets by ID
  id <- "1SxL0kpm8xXyslRKradFv03R6Sbr-YUkx09jOVW8RF8E"
  google_data <- drive_get(id = id)
  sheets <- sheets_get(google_data)
  
  allData <- read_sheet(sheets$spreadsheet_id, range="AllTogether!A1:AL99")
  
  # Read individual sheets into separate objects.
  #high_cholesterol <- read_sheet(sheets$spreadsheet_id, range="+CHOL, -Statin!A2:AL39")
  #myalgia <- read_sheet(sheets$spreadsheet_id, range="+Myalgi, +Statin!A2:AL20")
  #non_myalgia <- read_sheet(sheets$spreadsheet_id, range="-Myalgi, +Statin!A2:AL29")
  #control <- read_sheet(sheets$spreadsheet_id, range="Kontrol!A2:AL18")

  # Clean up objects in the global environment after execution
  rm(id, google_data, sheets)
}