1 | Pablo Bernabeu

WebVTT caption transcription app

Fri, 01 Jan 2021 00:00:00 +0000

How it works

graph TD A["User uploads WebVTT file (vtt or txt)"] --> B["Regular expressions remove metadata such as timestamps"] B --> C["Text formatted into a paragraph"] C --> D["Result displayed on the website"] D --> E["Download as docx or txt document"]

Schematic overview; see the text for details.

This open-source, R-based web application converts video captions (subtitles) from the Web Video Text Tracks (WebVTT) Format into plain text. For this purpose, users upload a WebVTT file with the extension .vtt or .txt (examples available here and here).

Download VTT file

When the caption file is uploaded to the web application, metadata such as timestamps are automatically removed, and the text is formatted into a paragraph. The result is displayed on the website, and can be downloaded as .docx and .txt documents. Overall, this application serves to improve the accessibility of video captions.

The data is only available to the user, and is deleted when the website is closed.

Web application

The application can be used below, or it can be opened separately here.

Programming details

The source code is available on Github, where the app can be extended via pull requests. Questions and suggestions can be submitted as issues or emailed to pcbernabeu@gmail.com. The licence is Creative Commons Attribution 4.0 International.

The core of the application is in the index.Rmd script, which uses ‘regular expressions’ to process the VTT file.

In turn, the script above draws on the one below to enable the download of .docx documents. Last, the latter script draws on this Word template.

Web application for the simulation of experimental data

Mon, 01 Jun 2020 00:00:00 +0000

Purposes

This open-source, R-based web application is suitable for educational and research purposes in experimental and quantitative sciences. It allows the creation of varied data sets with specified structures, such as between-group and within-participant variables, that can be categorical or continuous. These parameters can be set throughout the various tabs (sections) from the top menu. In the last tab, the data set can be downloaded. The benefits of this application include time-saving and flexibility in the control of parameters.

How it works

graph TD A["Set parameters across tabs"] --> B["Define between-group variables"] A --> C["Define within-participant variables"] B --> D["Choose categorical or continuous"] C --> D D --> E["Simulated data set"] E --> F["Build custom summary (penultimate tab)"] F --> G["Download parameters and data set (last tab)"]

Schematic overview; see the text for details.

Guidelines

General guidelines include the following:

In the names of variables, it is recommended to use only alphanumeric characters and underscore signs. The latter can be used to separate characters or words (e.g., variable_name). Different names should be used for each variable.
In the levels of categorical variables, alphanumeric, special characters and spaces are allowed.
In numeric fields (e.g., ‘Mean’, ‘Standard deviation’, ‘Relative probability [0, 1]’), only numbers and decimal points are allowed.
As the data set increases, so does the processing time.

More specific guidelines are available in each section.

The web application can be launched here.

Screenshot of the Dependent tab (view larger)

Reference

Bernabeu, P., & Lynott, D. (2020). Web application for the simulation of experimental data (Version 1.4). https://github.com/pablobernabeu/Experiment-simulation-app/

Code

This web application was developed in R (R Core Team, 2020). The code is available on Github, where contributions may be made. The initial code for this application was influenced by Section 5.7 (Simulating data for multi-factor designs) in Crump (2017). The R packages used include ‘dplyr’ (Wickham, François, Henry, & Müller, 2018), ‘DT’ (Xie, 2020), ‘flexdashboard’ (Iannone, Allaire, & Borges, 2020), ‘shiny’ (Chang, Cheng, Allaire, Xie, & McPherson, 2020) and ‘stringr’ (Wickham, 2019).

Options for development and local use of the app

Option A) Using local R/RStudio or RStudio Cloud project or Binder RStudio environment

[Step only necessary in R/RStudio] Install the packages in the versions used in the latest release of this application, by running:

