In agricolamz/phonfieldwork: Linguistic Phonetic Fieldwork Tools

df <- read.csv(params$data, stringsAsFactors = FALSE)

df$viewer <- 
  paste(create_image_look_up(img_src = df$pictures,
                                            img_caption = params$captions),
        create_sound_play(snd_src = df$audio))

df <- df[, -which(colnames(df) %in% c("audio", "pictures"))]

{.tabset .tabset-fade .tabset-pills}

data

DT::datatable(data = df, 
              filter = 'top', 
              rownames = FALSE, 
              options = list(pageLength = 50, dom = 'tip'), 
              escape = FALSE)