Merge pull request #28 from davidycliao/0.1.7

UPLOAD 0.1.7

.Rbuildignore

@@ -1,10 +1,17 @@
-^renv$
-^renv\.lock$
+^\.github$
 ^.*\.Rproj$
 ^\.Rproj\.user$
-^\.github$
 ^_pkgdown\.yml$
 ^docs$
 ^pkgdown$
-^doc$
-^Meta$
+^\.github$
+^codecov\.yml$
+^\.Rcheck$
+^.*\.utf8\.R$
+^README\.Rmd$
+
+^.*\.Rproj$
+^\.Rproj\.user$
+^README\.Rmd$
+^cran-comments\.md$
+^\.github$

.Rcheck/00check.env

@@ -0,0 +1,3 @@
+_R_CHECK_ASCII_CODE_=FALSE
+_R_CHECK_CRAN_INCOMING_=FALSE
+NOT_CRAN=true

.Rproj.user/22C8AC9B/pcs/debug-breakpoints.pper

@@ -0,0 +1,5 @@
+{
+    "debugBreakpointsState": {
+        "breakpoints": []
+    }
+}

.Rproj.user/22C8AC9B/pcs/files-pane.pper

@@ -0,0 +1,9 @@
+{
+    "sortOrder": [
+        {
+            "columnIndex": 2,
+            "ascending": true
+        }
+    ],
+    "path": "~/Dropbox/legisTaiwan"
+}

.Rproj.user/22C8AC9B/pcs/source-pane.pper

@@ -0,0 +1,3 @@
+{
+    "activeTab": 1
+}

.Rproj.user/22C8AC9B/pcs/windowlayoutstate.pper

@@ -0,0 +1,14 @@
+{
+    "left": {
+        "splitterpos": 432,
+        "topwindowstate": "NORMAL",
+        "panelheight": 1042,
+        "windowheight": 1080
+    },
+    "right": {
+        "splitterpos": 470,
+        "topwindowstate": "NORMAL",
+        "panelheight": 1042,
+        "windowheight": 1080
+    }
+}

.Rproj.user/22C8AC9B/pcs/workbench-pane.pper

@@ -0,0 +1,5 @@
+{
+    "TabSet1": 3,
+    "TabSet2": 0,
+    "TabZoom": {}
+}

.Rproj.user/22C8AC9B/persistent-state

@@ -0,0 +1,8 @@
+build-last-errors="[]"
+build-last-errors-base-dir="~/Dropbox/legisTaiwan/"
+build-last-outputs="[{\"type\":0,\"output\":\"==> R CMD INSTALL --preclean --no-multiarch --with-keep.source legisTaiwan\\n\\n\"},{\"type\":1,\"output\":\"* installing to library ‘/Library/Frameworks/R.framework/Versions/4.1/Resources/library’\\n\"},{\"type\":1,\"output\":\"* installing *source* package ‘legisTaiwan’ ...\\n\"},{\"type\":1,\"output\":\"** using staged installation\\n\"},{\"type\":1,\"output\":\"\"},{\"type\":1,\"output\":\"** R\\n\"},{\"type\":1,\"output\":\"** inst\\n\"},{\"type\":1,\"output\":\"** byte-compile and prepare package for lazy loading\\n\"},{\"type\":1,\"output\":\"\"},{\"type\":1,\"output\":\"** help\\n\"},{\"type\":1,\"output\":\"\"},{\"type\":1,\"output\":\"*** installing help indices\\n\"},{\"type\":1,\"output\":\"*** copying figures\\n\"},{\"type\":1,\"output\":\"** building package indices\\n\"},{\"type\":1,\"output\":\"\"},{\"type\":1,\"output\":\"** installing vignettes\\n\"},{\"type\":1,\"output\":\"** testing if installed package can be loaded from temporary location\\n\"},{\"type\":1,\"output\":\"\"},{\"type\":1,\"output\":\"** testing if installed package can be loaded from final location\\n\"},{\"type\":1,\"output\":\"\"},{\"type\":1,\"output\":\"** testing if installed package keeps a record of temporary installation path\\n\"},{\"type\":1,\"output\":\"* DONE (legisTaiwan)\\n\"},{\"type\":1,\"output\":\"\"}]"
+compile_pdf_state="{\"tab_visible\":false,\"running\":false,\"target_file\":\"\",\"output\":\"\",\"errors\":[]}"
+files.monitored-path=""
+find-in-files-state="{\"handle\":\"\",\"input\":\"\",\"path\":\"\",\"regex\":false,\"ignoreCase\":false,\"results\":{\"file\":[],\"line\":[],\"lineValue\":[],\"matchOn\":[],\"matchOff\":[],\"replaceMatchOn\":[],\"replaceMatchOff\":[]},\"running\":false,\"replace\":false,\"preview\":false,\"gitFlag\":false,\"replacePattern\":\"\"}"
+imageDirtyState="0"
+saveActionState="0"

