close #203

The-Strategy-Unit · Nov 17, 2023 · 429a70c · 429a70c
1 parent 3c0f1c3
commit 429a70c
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/tidy_upload.R b/R/tidy_upload.R
@@ -178,10 +178,13 @@ upload_data <- function(data, conn, trust_id, user, write_db = TRUE) {
  } else {
  tidy_data <- tidy_data %>%
  dplyr::filter(question_type == api_question_code(get_golem_config("comment_1")))
+
+ db_tidy <- db_tidy %>%
+ dplyr::filter(comment_type == "comment_1")
  }
 
  ## get prediction url ----
- cat("Making sentiment and label predictions for", nrow(db_tidy), "comments from pxtextming API \n")
+ cat("Making sentiment and label predictions for", nrow(tidy_data), "comments from pxtextming API \n")
  api_result <- get_api_pred_url(tidy_data, Sys.getenv("API_key"))
 
  ## update api job table ----