new vignettes

R/show_options.R

@@ -1,5 +1,7 @@
 #' Show package options
 #'
+#' See [surveytable-options] for a discussion of some of the options.
+#'
 #' @param sw  starting characters
 #'
 #' @return List of options and their values.

R/surveytable.R

@@ -14,10 +14,10 @@ NULL
 
 #' Package options
 #'
-#' Run [`show_options()`] to see available options. Here is a description of some
+#' Run [show_options()] to see available options. Here is a description of some
 #' notable options.
 #'
-#' **Low-precision estimates.**
+#' ## Low-precision estimates.
 #'
 #' * `surveytable.find_lpe`: should the tabulation functions look for low-precision
 #' estimates? You can change this directly with `options()` or with the `opts` argument

README.md

@@ -106,8 +106,8 @@ Design
 </td>
 <td style="vertical-align: top; text-align: left; white-space: normal; border-style: solid solid solid solid; border-width: 0.4pt 0.4pt 0.4pt 0.4pt;    padding: 6pt 6pt 6pt 6pt; font-weight: normal;">
 Stratified 1 - level Cluster Sampling design (with replacement)<br>With
-(398) clusters.<br>namcs2019sv = survey::svydesign(ids = ~ CPSUM, strata
-= ~ CSTRATM, weights = ~ PATWT<br> , data = namcs2019sv_df)
+(398) clusters.<br>namcs2019sv = survey::svydesign(ids = ~CPSUM, strata
+= ~CSTRATM, weights = ~PATWT<br> , data = namcs2019sv_df)
 </td>
 </tr>
 </table>

_pkgdown.yml

@@ -41,3 +41,14 @@ reference:
   - survey_subset
   - svyciprop_adjusted
   - print.surveytable_table
+
+articles:
+- title: Examples
+  navbar: ~
+  contents:
+  - Example-National-Ambulatory-Medical-Care-Survey-NAMCS-tables
+  - Example-Residential-Care-Community-Services-User-NSLTCP-RCC-SU-report
+- title: Advanced
+  navbar: Advanced
+  contents:
+  - Advanced-topics

data-raw/namcs2019sv.R

@@ -11,7 +11,7 @@ vrs = c("CPSUM", "CSTRATM", "PATWT" # survey design
         , "NUMMED" # numeric variable
         , "ANYIMAGE", "BONEDENS", "CATSCAN", "ECHOCARD", "OTHULTRA"
         , "MAMMO", "MRI", "XRAY", "OTHIMAGE" # imaging
-)  %>% unique
+) %>% unique
 
 namcs2019sv_df = namcs2019$variables[,vrs]
 
@@ -23,7 +23,7 @@ idx = sample.int(n = nr, size = round(0.2 * nr))
 namcs2019sv_df[idx, vr] = NA
 attr(namcs2019sv_df[,vr], "label") = "Type of specialty (BAD - do not use)"
 
-namcs2019sv = survey::svydesign(ids = ~ CPSUM, strata = ~ CSTRATM, weights = ~ PATWT
+namcs2019sv = survey::svydesign(ids = ~CPSUM, strata = ~CSTRATM, weights = ~PATWT
   , data = namcs2019sv_df)
 attr(namcs2019sv, "label") = "NAMCS 2019 PUF"