app_stuff

Author: emma-akrong

.DS_Store

@@ -0,0 +1 @@
+AssumptionPlotter::simulate_logistic()

.Rhistory

@@ -0,0 +1,16 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+AutoAppendNewline: Yes
+StripTrailingWhitespace: Yes

Assumption-Plotter.Rproj

@@ -25,3 +25,5 @@ Imports:
     testthat,
     usethis
 VignetteBuilder: quarto
+Depends: 
+    R (>= 3.5)

AssumptionPlotter/DESCRIPTION

@@ -1,7 +1,9 @@
 # Generated by roxygen2: do not edit by hand
 
 export(data_log_plot)
+export(run_plotter)
 export(simulate_logistic)
 import(ggplot2)
+import(shiny)
 import(testthat)
 import(usethis)

AssumptionPlotter/NAMESPACE

@@ -0,0 +1,78 @@
+#' Edit dataset to fit plotting
+#'
+#' @details
+#' This function edits the data files (from openESM). Technically, the openesm::get_data function should read the files. However, because the function fails to connect to zenodo, some datasets have been manually saved in the package. To make the plotting smooth, this function cleans the files further for analysis. Load additional datasets, go to the dedicated zenodo webpage from openESM, copy the link for the dataset, and add the dataset manually in the app. If the format is correct, the analysis should still work. Make sure to NOT pick the raw data.
+#' @param df The data frame. Note that the df should be in wide format.
+#' @param id_col Provide the index for which column the participant ID is in. If there is no participant ID (the data frame is for only one participant), write "none".
+#' @param day_col Index number for the column containing the days.
+#' @param exp_day Expected days of the study.
+#' @param beep_col Index number of the column containing the beeps for the day.
+#' @param exp_beep Expected beeps per day.
+#' @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.
+#' @examples
+#' \dontrun{
+#' read_openESM_data("0022_menghini_ts", "https://zenodo.org/records/17347538/files/0022_menghini_ts.tsv?download=1")
+#' }
+
+edit_df <- function(df, id_col, day_col, exp_day, beep_col, exp_beep, variables){
+
+  missing <- data.frame(
+    id = c(),
+    beeps = numeric(),
+    days = numeric()
+  )
+
+  participants <- unique(df[[id_col]])
+
+  for(i in 1:length(participants)){
+    sub_df <- df[df[[id_col]]==participants[i],]
+
+    expected_pairs <- expand.grid(
+      beeps = 1:exp_beep,
+      days = 1:exp_day
+    )
+
+    actual_pairs <- data.frame(
+      beeps = sub_df[[beep_col]],
+      days = sub_df[[day_col]]
+    )
+    miss <- anti_join(expected_pairs, actual_pairs, by = c("beeps", "days"))
+
+    add <- data.frame(
+      id = rep(participants[i], times=nrow(miss)),
+      days = miss$days,
+      beeps = miss$beeps
+    )
+
+    missing <- rbind(missing, add)
+
+  }
+
+
+  new_df <- data.frame(
+    ID = df[,id_col],
+    time = 1:nrow(df),
+    day = df[,day_col],
+    beep = df[,beep_col]
+  )
+
+  new_var <- paste0("var_", variables)
+
+  for(i in 1:length(new_var)){
+    new_df[new_var[i]] <- df[[variables[i]]]
+  }
+
+  return(missing)
+  #return(new_df)
+  #print(missing)
+
+}
+
+buu <- data.frame(x=1:10, y=letters[1:10])
+buu[h[1]] <- 36:45
+
+buu[[h[1]]]
+
+mode(lu[,2:3])

AssumptionPlotter/R/app.R

@@ -0,0 +1,16 @@
+#' Launch shiny app
+#'
+#' @import shiny
+#' @details
+#' Finding and launching the main app for the AssumptionPlotter package.
+#'
+#' @export
+#' @examples
+#' run_plotter()
+#'
+
+run_plotter <- function(){
+  app_dir <- system.file("app", package = "AssumptionPlotter")
+  runApp(app_dir)
+}
+