Remove dependency on torgutil.

Fill in README (very basic).

Author: tor-gu

DESCRIPTION

@@ -27,8 +27,7 @@ Imports:
     shinyjs,
     stringr,
     tidyr,
-    tigris,
-    torgutil
+    tigris
 RoxygenNote: 7.1.2
 Depends: 
     R (>= 2.10)

R/mod_filter_functions_ui.R

@@ -1,3 +1,12 @@
+tbl_as_named_list <- function(tbl, value_col, name_col) {
+  # Given a table and two columns, build a named list.
+  # Copied from torgutil
+  result <- tbl %>% dplyr::pull({{value_col}}) %>% as.list()
+  names(result) <- tbl %>% dplyr::pull({{name_col}}) %>% as.list()
+  result
+}
+
+
 filter_ui_make_filter_value_choice_list <-
   function(table, table_name, filter_name) {
     this_filter <- filters %>%
@@ -19,10 +28,10 @@ filter_ui_make_filter_value_choice_list <-
 filter_ui_make_filter_choice_list <- function(table_name) {
   single_value <- filters %>%
     dplyr::filter(table==table_name, is.na(join_table), filter != "all") %>%
-    torgutil::tbl_as_named_list(filter, display_name)
+    tbl_as_named_list(filter, display_name)
   multi_value <- filters %>%
     dplyr::filter(table==table_name, !is.na(join_table)) %>%
-    torgutil::tbl_as_named_list(filter, display_name)
+    tbl_as_named_list(filter, display_name)
   all <- filters %>%
     dplyr::filter(table==table_name, filter=="all") %>%
     dplyr::pull(display_name)

README.md

@@ -5,23 +5,15 @@
 [![R-CMD-check](https://github.com/tor-gu/njoaguofdash/workflows/R-CMD-check/badge.svg)](https://github.com/tor-gu/njoaguofdash/actions)
 <!-- badges: end -->
 
-The goal of njoaguofdash is to ...
+This is a simply dashboard application to illustrate the R data package
+[njoaguof](https://github.com/tor-gu/njoaguof)
 
 ## Installation
 
-You can install the development version of njoaguofdash from [GitHub](https://github.com/) with:
+You can install the latest version of njoaguofdash from [GitHub](https://github.com/) with:
 
 ``` r
 # install.packages("devtools")
 devtools::install_github("tor-gu/njoaguofdash")
 ```
 
-## Example
-
-This is a basic example which shows you how to solve a common problem:
-
-``` r
-library(njoaguofdash)
-## basic example code
-```
-