@@ -63,8 +63,11 @@ mod_comp_tour_server <- function(id, rv) {
63
63
text_device <- reactive({
64
64
65
65
span(
66
- " Set the 'GPS battery life' to 2 years and the" ,
67
- " 'maximum GPS fix rate' to 1 fix every 6 hours." )
66
+ " Set the" ,
67
+ span(" GPS battery life" , class = " txt_code inline" ),
68
+ " to 2 years and the" ,
69
+ span(" maximum GPS fix rate" , class = " txt_code inline" ),
70
+ " 1 fix every 6 hours." )
68
71
69
72
}) # end of reactive, text_device()
70
73
@@ -136,12 +139,11 @@ mod_comp_tour_server <- function(id, rv) {
136
139
" Follow these instructions carefully," ,
137
140
" as later parts of the tutorial require that all" ,
138
141
" previous steps were performed." ,
139
- p(), " If no action is requested, simply proceed" ,
140
- " to the next step by" ,
141
-
142
+ p(),
142
143
span(class = " tour_action" , action_bell ,
143
- " clicking on the 'Next' button or using the right" ,
144
- " arrow of your keyboard." )
144
+ " If no action is requested, simply proceed" ,
145
+ " to the next step by clicking on the 'Next' button" ,
146
+ " or using the right arrow of your keyboard." )
145
147
)))
146
148
147
149
element <- c(element , " #Tour_start" )
@@ -164,9 +166,12 @@ mod_comp_tour_server <- function(id, rv) {
164
166
HTML(paste(
165
167
" You will be guided through a real" ,
166
168
" animal tracking project available through the" ,
167
- span(" ctmm R" , class = " cl-grn" ), " package." ,
169
+ span(
170
+ wrap_none(span(" ctmm" , class = " txt_mono cl-grn" )),
171
+ class = " txt_code inline" ), " package." ,
168
172
" For assistance with a simulation from scratch, exit" ,
169
- " this tour (click the " , span(" x" , class = " cl-grey" ),
173
+ " this tour (click the " ,
174
+ span(" x" , class = " txt_bold cl-grey" ),
170
175
" button above) and go to the" ,
171
176
fontawesome :: fa(" file-pen" , fill = pal $ sea ),
172
177
span(" Simulate data" , class = " cl-sea-l" ),
@@ -176,16 +181,20 @@ mod_comp_tour_server <- function(id, rv) {
176
181
span(class = " tour_action" , action_bell ,
177
182
" Please choose" ,
178
183
fontawesome :: fa(" square-check" , fill = " white" ),
179
- " 'Select' as your Data source, to choose" ,
180
- " from a list of available species, " ,
181
- " and both " ,
184
+ span(" Select" , class = " txt_code inline" ),
185
+ " as your Data source, to choose" ,
186
+ " from a list of available species," ,
187
+ " and both" ,
182
188
fontawesome :: fa(" square-check" , fill = " white" ),
183
- " 'Home range' and " ,
189
+ span(" Home range" , class = " txt_code inline" ),
190
+ " and" ,
184
191
fontawesome :: fa(" square-check" , fill = " white" ),
185
- " 'Speed & distance' as your research targets." ,
192
+ span(" Speed & distance" , class = " txt_code inline" ),
193
+ " as your research targets." ,
186
194
br(),
187
- " For analytical targets," ,
188
- " select 'Individual estimate'." )
195
+ " For analytical targets, select" ,
196
+ wrap_none(" Individual estimate" ,
197
+ css = " txt_code inline" , " ." ))
189
198
)))
190
199
191
200
element <- c(element , " .sidebar" )
@@ -197,7 +206,9 @@ mod_comp_tour_server <- function(id, rv) {
197
206
fontawesome :: fa(" file-circle-plus" , fill = pal $ sea ),
198
207
span(" Select data" , class = " cl-sea-l" ),
199
208
" tab (to load a dataset from the" ,
200
- span(" ctmm" , class = " cl-grn" ), " package)," ,
209
+ span(
210
+ wrap_none(span(" ctmm" , class = " txt_mono cl-grn" )),
211
+ class = " txt_code inline" ), " package)," ,
201
212
" then the (2)" ,
202
213
fontawesome :: fa(" stopwatch" , fill = pal $ sea ),
203
214
span(" Sampling design" , class = " cl-sea-l" ), " tab" ,
@@ -216,7 +227,8 @@ mod_comp_tour_server <- function(id, rv) {
216
227
" Proceed to the next step" ,
217
228
" as it will move you to the" ,
218
229
fontawesome :: fa(" file-circle-plus" , fill = " white" ),
219
- " 'Select data' tab automatically." )
230
+ span(" Select data" , class = " txt_code inline" ),
231
+ " tab automatically." )
220
232
)))
221
233
222
234
# # Data tabs: -------------------------------------------------------
@@ -227,8 +239,10 @@ mod_comp_tour_server <- function(id, rv) {
227
239
intro ,
228
240
HTML(paste(
229
241
" In this tab, you will be able to select one of the seven" ,
230
- " species available in the" , span(" ctmm" , class = " cl-grn" ),
231
- " package." ,
242
+ " species available in the" ,
243
+ span(
244
+ wrap_none(span(" ctmm" , class = " txt_mono cl-grn" )),
245
+ class = " txt_code inline" ), " package." ,
232
246
" Parameters extracted from one of the species provided" ,
233
247
" can help inform tracking studies of" ,
234
248
" species with similar" ,
@@ -290,7 +304,8 @@ mod_comp_tour_server <- function(id, rv) {
290
304
291
305
" Now, pick individual 'Cilla' from the dropdown menu" ,
292
306
" and click the" , fontawesome :: fa(" wand-magic-sparkles" ),
293
- " 'Validate' button before proceeding." ),
307
+ span(" Validate" , class = " txt_code inline" ),
308
+ " button before proceeding." ),
294
309
p(),
295
310
" Outside of this tour, you can also select an" ,
296
311
" individual from the table or" ,
@@ -317,8 +332,10 @@ mod_comp_tour_server <- function(id, rv) {
317
332
class = " tour_action" , action_bell ,
318
333
" The button should now read" ,
319
334
fontawesome :: fa(" circle-check" ),
320
- " 'Validated!'. Now click the" ,
321
- fontawesome :: fa(" paper-plane" ), " 'Extract' button." )
335
+ wrap_none(
336
+ span(" Validated!" , class = " txt_code inline" ), " ." ),
337
+ " Now click the" , fontawesome :: fa(" paper-plane" ),
338
+ span(" Extract" , class = " txt_code inline" ), " button." )
322
339
)))
323
340
324
341
element <- c(element , paste0(tab3 , " selectBox_schedule" ))
@@ -442,7 +459,7 @@ mod_comp_tour_server <- function(id, rv) {
442
459
class = " tour_action" , action_bell ,
443
460
" Select the point in the figure corresponding to" ,
444
461
" the sampling interval to" ,
445
- span(" 2 hours" , class = " cl-sea-l " ),
462
+ span(" 2 hours" , class = " txt_code inline " ),
446
463
" (equal to a frequency of" ,
447
464
wrap_none(
448
465
span(" 12 fixes per day" , class = " cl-sea-l" ), " )." ))
@@ -456,9 +473,13 @@ mod_comp_tour_server <- function(id, rv) {
456
473
class = " tour_action" , action_bell ,
457
474
458
475
" Click the" , fontawesome :: fa(" wand-magic-sparkles" ),
459
- " 'Validate' button until it reads 'Validated!'," ,
476
+ span(" Validate" , class = " txt_code inline" ),
477
+ " button until it reads" ,
478
+ wrap_none(
479
+ span(" Validate" , class = " txt_code inline" ), " ," ),
460
480
" then click the" , fontawesome :: fa(" bolt" ),
461
- " 'Run' button." ),
481
+ span(" Run" , class = " txt_code inline" ),
482
+ " button." ),
462
483
p(),
463
484
" You will see two notifications: the first during" ,
464
485
" the calculation of the expected run time," ,
@@ -504,7 +525,7 @@ mod_comp_tour_server <- function(id, rv) {
504
525
# span(
505
526
# class = "tour_action", action_bell,
506
527
# "Throughout this walkthrough, you can click on the",
507
- # fontawesome::fa("bookmark"), "' Show table' ",
528
+ # fontawesome::fa("bookmark"), "Show table",
508
529
# "button to show relevant inputs and outputs",
509
530
# "in a table for a quick overview."),
510
531
# p(),
@@ -543,14 +564,17 @@ mod_comp_tour_server <- function(id, rv) {
543
564
" For this step, we are using the" ,
544
565
span(" Autocorrelated Kernel Density Estimator (AKDE)" ,
545
566
class = " cl-sea-l" ), " method available in the" ,
546
- span(" ctmm" , class = " cl-grn" ),
547
- " R package." ,
567
+ span(
568
+ wrap_none(span(" ctmm" , class = " txt_mono cl-grn" )),
569
+ class = " txt_code inline" ),
570
+ " package." , br(),
548
571
549
572
span(
550
573
class = " tour_action" , action_bell ,
551
574
552
- " Click on the" , fontawesome :: fa(" paper-plane" ),
553
- " 'Run estimation' button to estimate home range area." )
575
+ " Click on the" , fontawesome :: fa(" paper-plane" ),
576
+ span(" Run estimation" , class = " txt_code inline" ),
577
+ " button to estimate home range area." )
554
578
)))
555
579
556
580
# element <- c(element, paste0(tab5, "hrBox_viz"))
@@ -588,9 +612,9 @@ mod_comp_tour_server <- function(id, rv) {
588
612
" (low" , HTML(" —" ), " high), " ,
589
613
" as the point estimate is subject to uncertainty." ),
590
614
p(),
591
- fontawesome :: fa(name = " radiation" , fill = " #bdbdbd " ),
615
+ fontawesome :: fa(name = " radiation" , fill = " #DB4545 " ),
592
616
wrap_none(
593
- span(" Relative error" , class = " cl-dgr-l " ),
617
+ span(" Relative error" , class = " cl-dgr" ),
594
618
" , which, for a single simulation" ,
595
619
" is the " , span(" error (in %)" , class = " cl-dgr-l" ),
596
620
" of the point estimate (and of the 95% CIs;" ,
@@ -625,7 +649,7 @@ mod_comp_tour_server <- function(id, rv) {
625
649
# class = "tour_action", action_bell,
626
650
# "You can once again see all outputs to a table",
627
651
# "by clicking on the", fontawesome::fa("bookmark")
628
- # , "' Show table' ", "button located at the bottom",
652
+ # , "Show table", "button located at the bottom",
629
653
# "of the box."
630
654
# )
631
655
# )))
@@ -659,12 +683,14 @@ mod_comp_tour_server <- function(id, rv) {
659
683
" For this step, we are using the" ,
660
684
span(" Continuous Time Speed & Distance (CTSD)" ,
661
685
class = " cl-sea-l" ), " estimator available in the" ,
662
- span(" ctmm" , class = " cl-grn" ),
663
- " R package." , p(),
686
+ span(
687
+ wrap_none(span(" ctmm" , class = " txt_mono cl-grn" )),
688
+ class = " txt_code inline" ), " R package." , p(),
689
+
664
690
span(class = " tour_action" , action_bell ,
665
-
666
691
" Click on the" , fontawesome :: fa(" paper-plane" ),
667
- " 'Run estimation' button to estimate speed & distance." )
692
+ span(" Run estimation" , class = " txt_code inline" ),
693
+ " button to estimate speed & distance." )
668
694
)))
669
695
670
696
# element <- c(element, paste0(tab6, "sdPlot_path"))
@@ -720,7 +746,7 @@ mod_comp_tour_server <- function(id, rv) {
720
746
# span(class = "tour_action", action_bell,
721
747
# "You can once again see all outputs to a table",
722
748
# "by clicking on the", fontawesome::fa("bookmark")
723
- # , "' Show table' ", "button located at the bottom",
749
+ # , "Show table", "button located at the bottom",
724
750
# "of the box."
725
751
# )
726
752
# )))
@@ -757,7 +783,8 @@ mod_comp_tour_server <- function(id, rv) {
757
783
class = " tour_action" , action_bell ,
758
784
759
785
" Click the" , fontawesome :: fa(" bookmark" ),
760
- " 'Build report' button to see a detailed" ,
786
+ span(" Build report" , class = " txt_code inline" ),
787
+ " button to see a detailed" ,
761
788
" assessment of how well your current sampling design" ,
762
789
" addresses your research targets." )
763
790
)))
@@ -921,22 +948,22 @@ mod_comp_tour_server <- function(id, rv) {
921
948
span(class = " tour_action" , action_bell ,
922
949
" Please choose" ,
923
950
fontawesome :: fa(" square-check" , fill = " white" ),
924
- span(" ' Select' " , class = " txt_code" ), " as your" ,
951
+ span(" Select" , class = " txt_code" ), " as your" ,
925
952
wrap_none(
926
953
span(" data source" , class = " txt_bold" ), " , and" ),
927
954
fontawesome :: fa(" square-check" , fill = " white" ),
928
- span(" ' Home range' " , class = " txt_code" ), " as the" ,
955
+ span(" Home range" , class = " txt_code" ), " as the" ,
929
956
wrap_none(
930
957
span(" research target" , class = " txt_bold" ), " ." ),
931
958
" For the" ,
932
959
wrap_none(
933
960
span(" analytical target" , class = " txt_bold" ), " ," ),
934
961
" choose" ,
935
- span(" ' Mean estimate of" ,
962
+ span(" Mean estimate of" ,
936
963
wrap_none(
937
964
span(" sampled population" ,
938
- class = " txt_mono cl-sea-l" ),
939
- " ' " ), class = " txt_code" ),
965
+ class = " txt_mono cl-sea-l" )
966
+ ), class = " txt_code" ),
940
967
" to display deployment options." )
941
968
)))
942
969
@@ -949,18 +976,18 @@ mod_comp_tour_server <- function(id, rv) {
949
976
wrap_none(
950
977
span(" deployment" , class = " txt_bold" ), " ," ),
951
978
" select" ,
952
- span(" ' I plan to deploy a" ,
979
+ span(" I plan to deploy a" ,
953
980
wrap_none(
954
981
span(" set" ,
955
982
class = " txt_mono cl-grn" ),
956
- " number of VHF/GPS tags' ." ),
983
+ " number of VHF/GPS tags." ),
957
984
class = " txt_code" ),
958
985
" Then check the" ,
959
- span(" ' Add" ,
986
+ span(" Add" ,
960
987
wrap_none(
961
988
span(" individual" ,
962
989
class = " txt_mono cl-grn" ),
963
- " variation' " ),
990
+ " variation" ),
964
991
class = " txt_code" ),
965
992
" checkbox, as we wish to account for" ,
966
993
" individual differences." )
@@ -976,7 +1003,7 @@ mod_comp_tour_server <- function(id, rv) {
976
1003
span(" Select data" , class = " cl-sea-l" ), " tab" ,
977
1004
" (to load a dataset from the" ,
978
1005
span(
979
- wrap_none(span(" ctmm" , class = " txt_mono cl-sea-l " )),
1006
+ wrap_none(span(" ctmm" , class = " txt_mono cl-grn " )),
980
1007
class = " txt_code inline" ),
981
1008
" package), then the" ,
982
1009
fontawesome :: fa(" stopwatch" , fill = pal $ sea ),
@@ -1014,7 +1041,7 @@ mod_comp_tour_server <- function(id, rv) {
1014
1041
" In this tab, you will be able to select one of the seven" ,
1015
1042
" species available in the" ,
1016
1043
span(
1017
- wrap_none(span(" ctmm" , class = " txt_mono cl-sea-l " )),
1044
+ wrap_none(span(" ctmm" , class = " txt_mono cl-grn " )),
1018
1045
class = " txt_code inline" ),
1019
1046
span(" R" , class = " txt_code inline" ), " package." ,
1020
1047
" Parameters extracted from one of the species provided" ,
@@ -1082,9 +1109,8 @@ mod_comp_tour_server <- function(id, rv) {
1082
1109
class = " tour_action" , action_bell ,
1083
1110
" The button should now read" ,
1084
1111
fontawesome :: fa(" circle-check" ),
1085
- span(" Validated!" , class = " txt_code inline" ),
1086
1112
wrap_none(span(" Validated!" , class = " txt_code inline" ),
1087
- end = " ." ), " Now click the" ,
1113
+ " ." ), " Now click the" ,
1088
1114
fontawesome :: fa(" paper-plane" ),
1089
1115
span(" Extract" , class = " txt_code inline" ), " button." )
1090
1116
)))
@@ -1266,7 +1292,7 @@ mod_comp_tour_server <- function(id, rv) {
1266
1292
span(" Autocorrelated Kernel Density Estimator (AKDE)" ,
1267
1293
class = " cl-sea-l" ), " method available in the" ,
1268
1294
span(
1269
- wrap_none(span(" ctmm" , class = " txt_mono cl-sea-l " )),
1295
+ wrap_none(span(" ctmm" , class = " txt_mono cl-grn " )),
1270
1296
class = " txt_code inline" ),
1271
1297
span(" R" , class = " txt_code inline" ), " package." , p(),
1272
1298
0 commit comments