vignette stuff

Author: emma-akrong

AssumptionPlotter/DESCRIPTION

@@ -19,9 +19,15 @@ LazyData: true
 RoxygenNote: 7.3.2
 Config/testthat/edition: 3
 Imports: 
+    bslib,
+    datasets,
+    DT,
     ggplot2,
     knitr,
     quarto,
+    readr,
+    sass,
+    shiny,
     testthat,
     usethis
 VignetteBuilder: quarto

AssumptionPlotter/NAMESPACE

@@ -3,7 +3,15 @@
 export(data_log_plot)
 export(run_plotter)
 export(simulate_logistic)
+import(DT)
+import(bslib)
+import(datasets)
+import(dplyr)
 import(ggplot2)
+import(knitr)
+import(quarto)
+import(readr)
+import(sass)
 import(shiny)
 import(testthat)
 import(usethis)

AssumptionPlotter/R/edit_datasets.R

@@ -18,6 +18,8 @@
 
 edit_df <- function(df, id_col, day_col, exp_day, beep_col, exp_beep, variables){
 
+  time <- numeric()
+
   missing <- data.frame(
     id = c(),
     beeps = numeric(),
@@ -48,12 +50,14 @@ edit_df <- function(df, id_col, day_col, exp_day, beep_col, exp_beep, variables)
 
     missing <- rbind(missing, add)
 
+    time <- c(time,1:nrow(sub_df))
+
   }
 
 
   new_df <- data.frame(
     ID = df[,id_col],
-    time = 1:nrow(df),
+    time = time,
     day = df[,day_col],
     beep = df[,beep_col]
   )
@@ -64,15 +68,9 @@ edit_df <- function(df, id_col, day_col, exp_day, beep_col, exp_beep, variables)
     new_df[new_var[i]] <- df[[variables[i]]]
   }
 
-  return(missing)
-  #return(new_df)
-  #print(missing)
 
-}
+  dfs <- list(new_df, missing)
+  return(dfs)
 
-buu <- data.frame(x=1:10, y=letters[1:10])
-buu[h[1]] <- 36:45
-
-buu[[h[1]]]
+}
 
-mode(lu[,2:3])

AssumptionPlotter/R/external_packages.R

@@ -1,4 +1,12 @@
 #' @import ggplot2
 #' @import usethis
 #' @import testthat
+#' @import knitr
+#' @import quarto
+#' @import shiny
+#' @import datasets
+#' @import bslib
+#' @import DT
+#' @import sass
+#' @import readr
 NULL

AssumptionPlotter/data/menghini_2023.rda

@@ -7,12 +7,12 @@
 #    https://shiny.posit.co/
 #
 
-library(shiny)
-library(AssumptionPlotter)
-library(datasets)
-library(bslib)
-library(DT)
-library(sass)
+# library(shiny)
+# library(AssumptionPlotter)
+# library(datasets)
+# library(bslib)
+# library(DT)
+# library(sass)
 
 # Define UI for application that draws a histogram
 ui <- page_navbar(
@@ -26,7 +26,7 @@ ui <- page_navbar(
     tags$img(src = "logo.png", height = "30px"),
     tags$b("AssumptionPlotter")
   ),
-  bg = "red",
+  bg = "#b22222",
   inverse = TRUE,
   fillable = TRUE,
   theme = bs_theme(

AssumptionPlotter/data/missing_menghini_2023.rda

@@ -1,7 +1,16 @@
 ---
-title: "AssumptionPlotter"
+title: |
+  <img src="figures/logo.png" height="30px" style="vertical-align:middle; margin-right:8px;">
+  <span>AssumptionPlotter</span>
 author: "Emma Akrong"
-date: "May 24, 2026"
+date: "May 29, 2026"
+format:
+  html:
+    theme: simplex
+    css: vignette-style.css
+    toc: true
+    toc-depth: 3
+    toc-location: left
 vignette: >
   %\VignetteIndexEntry{AssumptionPlotter}
   %\VignetteEngine{quarto::html}
@@ -23,7 +32,7 @@ While it tests whether the data matches meets the statistical assumptions of the
 For example, in the case of a study with intensive longitudinal data, the user might expect to see change. This package aims to show how e.g., a VAR model would not be able to reflect this expectation.
 
 
-# Running AssumptionPlotter
+## Running AssumptionPlotter
 
 The first step after installing the package is to run the function `run.plotter()`.
 
@@ -32,7 +41,7 @@ run.plotter()
 ```
 
 
-# TO ADD
+## TO ADD
 
 This will all be added before Friday.