.Rproj.user/22C8AC9B/profiles-cache/file85df07357f.Rprof

@@ -0,0 +1 @@
+memory profiling: GC profiling: line profiling: sample.interval=10000

.Rproj.user/22C8AC9B/rmd-outputs

@@ -0,0 +1,5 @@
+
+
+
+
+

.Rproj.user/22C8AC9B/saved_source_markers

@@ -0,0 +1 @@
+{"active_set":"","sets":[]}

.Rproj.user/22C8AC9B/sources/per/t/E014E353

@@ -0,0 +1,26 @@
+{
+    "id": "E014E353",
+    "path": "~/Dropbox/legisTaiwan/tests/testthat/test_meeting.R",
+    "project_path": "tests/testthat/test_meeting.R",
+    "type": "r_source",
+    "hash": "3275853541",
+    "contents": "",
+    "dirty": false,
+    "created": 1676045178943.0,
+    "source_on_save": false,
+    "relative_order": 1,
+    "properties": {
+        "source_window_id": "",
+        "Source": "Source",
+        "cursorPosition": "10,2",
+        "scrollLine": "0"
+    },
+    "folds": "",
+    "lastKnownWriteTime": 1676042661,
+    "encoding": "UTF-8",
+    "collab_server": "",
+    "source_window": "",
+    "last_content_update": 1676042661,
+    "read_only": false,
+    "read_only_alternatives": []
+}

.Rproj.user/22C8AC9B/sources/per/t/E014E353-contents

@@ -0,0 +1,41 @@
+test_that("get_meetings", {
+  expect_equal(get_meetings(start_date = 1050120, end_date = 1050210, verbose = FALSE)$data$smeeting_date, "105/02/01")
+  expect_equal(nrow(get_meetings(start_date = 1040120, end_date = 1050310, verbose = TRUE)$data), 807)
+  expect_error(get_meetings(start_date = 1040101, end_date = 1040102, verbose = FALSE), "The query is unavailable.")
+
+})
+
+test_that("get_caucus_meetings", {
+  expect_equal(get_caucus_meetings(start_date = "106/10/20", end_date = "107/03/10")$retrieved_number, 30)
+  expect_equal(get_caucus_meetings(start_date = "106/10/20", end_date = "107/03/10", verbose = FALSE)$retrieved_number ,30)
+})
+
+test_that("get_speech_video", {
+  expect_equal(get_speech_video(start_date = "105/10/20", end_date = "109/03/10")$retrieved_number, 547)
+  expect_equal(get_speech_video(start_date = "105/10/20", end_date = "109/03/10", verbose = FALSE)$retrieved_number, 547)
+  expect_error(get_speech_video(start_date = "104/01/01", end_date = "104/01/02", verbose = FALSE), "The query is unavailable.")
+
+})
+
+test_that("get_public_debates", {
+  expect_equal(get_public_debates(term = 10, session_period = 1)$retrieved_number, 107)
+  # expect_equal(get_public_debates(term = 10, session_period = 1, verbose = FALSE)$retrieved_number, 107)
+  expect_error(get_public_debates(term = "10"),   "use numeric format only.")
+  expect_error(get_public_debates(term = "10", verbose = TRUE),   "use numeric format only.")
+  expect_equal(get_public_debates(term = NULL, verbose = TRUE)$title, "the records of the questions answered by the executives")
+  expect_message(get_public_debates(c(10,11)),
+                 "The API is unable to query multiple terms and the retrieved data might not be complete.")
+  # expect_error(get_public_debates(term = 30),  "The query is unavailable.")
+
+  })
+
+
+test_that("get_committee_record", {
+  expect_equal(get_committee_record(term = 8, session_period= 1, verbose = FALSE)$retrieved_number, 613)
+  expect_equal(get_committee_record(term = 8, session_period= 2, verbose = FALSE)$retrieved_number, 633)
+  expect_equal(get_committee_record(term = 8, session_period= 2, verbose = TRUE)$title, "the records of reviewed items in the committees")
+  expect_error(get_committee_record(term = 2),   "The query is unavailable.")
+  # expect_message(get_committee_record(c(10,11)),
+  #                "The API is unable to query multiple terms and the retrieved data might not be complete.")
+})
+

