Nothing
# Convenience functions ---------------------------------------------------
#' Change class of UI element
#'
#' Used to show or hide element.
change_ui_class <- function(class_name, property, value) {
shinyjs::runjs(sprintf(
'$("%s").css({"%s":"%s"})',
class_name,
property,
value
))
}
#' Show UI element
show_ui <- function(element_name_as_defined_in_ui_elements) {
change_ui_class(ui_elements[[element_name_as_defined_in_ui_elements]],
property = "display",
value = "inline")
}
#' Hide UI element
hide_ui <- function(element_name_as_defined_in_ui_elements) {
change_ui_class(ui_elements[[element_name_as_defined_in_ui_elements]],
property = "display",
value = "none")
}
#' Toggle ui element clickability function pair
make_clickable_ui <- function(class_name) {
change_ui_class(class_name, "pointer-events", "auto")
}
make_unclickable_ui <- function(class_name) {
change_ui_class(class_name, "pointer-events", "none")
}
# Document title for non-date-based corpora: UI ---------------------------
#' For box title and hover info
#'
doc_title_non_date_based_corpora <- function(min_rad) {
title <- ""
if (ONLY_ONE_GROUP_IN_NON_DATE_BASED_CORPUS == FALSE) {
title <- paste0(title,
session_variables[[plot_mode$mode]]$Year_[min_rad],
" \u2013 ")
}
title <- paste0(title,
session_variables[[plot_mode$mode]]$cx_Seq[min_rad])
return(title)
}
# Avoiding flashing sidebar elements on load (w/css) ----------------------
shiny::observeEvent(input$adjust_plotsize, {
change_ui_class(".plotsize_field", property = "display", "inline")
})
shiny::observeEvent(input$subset_corpus, {
change_ui_class(".subset_field", property = "display", "inline")
})
shiny::observeEvent(input$more_terms_button, {
change_ui_class(".more_terms_field", property = "display", "inline")
})
shiny::observeEvent(input$antall_linjer, {
change_ui_class(".additional_search_terms", property = "display", "inline")
})
# Corpus info tab: edit plot legend keys UI -------------------------------
observe({
shinyjs::hide("edit_info_plot_legend_keys")
})
# Display plot mode in corpus map tab title -------------------------------
corpus_map_title <- function(plot_mode) {
if (plot_mode == "data_365") {
"Calendar view"
} else if (plot_mode == "data_dok") {
"Document wall view"
}
}
# Add tabs ----------------------------------------------------------------
add_tab_doc_list_tekst <- function(dok_or_365) {
shiny::appendTab(
'dokumentboks',
tab =
shiny::tabPanel(
title = shiny::textOutput('document_list_title'),
value = "document_list_title",
htmlOutput(
outputId = "doc_list_tekst",
container = tags$div,
class = paste0("boxed_doc_data_", dok_or_365)
)
),
select = TRUE,
menuName = NULL,
session = shiny::getDefaultReactiveDomain()
)
}
add_tab_doc_tekst <- function(dok_or_365) {
shiny::appendTab(
'dokumentboks',
tab =
shiny::tabPanel(
title = textOutput('document_box_title'),
value = "document_box_title",
shiny::plotOutput("dok_vis",
click = "dok_vis_click",
height = "auto"),
shiny::htmlOutput(
outputId = "doc_tekst",
container = tags$div,
class = paste0("boxed_doc_data_", dok_or_365)
)
),
select = TRUE,
menuName = NULL,
session = shiny::getDefaultReactiveDomain()
)
}
add_tab_doc_info <- function(dok_or_365) {
shiny::appendTab(
'dokumentboks',
tab =
shiny::tabPanel(
title = shiny::textOutput('document_box_title_info'),
value = "document_box_title_info",
shiny::htmlOutput(
outputId = "doc_info",
container = shiny::tags$div,
class = paste0("boxed_doc_data_", dok_or_365)
)
),
select = FALSE,
menuName = NULL,
session = shiny::getDefaultReactiveDomain()
)
}
# Remove tabs -------------------------------------------------------------
remove_tab_doc_list_tekst <- function() {
shiny::removeTab('dokumentboks',
target = "document_list_title",
session = shiny::getDefaultReactiveDomain())
}
remove_tab_doc_tekst <- function() {
shiny::removeTab('dokumentboks',
target = "document_box_title",
session = shiny::getDefaultReactiveDomain())
}
remove_tab_doc_info <- function() {
shiny::removeTab('dokumentboks',
target = "document_box_title_info",
session = shiny::getDefaultReactiveDomain())
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.