Merge branch 'dev'

DESCRIPTION

@@ -1,10 +1,11 @@
 Package: lavaangui
-Title: What the Package Does (One Line, Title Case)
-Version: 0.0.0.9000
+Title: Graphical User Interface for lavaan
+Version: 0.0.0.9001
 Authors@R: 
-    person("First", "Last", , "[email protected]", role = c("aut", "cre"),
-           comment = c(ORCID = "YOUR-ORCID-ID"))
-Description: What the package does (one paragraph).
+    person(c("Julian",  "D."), "Karch", email = "[email protected]", role = c("aut", "cre"))
+Description:  Provides a graphical user interface for latent variable models from the lavaan package. 
+              There are two core features. First, models can be specified by drawing path diagrams (start_gui). 
+              Second, interactive path diagrams can be created from models specified in lavaan (plot_interactive).
 License: GPL (>= 3)
 Imports: 
     base64enc (>= 0.1.3),
@@ -16,12 +17,12 @@ Imports:
     promises (>= 1.2.0.1),
     readr (>= 2.1.4),
     readxl (>= 1.4.3),
-    semPlot,
     shiny (>= 1.7.4),
+    igraph,
+    qgraph,
     tools,
     utils,
     DT,
-    zip (>= 2.3.0),
     htmlwidgets
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)

NAMESPACE

@@ -4,3 +4,5 @@ export(plot_interactive)
 export(start_gui)
 import(lavaan)
 import(shiny)
+importFrom(igraph,graph.edgelist)
+importFrom(igraph,layout.reingold.tilford)

R/constants.R

@@ -9,7 +9,7 @@ help_text <- paste(
   "                      at Mouse Location",
   "c                     Create Constant Variable",
   "                      at Mouse Location",
-  "Hold Space            Draw Directed Arrows",
+  "Hold Space/X          Draw Directed Arrows",
   "                      by Connecting Variables With Mouse",
   "Hold ALT              Draw Undirected Arrows",
   "                      by Connecting Variables With Mouse",
@@ -20,6 +20,14 @@ help_text <- paste(
   "CTRL+Y                Redo Graph Appearance Changes",
   "",
   "Mac Users Replace CTRL with CMD, and ALT with OPTION",
+  "",
+  "",
+  "Standard Workflow",
+  "--------------------------------------------------",
+  "1. Load your data (File --> Load Data)",
+  "2. Draw your Model",
+  "3. Check lavaan's autocomplete is correct (\"Lavaan model\")",
+  "4. Fit Model (\"Estimates\")",
   sep = "\n"
 )
 class(help_text) <- "help_text"