install.packages('devtools')
library(devtools)
install_version('dplyr', '1.0.2', 'http://cran.us.r-project.org')
install_version('DT', '0.15', 'http://cran.us.r-project.org')
install_version('flexdashboard', '0.5.2', 'http://cran.us.r-project.org')
install_version('htmltools', '0.5.0', 'http://cran.us.r-project.org')
install_version('knitr', '1.30', 'http://cran.us.r-project.org')
install_version('ngram', '3.0.4', 'http://cran.us.r-project.org')
install_version('purrr', '0.3.4', 'http://cran.us.r-project.org')
install_version('shiny', '1.5.0', 'http://cran.us.r-project.org')
install_version('stringr', '1.4.0', 'http://cran.us.r-project.org')
install_version('tidyr', '1.1.2', 'http://cran.us.r-project.org')

Open the index.Rmd script.
Run the application by clicking on ▶️ Run document at the top left, or by running rmarkdown::run('index.Rmd') in the console.
Click on Open in Browser at the top left.

Option B) Using Dockerfile (see instructions)

Acknowledgements

Thank you to RStudio for the free hosting server used by this application, shinyapps.io.

References

Chang, W., Cheng, J., Allaire, J., Xie, Y., & McPherson, J. (2020). shiny: Web Application Framework for R. R package version 1.4.0. Available at http://CRAN.R-project.org/package=shiny.

Crump, M. J. C. (2017). Programming for Psychologists: Data Creation and Analysis (Version 1.1). https://crumplab.github.io/programmingforpsych/.

Iannone, R., Allaire, J. J., & Borges, B. (2020). Flexdashboard: R Markdown Format for Flexible Dashboards. http://rmarkdown.rstudio.com/flexdashboard.

R Core Team (2020). R: A language and environment for statistical computing. R Foundation for Statistical Computing, Vienna, Austria. URL https://www.R-project.org/.

Wickham, H. (2019). stringr: Simple, Consistent Wrappers for Common String Operations. R package version 1.4.0. https://CRAN.R-project.org/package=stringr.

Wickham, H., François, R., Henry, L., & Müller, K. (2018). dplyr: A Grammar of Data Manipulation. R package version 0.7.6. https://CRAN.R-project.org/package=dplyr.

Xie, Y. (2020). DT: A Wrapper of the JavaScript Library “DataTables”. R package version 0.14. Available at https://CRAN.R-project.org/package=DT.

Contact

To submit any questions or feedback, please post an issue, or email Pablo Bernabeu at pcbernabeu@gmail.com.

Data dashboard: Butterfly species richness in Los Angeles

Wed, 01 Jan 2020 00:00:00 +0000

How it works

Schematic overview; see the text for details.

graph TD A["Open data from Prudic et al. (2018)"] --> B["iNaturalist (citizen science)"] A --> C["BioScan (traditional traps)"] B --> D["Transform, merge, and wrangle in R"] C --> D D --> E["Dashboard: butterfly species richness in Los Angeles"]

This dashboard presents open data (iNaturalist and BioScan) from Prudic et al. (2018). In their study, Prudic et al. compared citizen science with traditional methods in the measurement of butterfly populations.

I developed this dashboard after reproducing the analyses of the original study in a Reprohack session.

My coding tasks included transforming the data to a long format,

# There are pseudovariables, that is, observations entered as variables.
# Since most R processes need the tidy format, convert below
# (see https://r4ds.had.co.nz/tidy-data.html). The specific numbers
# found through traps and crowdsourcing methods are preserved.
BioScan = BioScan %>% pivot_longer(
cols = Anthocharis_sara:Vanessa_cardui, names_to = "Species",
values_to = "Number", values_drop_na = TRUE
)
# Compare
#str(BioScan)
#str(dat)
# 928 rows now; the result of 29 pseudo-variables being transposed
# into rows, interacting with 32 previous rows, i.e., 29 * 32 = 928.

merging three data sets,

# The iNaturalist data set presents a challenge that differs from the
# pseudovariables found above. The number of animals of each species
# must be computed from repeated entries, per site.
iNaturalist = merge(iNaturalist,
iNaturalist %>%
count(species, site, name = 'Number'))

and, as ever, wrangling with the format of the dashboard pages to preserve the format of a table.

Species details {style="background-color: #FCFCFC;"}
=======================================================================
Column {style="data-width:100%; position:static; height:1000px;"}
-----------------------------------------------------------------------

Reference

