-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path12_10_24.qmd
169 lines (121 loc) · 5.72 KB
/
12_10_24.qmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
---
title: "R for <br>Authoring!!"
author: "OOH Session #55...<br>...[polling]{.election} via R: [Survey Launch]{.launch}"
title-slide-attributes:
data-background-image: https://fdczvxmwwjwpwbeeqcth.supabase.co/storage/v1/object/public/images/268c4b03-533f-4e81-aec1-0c22df466a90/311d3704-300d-49ac-abbf-d2472ae5efed.png
data-background-opacity: ".5"
format:
revealjs:
mouse-wheel: true ## yes enables mouse
slide-tone: false
# navigation-mode: vertical
transition: convex
transition-speed: slow
# controls-layout: bottom-right
# controls-tutorial: true
# slide-number: h.v
mermaid:
theme: forest
# output-location: slide ## column-fragment; inserts blank 2nd slide
code-overflow: wrap ## instead of horizontal scroll
theme: [league, weekly.scss] ## night & league
logo: "erg2.png"
footer-logo-link: "https://ergreports.com/" ## https://github.com/shafayetShafee/reveal-header#readme
preview-links: false ## true brings up iframe window instead of "site"
code-annotations: hover
html-math-method:
method: mathjax ## LaTeX in code annotations
url: "https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.9/latest.js?config=TeX-MML-AM_CHTML"
engine: knitr ## not picking up inline codes
bibliography: temp.bib
#lightbox: true
filters:
- reveal-header ## extension to add a hyperlink to slide logo
---
```{r, warning=FALSE, message=FALSE}
#devtools::install_github("hadley/emo") ## if anyone else wants to render
library(fontawesome)
```
## Open Office Hours <br>(`r format(Sys.Date(),"%B %d, %Y")`)
::: {layout="[80,20]"}
::: first-column
- Recap session #54 `r emo::ji("left_right_arrow")`
- Focal issue(s):
- [polling]{.election} via `r fontawesome::fa("r-project", fill="#4287f5")`: Part V
+ [surveydown](https://surveydown.org/) `r emo::ji("down_arrow")`
+ [Survey Launch]{.launch}
- Shared problem-solving
:::
::: second-column
:::
:::
{.absolute top="170" right="-120" width="600" height="325"}
# Recap of Session <br>#53:
{.absolute right="50" top="200"}
{.absolute right="150" top="300" width="150"}
## [Polling]{.election} via [Surveydown](https://surveydown.org/) -- Part IV...
:::: {.panel-tabset}
## Supabase
[](https://surveydown.org/store-data#create-a-supabase-account)
## Set password
## DB Info
[](https://surveydown.org/store-data#copy-your-credentials)
## app.R
```{r}
#| eval: false
#| echo: true
#| code-line-numbers: "14-20"
# remotes::install_github("surveydown-dev/surveydown", force = TRUE)
library(surveydown)
# Database setup
# surveydown stores data on a database that you define at https://supabase.com/
# To connect to a database, update the sd_database() function with details
# from your supabase database. For this demo, we set ignore = TRUE, which will
# ignore the settings and won't attempt to connect to the database. This is
# helpful for local testing if you don't want to record testing data in the
# database table. See the documentation for details:
# https://surveydown.org/store-data
db <- sd_database(
host = "aws-0-us-west-1.pooler.supabase.com", #<1>
dbname = "postgres",
port = "6543",
user = "postgres.yppmohklyshsiwkpadqa", #<1>
table = "Woody", #<2>
# ignore = TRUE #<3>
)
# Server setup
server <- function(input, output, session) {
# Define any conditional skip logic here (skip to page if a condition is true)
sd_skip_if()
# Define any conditional display logic here (show a question if a condition is true)
sd_show_if()
# Database designation and other settings
sd_server(
db = db
)
}
# shinyApp() initiates your app - don't change it
shiny::shinyApp(ui = sd_ui(), server = server)
# viola
```
1. `copy-paste` from Supabase "Connection parameters" (see previous tab).
2. Supabase has a "Table Editor" identifier. The name you choose here will appear on the Supabase site.
3. Allows the survey to be launched [without connecting to the database](https://surveydown.org/store-data#ignoring-the-supabase-connection). If responses are provided, they will be stored within a local `preview_data.csv` file (within your project directory).
::::
{.absolute right="-130" top="0" height="200"}
{.absolute right="-75" top="65" width="100"}
# Today...
## [surveydown](https://surveydown.org/) Part V -- [Survey Launch]{.launch}:
{.absolute left="100" height="600"}
:::{.fragment}
{.absolute width="700" right="170" top="110" .tilt}
{.absolute width="400" left="50" top="130" .tilt}
{.absolute width="200" left="160" top="500" .tilt}
{.absolute width="250" right="85" top="125" .tilt}
{.absolute width="350" right="80" bottom="0" .tilt}
:::
## `r fontawesome::fa("r-project", fill="#4287f5")` Session Info (`r format(Sys.Date(),"%B %d, %Y")`) Rendering:
```{r}
sessionInfo()
```