.Rproj.user/22C8AC9B/sources/per/u/BC4958A1

@@ -0,0 +1,28 @@
+{
+    "id": "BC4958A1",
+    "path": null,
+    "project_path": null,
+    "type": "r_markdown",
+    "hash": "2831865939",
+    "contents": "",
+    "dirty": true,
+    "created": 1676206076978.0,
+    "source_on_save": false,
+    "relative_order": 2,
+    "properties": {
+        "tempName": "Untitled1",
+        "chunk_output_type": "inline",
+        "source_window_id": "",
+        "Source": "Source",
+        "cursorPosition": "11,0",
+        "scrollLine": "0"
+    },
+    "folds": "",
+    "lastKnownWriteTime": 0,
+    "encoding": "",
+    "collab_server": "",
+    "source_window": "",
+    "last_content_update": 1676206146392,
+    "read_only": false,
+    "read_only_alternatives": []
+}

.Rproj.user/22C8AC9B/sources/per/u/BC4958A1-contents

@@ -0,0 +1,11 @@
+---
+title: "R Notebook"
+output: html_notebook
+---
+
+```{r}
+
+get_all_vars()
+
+```
+

.Rproj.user/22C8AC9B/sources/prop/3EAA5A96

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "10,2",
+    "scrollLine": "0"
+}

.Rproj.user/22C8AC9B/sources/prop/INDEX

@@ -0,0 +1 @@
+~%2FDropbox%2FlegisTaiwan%2Ftests%2Ftestthat%2Ftest_meeting.R="3EAA5A96"

.Rproj.user/22C8AC9B/unsaved-notebooks/BC4958A1/1/chunks.json

@@ -0,0 +1 @@
+{"chunk_definitions":[],"doc_write_time":1676206081}

.Rproj.user/31DADF67/cpp-definition-cache

@@ -0,0 +1 @@
+[]

.Rproj.user/31DADF67/pcs/debug-breakpoints.pper

@@ -0,0 +1,5 @@
+{
+    "debugBreakpointsState": {
+        "breakpoints": []
+    }
+}

.Rproj.user/31DADF67/pcs/files-pane.pper

@@ -0,0 +1,9 @@
+{
+    "sortOrder": [
+        {
+            "columnIndex": 2,
+            "ascending": true
+        }
+    ],
+    "path": "~/Library/CloudStorage/Dropbox/My Packages/legisTaiwan/vignettes"
+}

.Rproj.user/31DADF67/pcs/source-pane.pper

@@ -0,0 +1,3 @@
+{
+    "activeTab": 5
+}

.Rproj.user/31DADF67/pcs/windowlayoutstate.pper

@@ -0,0 +1,14 @@
+{
+    "left": {
+        "splitterpos": 347,
+        "topwindowstate": "NORMAL",
+        "panelheight": 1012,
+        "windowheight": 1050
+    },
+    "right": {
+        "splitterpos": 585,
+        "topwindowstate": "NORMAL",
+        "panelheight": 1012,
+        "windowheight": 1050
+    }
+}

.Rproj.user/31DADF67/pcs/workbench-pane.pper

@@ -0,0 +1,5 @@
+{
+    "TabSet1": 2,
+    "TabSet2": 0,
+    "TabZoom": {}
+}

.Rproj.user/31DADF67/persistent-state

