0.8.1

DESCRIPTION

@@ -1,19 +1,19 @@
 Package: radiant.design
 Type: Package
 Title: Design Menu for Radiant: Business Analytics using R and Shiny
-Version: 0.8.0
-Date: 2017-4-27
+Version: 0.8.1
+Date: 2017-6-29
 Authors@R: person("Vincent", "Nijs", , "[email protected]", c("aut", "cre"))
 Description: The Radiant Design menu includes interfaces for design of
     experiments, sampling, and sample size calculation. The application extends
     the functionality in radiant.data.
 Depends:
     R (>= 3.3.0),
-    radiant.data (>= 0.8.1),
+    radiant.data (>= 0.8.6),
     mvtnorm
 Imports:
     dplyr (>= 0.5),
-    shiny (>= 1.0.0),
+    shiny (>= 1.0.3),
     AlgDesign (>= 1.1.7.3),
     import (>= 1.1.0),
     polycor,

NEWS.md

@@ -1,3 +1,9 @@
+# CHANGES IN radiant.design 0.8.1
+
+- Code cleanup
+- Documentation updates
+- Fix for incomplete final line warning in sampling.md
+
 # CHANGES IN radiant.design 0.8.0
 
 ## Feature

inst/app/tools/analysis/doe_ui.R

@@ -28,10 +28,8 @@ output$ui_doe_int <- renderUI({
     sapply(function(x) x[1]) %>%
     unique
 
-  if (length(vars) < 2)
-    choices <- c()
-  else
-    choices <- iterms(vars, 2)
+  req(length(vars) > 1)
+  choices <- iterms(vars, 2)
 
   selectInput("doe_int", label = "Interactions:", choices = choices,
     selected = state_init("doe_int"),
@@ -106,7 +104,7 @@ observeEvent(input$doe_del, {
     updateTextInput(session = session, "doe_factors", value = .)
 })
 
-doe_maker <- function(id = "factors", rows = "5", pre = "doe_") {
+doe_maker <- function(id = "factors", rows = 5, pre = "doe_") {
   id <- paste0(pre, id)
   tags$textarea(state_init(id), id = id, type = "text", rows = rows, class = "form-control")
 }
@@ -120,7 +118,7 @@ output$doe <- renderUI({
     doe_output_panels <- tagList(
       tabPanel("Summary",
         HTML("<label>Design factors:</label>"),
-        doe_maker("factors", rows = "5"),
+        doe_maker("factors", rows = 5),
         HTML("<br><label>Generated experimental design:</label>"),
         verbatimTextOutput("summary_doe")
       )

inst/app/tools/help/sampling.md

@@ -10,8 +10,8 @@ How does it work? Each person in the data is assigned a random number between 0
 
 The full list of 100 people is the `sampling frame`. Ideally, this is a comprehensive list of _all_ sampling units (e.g., customers or companies) in your target market.
 
-How do you determine the appropriate value for _n_? See the sample size tool in the `Design` menu.
+How do you determine the appropriate value for _n_? Use the sample size tools in the _Design_ menu.
 
 ### R > Report
 
-Add code to <a href="https://radiant-rstats.github.io/docs/data/report.html" target="_blank">_R > Report_</a> to (re)create the sample by clicking the <i title="report results" class="fa fa-edit"></i> icon on the bottom left of your screen or by pressing `ALT-enter` on your keyboard. 
+Add code to <a href="https://radiant-rstats.github.io/docs/data/report.html" target="_blank">_R > Report_</a> to (re)create the sample by clicking the <i title="report results" class="fa fa-edit"></i> icon on the bottom left of your screen or by pressing `ALT-enter` on your keyboard.