Add crosstalk examples for single and multiple dropdowns

[RyanDuffy01]

No description provided.

[csillasch]

Clear to follow and runs okay, have just marked a few typos and wording in comments to fix. Unsure if the example within the example explaining crossing is required?

[Moohan]

Lots of style changes suggested! I would also prefer the base pipe |> over magrittr %>% nowadays, since we're guaranteed to be using an R version that has it.

[Moohan]

I'd always prefer to load the specific tidyverse packages needed instead of library(tidyverse), especially in an example script.

[Moohan]

I'd always prefer to load the specific tidyverse packages needed instead of library(tidyverse), especially in an example script.

[Moohan]

{DT} is already loaded.

Suggested change

	DT::datatable()
	datatable()

[Moohan]

{DT} is already loaded.

Suggested change

	Person_Characteristics %>%
	DT::datatable()
	datatable(Person_Characteristics)

[Moohan]

Suggested change

	Person_And_Treatment_Lookup %>%
	DT::datatable()
	datatable(Person_And_Treatment_Lookup)

[Moohan]

No need for a pipe when we only have one function in the pipeline. Also using dplyr::bind_rows() instead of rbind()

Suggested change

	All_BP_readings <- BP_Readings_treatment_1 %>%
	rbind(BP_Readings_treatment_2)
	All_BP_readings <- bind_rows(BP_Readings_treatment_1, BP_Readings_treatment_2)

[Moohan]

Suggested change

	All_BP_readings <- All_BP_readings %>%
	mutate(Identifier_Column = paste0(Person, "_", Treatment))
	All_BP_readings <- mutate(All_BP_readings, Identifier_Column = paste0(Person, "_", Treatment))

[Moohan]

Suggested change

	example_data <- example_data %>%
	crossing(
	Hobbies = c("Badminton", "Chess")
	)
	example_data <- crossing(example_data, Hobbies = c("Badminton", "Chess"))

[Moohan]

Suggested change

	Person_And_Treatment_Lookup <- All_BP_readings %>%
	distinct(Person, Treatment, Identifier_Column)
	Person_And_Treatment_Lookup <- distinct(All_BP_readings, Person, Treatment, Identifier_Column)

[Moohan]

It seems to me like these could be combined?

Suggested change

	$('#dashboard-container').on('flexdashboard:layoutcomplete', function() {
	// Select Person filter and remove (all) option
	$('#person .selectized')[0].selectize.removeOption("");
	// Select Person filter and set its default value on load to Person A
	$('#person .selectized')[0].selectize.setValue("A", false);
	});
	// Called when flexdashboard content has been created. Won't work properly otherwise
	$('#dashboard-container').on('flexdashboard:layoutcomplete', function() {
	// Select Treatment filter and remove (all) option
	$('#treatment .selectized')[0].selectize.removeOption("");
	// Select Treatment filter and set its default value on load to Heart Medication 1
	$('#treatment .selectized')[0].selectize.setValue("Heart Medication 1", false);
	});
	$('#dashboard-container').on('flexdashboard:layoutcomplete', function() {
	// Select Person filter and remove (all) option
	$('#person .selectized')[0].selectize.removeOption("");
	// Select Person filter and set its default value on load to Person A
	$('#person .selectized')[0].selectize.setValue("A", false);
	// Select Treatment filter and remove (all) option
	$('#treatment .selectized')[0].selectize.removeOption("");
	// Select Treatment filter and set its default value on load to Heart Medication 1
	$('#treatment .selectized')[0].selectize.setValue("Heart Medication 1", false);
	});