@@ -0,0 +1,8 @@
+build-last-errors="[]"
+build-last-errors-base-dir="~/Library/CloudStorage/Dropbox/My Packages/legisTaiwan/"
+build-last-outputs="[{\"type\":0,\"output\":\"==> R CMD INSTALL --preclean --no-multiarch --with-keep.source legisTaiwan\\n\\n\"},{\"type\":1,\"output\":\"* installing to library ‘/Library/Frameworks/R.framework/Versions/4.3-x86_64/Resources/library’\\n\"},{\"type\":1,\"output\":\"* installing *source* package ‘legisTaiwan’ ...\\n\"},{\"type\":1,\"output\":\"\"},{\"type\":1,\"output\":\"** using staged installation\\n\"},{\"type\":1,\"output\":\"** R\\n\"},{\"type\":1,\"output\":\"\"},{\"type\":1,\"output\":\"** inst\\n\"},{\"type\":1,\"output\":\"** byte-compile and prepare package for lazy loading\\n\"},{\"type\":1,\"output\":\"\"},{\"type\":1,\"output\":\"** help\\n\"},{\"type\":1,\"output\":\"\"},{\"type\":1,\"output\":\"*** installing help indices\\n\"},{\"type\":1,\"output\":\"\"},{\"type\":1,\"output\":\"*** copying figures\\n\"},{\"type\":1,\"output\":\"** building package indices\\n\"},{\"type\":1,\"output\":\"\"},{\"type\":1,\"output\":\"** installing vignettes\\n\"},{\"type\":1,\"output\":\"** testing if installed package can be loaded from temporary location\\n\"},{\"type\":1,\"output\":\"\"},{\"type\":1,\"output\":\"** testing if installed package can be loaded from final location\\n\"},{\"type\":1,\"output\":\"\"},{\"type\":1,\"output\":\"** testing if installed package keeps a record of temporary installation path\\n\"},{\"type\":1,\"output\":\"* DONE (legisTaiwan)\\n\"},{\"type\":1,\"output\":\"\"}]"
+compile_pdf_state="{\"tab_visible\":false,\"running\":false,\"target_file\":\"\",\"output\":\"\",\"errors\":[]}"
+files.monitored-path=""
+find-in-files-state="{\"handle\":\"\",\"input\":\"\",\"path\":\"\",\"regex\":false,\"ignoreCase\":false,\"results\":{\"file\":[],\"line\":[],\"lineValue\":[],\"matchOn\":[],\"matchOff\":[],\"replaceMatchOn\":[],\"replaceMatchOff\":[]},\"running\":false,\"replace\":false,\"preview\":false,\"gitFlag\":false,\"replacePattern\":\"\"}"
+imageDirtyState="1"
+saveActionState="-1"

.Rproj.user/31DADF67/rmd-outputs

@@ -0,0 +1,9 @@
+
+/private/var/folders/rg/4bjmhx397_5fm0pw7hmhnxnr0000gn/T/RtmpQns8Jb/preview-4e1976ac65c6.html
+/private/var/folders/rg/4bjmhx397_5fm0pw7hmhnxnr0000gn/T/RtmpQns8Jb/preview-4eaa3ab17f67.html
+/private/var/folders/rg/4bjmhx397_5fm0pw7hmhnxnr0000gn/T/RtmpQns8Jb/preview-4f3b7441de90.html
+
+
+
+
+

.Rproj.user/31DADF67/saved_source_markers

@@ -0,0 +1 @@
+{"active_set":"","sets":[]}

.Rproj.user/31DADF67/sources/prop/039DF4FC

@@ -0,0 +1,4 @@
+{
+    "source_window_id": "",
+    "Source": "Source"
+}

.Rproj.user/31DADF67/sources/prop/11347685

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "28,0",
+    "scrollLine": "0"
+}

.Rproj.user/31DADF67/sources/prop/13C1ECCB

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "22,41",
+    "scrollLine": "0"
+}

.Rproj.user/31DADF67/sources/prop/1A48397A

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "9,42",
+    "scrollLine": "0"
+}

.Rproj.user/31DADF67/sources/prop/1B78CAB7

@@ -0,0 +1,7 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "21,0",
+    "scrollLine": "0",
+    "last_setup_crc32": ""
+}

.Rproj.user/31DADF67/sources/prop/1DBC7398

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "1,0",
+    "scrollLine": "0"
+}

.Rproj.user/31DADF67/sources/prop/20E56366

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "52,60",
+    "scrollLine": "30"
+}

.Rproj.user/31DADF67/sources/prop/350ED4B6

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "8,22",
+    "scrollLine": "1"
+}

.Rproj.user/31DADF67/sources/prop/3940CEBB

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "39,3",
+    "scrollLine": "17"
+}

.Rproj.user/31DADF67/sources/prop/39C6A103

@@ -0,0 +1,4 @@
+{
+    "source_window_id": "",
+    "Source": "Source"
+}

.Rproj.user/31DADF67/sources/prop/3F6F915C

@@ -0,0 +1,4 @@
+{
+    "source_window_id": "",
+    "Source": "Source"
+}

.Rproj.user/31DADF67/sources/prop/4341F73E

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "20,0",
+    "scrollLine": "7"
+}

.Rproj.user/31DADF67/sources/prop/4443739A

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "588,56",
+    "scrollLine": "564"
+}

.Rproj.user/31DADF67/sources/prop/4BA15F53

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "44,237",
+    "scrollLine": "16"
+}