working app

Author: emma-akrong

AssumptionPlotter/NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(data_log_plot)
+export(edit_df)
 export(run_plotter)
 export(simulate_logistic)
 import(DT)

AssumptionPlotter/R/edit_datasets.R

@@ -11,9 +11,17 @@
 #' @param variables A vector containing the names of all columns to be analysed. Each variable must be within quotation marks.
 #' @import dplyr
 #' @returns Creates a data file in the data folder of the package.
+#' @export
 #' @examples
 #' \dontrun{
-#' read_openESM_data("0022_menghini_ts", "https://zenodo.org/records/17347538/files/0022_menghini_ts.tsv?download=1")
+#'
+#' "menghini_2023_orig" <- readr::read_tsv("https://zenodo.org/records/17347538/files/0022_menghini_ts.tsv?download=1")
+#' names <- colnames(menghini_2023_orig)[c(9:17,22:28)]
+#' menghini <- edit_df(df = menghini_2023_orig, id_col = 1, day_col = 3, exp_day = 3, beep_col = 5, exp_beep = 7, variables = names)
+#' menghini_2023 <- menghini[[1]]
+#' usethis::use_data(menghini_2023)
+#' missing_menghini_2023 <- menghini[[2]]
+#' usethis::use_data(missing_menghini_2023)
 #' }
 
 edit_df <- function(df, id_col, day_col, exp_day, beep_col, exp_beep, variables){