Prudic, K. L., Oliver, J. C., Brown, B. V., & Long, E. C. (2018). Comparisons of citizen science data-gathering approaches to evaluate urban butterfly diversity. Insects, 9(4), 186. https://doi.org/10.3390/insects9040186

Dutch modality exclusivity norms

Mon, 01 Jan 2018 00:00:00 +0000

How it works

graph TD A["Dutch modality exclusivity norms data"] --> B["Flexdashboard front-end (R Markdown)"] B --> C["Shiny back-end (reactive selection and download)"] C --> D["Info tab: HTML and CSS text plus rmarkdown output"] C --> E["Table tab: reactable (colours, bar charts)"] C --> F["Plot tab: plotly (PCA scatter, tooltips)"] B --> G["Static Flexdashboard-only version on RPubs (Shiny removed)"]

Schematic overview; see the text for details.

This web application presents linguistic data over several tabs. The code combines the great front-end of Flexdashboard—based on R Markdown and yielding an unmatched user interface—, with the great back-end of Shiny—allowing users to download sections of data they select, in various formats.

A nice find was the 'reactable' package, which implements Javascript under the hood to allow the use of colours, bar charts, etc.

Auditory = colDef(header = with_tooltip('Auditory Rating',
'Mean rating of each word on the auditory modality across participants.'),
cell = function(value) {
width <- paste0(value / max(table_data$Auditory) * 100, "%")
value = sprintf("%.2f", round(value,2)) # Round to two digits, keeping trailing zeros
bar_chart(value, width = width, fill = '#ff3030')
},
align = 'left'),

One of the hardest nuts to crack was allowing the full functionality of tables—i.e., scaling to screen, frozen header, and vertical and horizontal scrolling—whilst having tweaked the vertical/horizontal orientation of the dashboard sections. Initial clashes were resolved by adjusting the section's CSS styles

Table {#table style="background-color:#FCFCFC;"}
=======================================================================
Inputs {.sidebar style='position:fixed; padding-top: 65px; padding-bottom:30px;'}
-----------------------------------------------------------------------

and by also adjusting the reactable settings.

renderReactable({
reactable(selected_words(),
defaultSorted = list(cat = 'desc', word = 'asc'),
defaultColDef = colDef(footerStyle = list(fontWeight = "bold")),
height = 840, striped = TRUE, pagination = FALSE, highlight = TRUE,

A nice feature, especially suited to Flexdashboard, was the use of different formats across tabs. Whereas the Info tab presents long text using HTML and CSS styling, along with rmarkdown code output, the other tabs rely more strongly on Javascript features, enabled by R packages such as ‘shiny’ and sweetalert (e.g., allowing modal dialogs—pop-ups), reactable and plotly (e.g., allowing information opened by hovering—tooltips).

```{r}
# reactive for the word bar
highlighted_properties = reactive(input$highlighted_properties)
renderPlotly({
ggplotly(
ggplot( selected_props(), aes(RC1, RC2, label = as.character(word), color = main,
# Html tags below used for format. Decimals rounded to two.
text = paste0(' ', '<span style="padding-top:3px; padding-bottom:3px; font-size:2.2em; color:#EEEEEE">', capitalize(word), '</span> ', '<br>',
'</b><br><span style="color:#EEEEEE"> Dominant modality: </span><b style="color:#EEEEEE">', main, ' ',
' ', '</b><br><span style="color:#EEEEEE"> Modality exclusivity: </span><b style="color:#EEEEEE">', sprintf("%.2f", round(Exclusivity, 2)), '% ',
'</b><br><span style="color:#EEEEEE"> Perceptual strength: </span><b style="color:#EEEEEE">', sprintf("%.2f", round(Perceptualstrength, 2)),
'</b><br><span style="color:#EEEEEE"> Auditory rating: </span><b style="color:#EEEEEE">', sprintf("%.2f", round(Auditory, 2)), ' ',
'</b><br><span style="color:#EEEEEE"> Haptic rating: </span><b style="color:#EEEEEE">', sprintf("%.2f", round(Haptic, 2)), ' ',
'</b><br><span style="color:#EEEEEE"> Visual rating: </span><b style="color:#EEEEEE">', sprintf("%.2f", round(Visual, 2)), ' ',
'</b><br><span style="color:#EEEEEE"> Concreteness (Brysbaert et al., 2014): </span><b style="color:#EEEEEE">',
sprintf("%.2f", round(concrete_Brysbaertetal2014, 2)), ' ',
'</b><br><span style="color:#EEEEEE"> Number of letters: </span><b style="color:#EEEEEE">', letters, ' ',
'</b><br><span style="color:#EEEEEE"> Number of phonemes (DutchPOND): </span><b style="color:#EEEEEE">',
round(phonemes_DUTCHPOND, 2), ' ',
'</b><br><span style="color:#EEEEEE"> Contextual diversity (lg10CD SUBTLEX-NL): </span><b style="color:#EEEEEE">',
sprintf("%.2f", round(freq_lg10CD_SUBTLEXNL, 2)), ' ',
'</b><br><span style="color:#EEEEEE"> Word frequency (lg10WF SUBTLEX-NL): </span><b style="color:#EEEEEE">',
sprintf("%.2f", round(freq_lg10WF_SUBTLEXNL, 2)), ' ',
'</b><br><span style="color:#EEEEEE"> Lemma frequency (CELEX): </span><b style="color:#EEEEEE">',
sprintf("%.2f", round(freq_CELEX_lem, 2)), ' ',
'</b><br><span style="color:#EEEEEE"> Phonological neighbourhood size (DutchPOND): </span><b style="color:#EEEEEE">',
round(phon_neighbours_DUTCHPOND, 2), ' ',
'</b><br><span style="color:#EEEEEE"> Orthographic neighbourhood size (DutchPOND): </span><b style="color:#EEEEEE">',
round(orth_neighbours_DUTCHPOND, 2), ' ',
'</b><br><span style="color:#EEEEEE"> Age of acquisition (Brysbaert et al., 2014): </span><b style="color:#EEEEEE">',
sprintf("%.2f", round(AoA_Brysbaertetal2014, 2)), ' ', '<br> '
) ) ) +
geom_text(size = ifelse(selected_props()$word %in% highlighted_properties(), 7,
ifelse(is.null(highlighted_properties()), 3, 2.8)),
fontface = ifelse(selected_props()$word %in% highlighted_properties(), 'bold', 'plain')) +
geom_point(alpha = 0) + # This geom_point helps to colour the tooltip according to the dominant modality
scale_colour_manual(values = colours, drop = FALSE) + theme_bw() + ggtitle('Property words') +
labs(x = 'Varimax-rotated Principal Component 1', y = 'Varimax-rotated Principal Component 2') +
guides(color = guide_legend(title = 'Main<br>modality')) +
theme( plot.background = element_blank(), panel.grid.major = element_blank(),
panel.grid.minor = element_blank(), panel.border = element_blank(),
axis.line = element_line(color = 'black'), plot.title = element_text(size = 14, hjust = .5),
axis.title.x = element_text(colour = 'black', size = 12, margin = margin(15,15,0,15)),
axis.title.y = element_text(colour = 'black', size = 12, margin = margin(0,15,15,5)),
axis.text.x = element_text(size = 8), axis.text.y = element_text(size = 8),
legend.background = element_rect(size = 2), legend.position = 'none',
legend.title = element_blank(),
legend.text = element_text(colour = colours, size = 13) ),
tooltip = 'text'
)
})
# For download, save plot without the interactive 'plotly' part
properties_png = reactive({ ggplot(selected_props(), aes(RC1, RC2, color = main, label = as.character(word))) +
geom_text(show.legend = FALSE, size = ifelse(selected_props()$word %in% highlighted_properties(), 7,
ifelse(is.null(highlighted_properties()), 3, 2.8)),
fontface = ifelse(selected_props()$word %in% highlighted_properties(), 'bold', 'plain')) +
geom_point(alpha = 0) + scale_colour_manual(values = colours, drop = FALSE) + theme_bw() +
guides(color = guide_legend(title = 'Main<br>modality', override.aes = list(size = 7, alpha = 1))) +
ggtitle( paste0('Properties', ' (showing ', nrow(selected_props()), ' out of ', nrow(props), ')') ) +
labs(x = 'Varimax-rotated Principal Component 1', y = 'Varimax-rotated Principal Component 2') +
theme( plot.background = element_blank(), panel.grid.major = element_blank(),
panel.grid.minor = element_blank(), panel.border = element_blank(),
axis.line = element_line(color = 'black'), plot.title = element_text(size = 17, hjust = .5, margin = margin(3,3,7,3)),
axis.title.x = element_text(colour = 'black', size = 12, margin = margin(10,10,2,10)),
axis.title.y = element_text(colour = 'black', size = 12, margin = margin(10,10,10,5)),
axis.text.x = element_text(size = 8), axis.text.y = element_text(size = 8),
legend.background = element_rect(size = 2), legend.position = 'right',
legend.title = element_blank(), legend.text = element_text(size = 15))
})
```

The only instance in which I drew on JavaScript code outside R packages was to enable tooltips beyond the packages’ limits—for instance, in the sidebar. This JavaScript feature is created at the top of the script, in the head area.

<!-- Javascript function to enable a hovering tooltip -->
<script>
$(document).ready(function(){
$('[data-toggle="tooltip1"]').tooltip();
});
</script>

In the sidebar, I added a reactive mean for each variable, complementing the range selector.

reactive(cat(paste0('Mean = ',
sprintf("%.2f", round(mean(selected_words()$Exclusivity),2)))))

Static version published on RPubs

A reduced, static version was also created to increase the availability of the content. Removing some reactivity features allows the dashboard to be published as a standard website (i.e., on a personal website, on RPubs, etc.), without the need for a back-end Shiny server. Note that this type of website is dubbed 'static', but it can retain multiple interactive features thanks to Javascript-based tools under the hood, allowed by R packages such as leaflet for maps, DT for tables, plotly for plots, etc.

To create the Flexdashboard-only version departing from the Flexdashboard-Shiny version, I deleted runtime: shiny from the YAML header, and disabled Shiny reactive inputs and objects, as below.

```{r}
# Number of words selected on sidebar
# reactive(cat(paste0('Words selected below: ', nrow(selected_props()))))
```

Reference

Bernabeu, P. (2018). Dutch modality exclusivity norms for 336 properties and 411 concepts [Web application]. Retrieved from https://pablobernabeu.shinyapps.io/Dutch-Modality-Exclusivity-Norms

Modality switch effects emerge early and increase throughout conceptual processing: Evidence from ERPs

Sat, 01 Jul 2017 00:00:00 +0000

Study at a glance

graph TD A["46 participants verify property-concept word relations"] --> B["Modality of consecutive trials manipulated"] B --> C["Auditory-to-visual switch"] B --> D["Haptic-to-visual switch"] B --> E["Visual-to-visual no-switch"] C --> F["ERPs time-locked to first word onset"] D --> F E --> F F --> G["Switch effect: more negative amplitudes for switches"] G --> H["Significant in four windows from 160 to 750 ms, stronger posteriorly and after 350 ms"]

Schematic overview; see the text for details.

Reference

Bernabeu, P., Willems, R. M., & Louwerse, M. M. (2017). Modality switch effects emerge early and increase throughout conceptual processing: Evidence from ERPs. In G. Gunzelmann, A. Howes, T. Tenbrink, & E. J. Davelaar (Eds.), Proceedings of the 39th Annual Conference of the Cognitive Science Society (pp. 1629-1634). Austin, TX: Cognitive Science Society. https://doi.org/10.31234/osf.io/a5pcz

Created using NotebookLM, with all the benefits and blind spots of human editing.

Conference poster with additional analyses

Your browser does not support embedded PDFs. Download the PDF instead.

Modality switch effects emerge early and increase throughout conceptual processing

Sun, 01 Jan 2017 00:00:00 +0000

How it works

Schematic overview; see the text for details.

graph TD A["EEG-ERP data from word comprehension experiment"] --> B["ERP plots spanning 800 ms of word processing"] B --> C["Groups of participants"] C --> D["Individual participants"] D --> E["Brain areas"] E --> F["Electrodes"] B --> G["Download HD plots, view 95% confidence intervals"]

Content

The data are from a psychology experiment on the comprehension of words, in which electroencephalographic (EEG) responses were measured. The data are presented in plots spanning 800 milliseconds (the duration of word processing). The aim of this Shiny app is to facilitate the exploration of the data by researchers and the public. Users can delve into the different sections of the data. In a hierarchical order, these sections are groups of participants, individual participants, brain areas, and electrodes.

Shiny apps in science

By creating this app, I tried to reach beyond the scope of current open science, which is often confined to files shared on data repositories. I believe that Shiny apps will become general practice in science within a few years ( see blog post or slides for more information).

Technical details

I used tabs on the upper area of the application page to avoid cramming the side bar with widgets. I adjusted the appearance of these tabs, and by means of 'reactivity' conditions, modified the inputs in the side bar depending on the active tab.

mainPanel(
tags$style(HTML('
.tabbable > .nav > li > a {background-color:white; color:#3E454E}
.tabbable > .nav > li > a:hover {background-color:#002555; color:white}
.tabbable > .nav > li[class=active] > a {background-color:#ECF4FF; color:black}
.tabbable > .nav > li[class=active] > a:hover {background-color:#E7F1FF; color:black}
')),
tabsetPanel(id='tabvals',
tabPanel(value=1, h4(strong('Group & Electrode')), br(), plotOutput('plot_GroupAndElectrode'),
h5(a(strong('See plots with 95% Confidence Intervals'), href='https://osf.io/2tpxn/',
target='_blank'), style='text-decoration: underline;'),
downloadButton('downloadPlot.1', 'Download HD plot'), br(), br(),
# EEG montage
img(src='https://preview.ibb.co/n7qiYR/EEG_montage.png', height=500, width=1000)),
tabPanel(value=2, h4(strong('Participant & Area')), br(), plotOutput('plot_ParticipantAndLocation'),
h5(a(strong('See plots with 95% Confidence Intervals'), href='https://osf.io/86ch9/',
target='_blank'), style='text-decoration: underline;'),
downloadButton('downloadPlot.2', 'Download HD plot'), br(), br(),
# EEG montage
img(src='https://preview.ibb.co/n7qiYR/EEG_montage.png', height=500, width=1000)),
tabPanel(value=3, h4(strong('Participant & Electrode')), br(), plotOutput('plot_ParticipantAndElectrode'),
br(), downloadButton('downloadPlot.3', 'Download HD plot'), br(), br(),
# EEG montage
img(src='https://preview.ibb.co/n7qiYR/EEG_montage.png', height=500, width=1000)),
tabPanel(value=4, h4(strong('OLD Group & Electrode')), br(), plotOutput('plot_OLDGroupAndElectrode'),
h5(a(strong('See plots with 95% Confidence Intervals'), href='https://osf.io/dvs2z/',
target='_blank'), style='text-decoration: underline;'),
downloadButton('downloadPlot.4', 'Download HD plot'), br(), br(),
# EEG montage
img(src='https://preview.ibb.co/n7qiYR/EEG_montage.png', height=500, width=1000))
),

The data set was fairly large, considering the fact that it's hosted with the free plan. In order to lighten the processing, I split the data into various files, reducing the total size. Furthermore, I outsourced a particularly heavy set of plots (those with Confidence Intervals) to PDF files, to which I linked in the app.

h5(a(strong('See plots with 95% Confidence Intervals'), href='https://osf.io/dvs2z/',
target='_blank'), style='text-decoration: underline;'),

I also used web links to the published paper and raw data, as well as to the server and ui scripts. These files, along with the data, are publicly available in this repository; they may be accessed within the "Files" section, by opening the folders "ERPs" -> "Analyses of ERPs averaged across trials" -> "Shiny app".

Another feature I added was the download button.

# From server.R script
spec_title = paste0('ERP waveforms for ', input$var.Group, ' Group, Electrode ', input$var.Electrodes.1, ' (negative values upward; time windows displayed)')
plot_GroupAndElectrode = ggplot(df2, aes(x=time, y=-microvolts, color=condition)) +
geom_rect(xmin=160, xmax=216, ymin=7.5, ymax=-8, color = 'grey75', fill='black', alpha=0, linetype='longdash') +
geom_rect(xmin=270, xmax=370, ymin=7.5, ymax=-8, color = 'grey75', fill='black', alpha=0, linetype='longdash') +
geom_rect(xmin=350, xmax=550, ymin=8, ymax=-7.5, color = 'grey75', fill='black', alpha=0, linetype='longdash') +
geom_rect(xmin=500, xmax=750, ymin=7.5, ymax=-8, color = 'grey75', fill='black', alpha=0, linetype='longdash') +
geom_line(size=1, alpha = 1) + scale_linetype_manual(values=colours) +
scale_y_continuous(limits=c(-8.38, 8.3), breaks=seq(-8,8,by=1), expand = c(0,0.1)) +
scale_x_continuous(limits=c(-208,808),breaks=seq(-200,800,by=100), expand = c(0.005,0), labels= c('-200','-100 ms','0','100 ms','200','300 ms','400','500 ms','600','700 ms','800')) +
ggtitle(spec_title) + theme_bw() + geom_vline(xintercept=0) +
annotate(geom='segment', y=seq(-8,8,1), yend=seq(-8,8,1), x=-4, xend=8, color='black') +
annotate(geom='segment', y=-8.2, yend=-8.38, x=seq(-200,800,100), xend=seq(-200,800,100), color='black') +
geom_segment(x = -200, y = 0, xend = 800, yend = 0, size=0.5, color='black') +
theme(legend.position = c(0.100, 0.150), legend.background = element_rect(fill='#EEEEEE', size=0),
axis.title=element_blank(), legend.key.width = unit(1.2,'cm'), legend.text=element_text(size=17),
legend.title = element_text(size=17, face='bold'), plot.title= element_text(size=20, hjust = 0.5, vjust=2),
axis.text.y = element_blank(), axis.text.x = element_text(size = 14, vjust= 2.12, face='bold', color = 'grey32', family='sans'),
axis.ticks=element_blank(), panel.border = element_blank(), panel.grid.major = element_blank(),
panel.grid.minor = element_blank(), plot.margin = unit(c(0.1,0.1,0,0), 'cm')) +
annotate('segment', x=160, xend=216, y=-8, yend=-8, colour = 'grey75', size = 1.5) +
annotate('segment', x=270, xend=370, y=-8, yend=-8, colour = 'grey75', size = 1.5) +
annotate('segment', x=350, xend=550, y=-7.5, yend=-7.5, colour = 'grey75', size = 1.5) +
annotate('segment', x=500, xend=750, y=-8, yend=-8, colour = 'grey75', size = 1.5) +
scale_fill_manual(name = 'Context / Target trial', values=colours) +
scale_color_manual(name = 'Context / Target trial', values=colours) +
guides(linetype=guide_legend(override.aes = list(size=1.2))) +
guides(color=guide_legend(override.aes = list(size=2.5))) +
# Print y axis labels within plot area:
annotate('text', label = expression(bold('\u2013' * '3 ' * '\u03bc' * 'V')), x = -29, y = 3, size = 4.5, color = 'grey32', family='sans') +
annotate('text', label = expression(bold('+3 ' * '\u03bc' * 'V')), x = -29, y = -3, size = 4.5, color = 'grey32', family='sans') +
annotate('text', label = expression(bold('\u2013' * '6 ' * '\u03bc' * 'V')), x = -29, y = 6, size = 4.5, color = 'grey32', family='sans')
print(plot_GroupAndElectrode)
output$downloadPlot.1 <- downloadHandler(
filename <- function(file){
paste0(input$var.Group, ' group, electrode ', input$var.Electrodes.1, ', ', Sys.Date(), '.png')},
content <- function(file){
png(file, units='in', width=13, height=5, res=900)
print(plot_GroupAndElectrode)
dev.off()},
contentType = 'image/png')
} )

# From ui.R script
downloadButton('downloadPlot.1', 'Download HD plot')

Rising to the challenge

My experience with R Shiny has been so good I've been sharing it. Yet, on my first crawling days, I spent an eternity stuck with this elephant in my room: "μ". This μ letter (micro-souvenir from hell, as I later knew it), was part of the labels of my plots. All I knew was that I could not deploy the app online, even while I could perfectly launch it locally in my laptop. So, I wondered what use it was to deploy locally if I couldn't publish the app?! Eventually, I read about UTF-8 encoding in one forum. Bless them forums. All I had to do was use "Âμ" instead of the single "μ". A better option I found later was: expression("\u03bc").

Beyond encoding issues, I had a tough time embedding images. You know, the 'www' folder... To be honest, I still haven't handled the 'www' way--but where there's a will, there's a way. I managed to include my images by uploading them to a website and then entering their URL in "img(src", avoiding the use of folder paths.

img(src="https://preview.ibb.co/n7qiYR/EEG_montage.png 1", height=500, width=1000)

Long after I had built the app, I added another image--the favicon (the little icon on the browser tab).

tags$head(tags$link(rel="shortcut icon", href="https://image.ibb.co/fXUwzb/favic.png")), # web favicon

Reference

Bernabeu, P., Willems, R. M., & Louwerse, M. M. (2017). Modality switch effects emerge early and increase throughout conceptual processing: Evidence from ERPs [Web application]. Retrieved from https://pablobernabeu.shinyapps.io/ERP-waveform-visualization_CMS-experiment

Language evolution: Current status and future directions

Thu, 01 Jan 2015 00:00:00 +0000

Study at a glance

graph TD A["Adapted prior experiment: participants act out events"] --> B["Perceptual features of events"] A --> C["Added variable: communication mode"] C --> D["Body-based communication (gestures)"] C --> E["Disembodied communication (symbol matching)"] B --> F["Resulting grammatical orders / preferences"] D --> F E --> F F --> G["Greater effect of embodiment on grammatical preferences"]

Schematic overview; see the text for details.

Reference

Bernabeu, P., & Vogt, P. (2015). Language evolution: Current status and future directions. Tenth Language at the University of Essex (LangUE) Postgraduate Conference. https://researchgate.net/publication/280858062/

1 | Pablo Bernabeu

WebVTT caption transcription app

How it works

Web application

Programming details

Web application for the simulation of experimental data

How it works

Guidelines

The web application can be launched here.

Reference

Code

Options for development and local use of the app

Option A) Using local R/RStudio or RStudio Cloud project or Binder RStudio environment

Option B) Using Dockerfile (see instructions)

Acknowledgements

References

Contact

Data dashboard: Butterfly species richness in Los Angeles

Dashboard

How it works

Reference

Dutch modality exclusivity norms

Complete web application Flexdashboard-Shiny

Reduced dashboard Flexdashboard

How it works

Static version published on RPubs

Reference

Modality switch effects emerge early and increase throughout conceptual processing: Evidence from ERPs

Study at a glance

Reference

Conference poster with additional analyses

Modality switch effects emerge early and increase throughout conceptual processing

How it works

Web application

Reference

Language evolution: Current status and future directions

Study at a glance

Reference

1 | Pablo Bernabeu

WebVTT caption transcription app

How it works

Web application

Programming details

Web application for the simulation of experimental data

How it works

Guidelines

The web application can be launched here.

Reference

Code

Options for development and local use of the app

Option A) Using local R/RStudio or RStudio Cloud project or Binder RStudio environment

Option B) Using Dockerfile (see instructions)

Acknowledgements

References

Contact

Data dashboard: Butterfly species richness in Los Angeles

Dashboard

How it works

Reference

Dutch modality exclusivity norms

Complete web application Flexdashboard-Shiny

Reduced dashboard Flexdashboard

How it works

Static version published on RPubs

Reference

Modality switch effects emerge early and increase throughout conceptual processing: Evidence from ERPs

Study at a glance

Reference

Related podcasts

Conference poster with additional analyses

Modality switch effects emerge early and increase throughout conceptual processing

How it works

Web application

Reference

Language evolution: Current status and future directions

Study at a glance

Reference