%4.2f%% of pages
%4.2f%% of occurrences", + ll_data$name_long, + ll_data$pages_perc, + ll_data$occurrences_perc) %>% lapply(htmltools::HTML)}, + category = {labels <- sprintf("%s
%4.2f%% of pages", + ll_data$name_long, + ll_data$pages_perc_category) %>% lapply(htmltools::HTML)}, + no = {labels <- sprintf("%s
%g pages
%g occurrences
%g titles", # period deleted
from %g till %g + ll_data$name_long, + ll_data$map_value, + ll_data$occurrences, + ll_data$n_titles # period deleted ,ll_data$begin_year, ll_data$end_year + ) %>% lapply(htmltools::HTML)}) + + ll_data$labels <- labels + + r <- list(data = ll_data, + normalized = normalized, + bins = bins, + labels = labels, title = title, legends = legends, + map_colors = map_colors) + }) + + country_map_data <- reactive({ + # observe changes in country map data and adjust the map accordingly + # Zooming and/or scrolling aren't considered as changes in the map data + # + country_map <- map_data() + if (is.null(country_map)) { + return(NULL) + } + + country_map$data %<>% filter(location_type == 'country') + if (nrow(country_map$data) == 0) { + return(NULL) + } + + # + # #Locations and its attributes are linked to geometries (MULTIPOLYGONS) describing the + # # the territory of a country on the worldmap. + # # First transform (lon,lat) to POINT geometries and then do a spatial join with the territories (MULTI Polygons) + # # + # + # + country_map$data %<>% st_as_sf(coords = c("lon", "lat"), crs = 4326, agr = "constant") + # + country_map$data <- st_join(world[c("iso_a2")], + country_map$data[c("pages", "name_long", "n_titles", + # "begin_year", "end_year", + "pages_perc", "n_titles_perc", "fill_value", + "map_value", "labels")], + left = FALSE) + return(country_map) + }) + + + observe({ + new_map <- country_map_data() + if (restore_map() == "COUNTRY_MAP") { + restore_map("HIST_MAP") + } + + if (is.null(new_map)) { + leafletProxy("data_map") %>% + clearGroup(group = 'countries') %>% + removeControl(layerId = 'legend1') + } else { + leafletProxy("data_map", data = new_map$data) %>% + clearGroup(group = 'countries') %>% + addPolygons(fillColor = ~new_map$map_colors[fill_value], + #layerId = polyIds, + weight = 1, + opacity = 1, + color = "white", + fillOpacity = 1, + group = 'countries', + options = leafletOptions(pane = 'countries'), + highlightOptions = highlightOptions(weight = 1, + color = 'black', + fillOpacity = 0.7, + bringToFront = TRUE), + label = ~labels, + labelOptions = labelOptions(style = list("font-weight" = "normal"), + textsize = "10px", + direction = "auto")) %>% + addLegend( + colors = new_map$map_colors, + layerId = "legend1", + group = 'countries', + values = ~fill_value, + labels = new_map$legends, + opacity = 0.7, + title = new_map$title, + position = "bottomleft")} + }) + + observe({ + # + # observe if the user wants to see the cities on the map or not + # + if (is.null(input$show_cities) || isFALSE(input$show_cities)) { + leafletProxy("data_map") %>% + hideGroup(group = 'cities') + } else { + leafletProxy("data_map") %>% + showGroup(group = 'cities') + } + }) + + observe({ + # + # observe if the user wants to see the regions on the map or not + # + if (is.null(input$show_regions) || isFALSE(input$show_regions)) { + leafletProxy("data_map") %>% + hideGroup(group = 'regions') + } else { + leafletProxy("data_map") %>% + showGroup(group = 'regions') + } + }) + # + # Observe if the user wants to overlay base map with a historical map + observe({ + if (restore_map() == "HIST_MAP") { + restore_map("REGION_MAP") + } + if (input$hist_map == 'none') { + leafletProxy("data_map") %>% clearGroup(group = "hist_countries") + } else { + hist_map <- eval(parse(text = input$hist_map)) + leafletProxy("data_map", data = hist_map) %>% + clearGroup(group = 'hist_countries') %>% + addPolygons(fillColor = "white", + weight = 2, + opacity = 0.5, + color = "black", + dashArray = c(3,6), + fillOpacity = 0, + group = 'hist_countries', + options = leafletOptions(pane = 'hist_countries'), + label = ~ABBREVNAME)} + }) + + location_map_data <- reactive({ + # Observe if map data for cities has changed and adjust cities on map accordingly. + # + new_map <- map_data() + if (is.null(new_map)) { + return(NULL) + } + new_map$data %<>% filter(location_type %in% c('city', 'region')) + if (nrow(new_map$data) == 0) { + return(NULL) + } + # + # Create sf table (geom = POINT) for ggplot and + # add XandY coordinates for leaflet + # + new_map$data %<>% st_as_sf(coords = c("lon", "lat"), crs = 4326, agr = "constant") + new_map$data %<>% cbind(st_coordinates(new_map$data)) + return(new_map) + }) + + observe({ + new_map <- location_map_data() + + if(restore_map() == "REGION_MAP") { + restore_map("CITY_MAP") + } + + if (is.null(new_map)) { + leafletProxy("data_map") %>% + clearGroup(group = 'regions') + } else { + new_map$data %<>% as_tibble() %>% filter(location_type == 'region') + if(nrow(new_map$data) == 0) { + leafletProxy("data_map", data = new_map$data) %>% + clearGroup(group = 'regions') + } else { + leafletProxy("data_map", data = new_map$data) %>% + clearGroup(group = 'regions') %>% + addRectangles(lng1 = ~(X - fill_value/10), + lat1 = ~(Y - fill_value/15), + lng2 = ~(X + fill_value/10), + lat2 = ~(Y + fill_value/15), + #radius = ~5000*fill_value, # keeps cities with few citations visible + color = '#808080', + fillColor = ~new_map$map_colors[fill_value], + fillOpacity = 1, + weight = 2, + opacity = 1, + group = 'regions', # group value will be used for clearing and hiding + options = leafletOptions(pane = 'regions'), # panes are used to keep cities on top of countries + label = ~labels, + highlightOptions = highlightOptions(weight = 1, + color = 'black', + fillOpacity = 0.8, + bringToFront = TRUE)) + } + } + }) + + + city_map_data <- reactive({ + # Observe if map data for cities has changed and adjust cities on map accordingly. + # + new_map <- map_data() + if (is.null(new_map)) { + return(NULL) + } + new_map$data %<>% filter(location_type == 'city') + if (nrow(new_map$data) == 0) { + return(NULL) + } + + # + # Create sf table (geom = POINT) for ggplot and + # add XandY coordinates for leaflet + # + new_map$data %<>% st_as_sf(coords = c("lon", "lat"), crs = 4326, agr = "constant") # sf table + new_map$data %<>% cbind(st_coordinates(new_map$data)) # adds X and Y (lon,lat) columns + return(new_map) + }) + + + observe({ + new_map <- location_map_data() + new_map$data %<>% as_tibble() + + if(restore_map() == "CITY_MAP") { + restore_map("RESTORE_END") + } + + if (is.null(new_map)) { + leafletProxy("data_map") %>% + clearGroup(group = 'cities') + } else { + new_map$data %<>% as_tibble() %>% filter(location_type == 'city') + if(nrow(new_map$data) == 0) { + leafletProxy("data_map", data = new_map$data) %>% + clearGroup(group = 'cities') + } else { + leafletProxy("data_map", data = new_map$data) %>% + clearGroup(group = 'cities') %>% + addCircles(lng = ~X, + lat = ~Y, + radius = ~5000*fill_value, # keeps cities with few citations visible + color = '#808080', + fillColor = ~new_map$map_colors[fill_value], + fillOpacity = 1, + weight = 2, + opacity = 1, + group = 'cities', # group value will be used for clearing and hiding + options = leafletOptions(pane = 'cities'), # panes are used to keep cities on top of countries + label = ~labels, + highlightOptions = highlightOptions(weight = 1, + color = 'black', + fillOpacity = 0.8, + bringToFront = TRUE)) + } + } + }) + +# Downloadable ggplot map -------- + + # A ggplot copy of the leaflet map as is displayed ast the moment. + # A mapshot of Leaflet map doen't work because of leafletProxy + # + download_map <- reactive({ + + # Observe change in bounding box (bb) of map on the screen + # + bb <- map_bounds() + + # Crop ggplot's version of the world to the boundings of the map on the display + # + plot_world <- sf::st_crop(x = world, + xmin = bb$west, xmax = bb$east, + ymin = bb$south, ymax = bb$north) + plot_world <- sf::st_transform(plot_world, "+init=epsg:3857") # 3857 is leaflet's default crs + + p <- ggplot2::ggplot() + + ggplot2::geom_sf(data = plot_world, + mapping = aes(geometry = geometry), + size = 0.3, + fill = "#808080", # color for NA value in leaflet map + color = "white") + + # Observe change in map values and adjust ggplot map accordingly + # + new_country_map <- country_map_data() + if (!is.null(new_country_map)) { + plot_data <- sf::st_crop(x = new_country_map$data, + xmin = bb$west, xmax = bb$east, + ymin = bb$south, ymax = bb$north) + + # Plot the iso_a2 name of countries in the center of each country + # + #plot_labels <- sf::st_centroid(plot_data, of_largest_polygon = TRUE) %>% select(name = iso_a2) + #plot_labels$name[is.na(plot_labels$name)] <- "" # of some countries iso_a2 is missing + + # reproject the shapes and points with the crs used by leaflet (3857) + # + plot_data <- sf::st_transform(plot_data, "+init=epsg:3857") + #plot_labels <- sf::st_transform(plot_labels, "+init=epsg:3857") + + # Add the countries to the ggplot map + p <- p + + ggplot2::geom_sf(data = plot_data, + mapping = aes(geometry = geometry, + fill = factor(fill_value, levels = 1:length(new_country_map$bins))), + color = 'white', + size = 0.3) + + # ggplot2::geom_sf_text(data = plot_labels, + # mapping = aes(geometry = geom, label = name), + # size = 2) + + ggplot2::scale_fill_manual(values = new_country_map$map_colors, + labels = new_country_map$legends, + name = new_country_map$title, + drop = FALSE) # show all labels even if not used in the map + } + + if (!is.null(input$hist_map) && input$hist_map != 'none') { + hist_map <- eval(parse(text = input$hist_map)) + + st_crs(hist_map) <- 4326 + hist_map <- sf::st_crop(x = hist_map, + xmin = bb$west, xmax = bb$east, + ymin = bb$south, ymax = bb$north) + hist_map <- sf::st_transform(hist_map, "+init=epsg:3857") + p <- p + ggplot2::geom_sf(data = hist_map, + mapping = aes(geometry = geometry), + fill = 'white', + alpha = 0, + color = 'black', + size = 0.3) + } + + # Observe change in city or region map values for and adjust ggplot map accordingly + # + new_location_map <- location_map_data() + if (!is.null(new_location_map)) { + + # crop to the boundings of map on the screen + # + plot_data <- sf::st_crop(x = new_location_map$data, + xmin = bb$west, xmax = bb$east, + ymin = bb$south, ymax = bb$north) + + # To ensure the printed map has the same appearance as the map on the screen, + # reproject the shapes to the crs used by leaflet (3857) + # + plot_data <- sf::st_transform(plot_data, "+init=epsg:3857") + plot_data %<>% select(-X, -Y) %>% cbind(st_coordinates(plot_data)) # the old X and Y were in the wrong CRS + + # Add regions as squares to the map. + # The fill color indicates the number of articles in which the name of the city occurs. See legend! + # Also the width/height gives an indication of the number of occurrences + # + plot_region <- plot_data %>% filter(location_type == 'region') + p <- p + geom_tile(data = plot_region, + mapping = aes(x = X, + y = Y, + width = fill_value * 20000, + height = fill_value * 20000, + fill = factor(fill_value, levels = 1:length(new_location_map$bins))), + colour = "#808080") + + # Add cities as circles to the map. + # The fill color indicates the number of articles in which the name of the city occurs. See legend! + # Also the radius gives an indication of the number of occurrences + # + plot_city <- plot_data %>% filter(location_type == 'city') + p <- p + + ggforce::geom_circle(data = plot_city, + mapping = aes(x0 = X, + y0 = Y, + r = fill_value * 5000, + fill = factor(fill_value, levels = 1:length(new_location_map$bins))), + colour = "#808080") + } + + p <- p + + coord_sf(label_axes = "----") + # suppress the graticules (meridians/parallels) + xlab("") + ylab("") + ggtitle("The GeoNewsMiner (GNM), 1898 - 1920") + return(p) + }) + + output$downloadMap <- downloadHandler( + filename = function(){paste("map",'.png',sep='')}, + content = function(file){ggsave(file, plot = download_map())} + ) + +# Panel data section ----- + output$table_data <- renderDataTable({ + data <- select_data() + data %<>% select(-lon, -lat, -n_titles_perc) + data %<>% rename( + type = location_type, + name = name_long, + pages = pages, + '% pages' = pages_perc, + occurrences = occurrences, + '% occs' = occurrences_perc, + titles = n_titles) + # 'first year' = begin_year, + # 'last year'= end_year) + DT::datatable(data = data, + colnames = c('type' = 'type', + 'name' = 'name', + 'pages' = 'pages', + '% pages' = '% pages', + 'occurrences' = 'occurrences', + '% occs' = '% occs', + 'titles' = 'titles'), + # 'first year'= 'first year', + # 'last year'= 'last year'), + fillContainer = TRUE) %>% + formatRound(c('% pages', '% occs'), 2) + }) + + output$downloadData <- downloadHandler( + filename = function() { + paste("place_names", ".csv", sep = "") + }, + content = function(file) { + data <- select_data() + data %<>% select(-lon, -lat, -n_titles_perc) + data %<>% rename( + type = location_type, + name = name_long, + pages = pages, + '% pages' = pages_perc, + occurrences = occurrences, + '% occs' = occurrences_perc, + titles = n_titles) + # 'first year' = begin_year, + # 'last year'= end_year) + + write_csv(data, file) + } + ) + +# Bookmark section ----------- + + # To keep the url short, exclude state variables which will not be used on restore. + # + setBookmarkExclude(c("table_data_rows_current", + "table_data_cell_clicked", + "table_data_search", + "table_data_rows_selected", + "table_data_rows_all", + "table_data_state", + "data_map_center", + "data_map_groups", + "data_map_zoom", + "data_map_shape_mouseover", + "data_map_shape_mouseout")) + + onBookmark(function(state) { + + # Leaflet doesn't restore view point and zoom level from the saved state variables. + # These values are saved and are explicitely set when restoring the app + # + state$values$zoom <- isolate(input$data_map_zoom) + state$values$center <- isolate(input$data_map_center) # {lat, lng} + state$values$bounds <- isolate(input$data_map_bounds) + + # when restoring program must know which panel was active during bookmarking + # + state$values$tabpanel <- isolate(input$Map) + }) + + + onRestore(function(state) { + + # + # + if ( restore_map() == "START") { + + lat1 <<- state$values$bounds$south + lat2 <<- state$values$bounds$north + lng1 <<- state$values$bounds$west + lng2 <<- state$values$bounds$east + + # If a bookmark is made while the data panel is selected, the map will not be + # restored unless explicitely triggered by reactive value restore_map + # + if (state$values$tabpanel == "Data") { + restore_map("BASE_MAP") # base map triggers countries and countries triggers regions and so on + } + } + }) + # End of bookmark section ------- + +} # end of server function ----- + +# Run the application ---> moved to global.R +# shinyApp(ui = ui, server = server, enableBookmarking = "url") + diff --git a/gnm_shiny_app/ui.R b/gnm_shiny_app/ui.R new file mode 100644 index 0000000..1ad0849 --- /dev/null +++ b/gnm_shiny_app/ui.R @@ -0,0 +1,212 @@ + + +# Definition of the user interface of the GeoNewsMiner app +# +# Developer: Kees van Eijden (k.vaneijden@uu.nl) +# + +# MODALS: Functions for showing modal dialogs to users on the same page they are working ---- +# +modal_data_values <- + bs_modal( + id = "modal_data_values", + title = h3("Frequencies"), + body = includeMarkdown("www/data_values.md"), + size = "medium") + +modal_cities <- + bs_modal( + id = "modal_cities", + title = h3("Cities"), + body = includeMarkdown("www/cities.md"), + size = "medium") + +modal_regions <- + bs_modal( + id = "modal_regions", + title = h3("Regions"), + body = includeMarkdown("www/regions.md"), + size = "medium") + +modal_percentile_cities <- + bs_modal( + id = "modal_percentile_cities", + title = h3("Show cities based on their frequencies"), + body = includeMarkdown("www/percentile_cities.md"), + size = "medium") + +modal_percentile_regions <- + bs_modal( + id = "modal_percentile_regions", + title = h3("Show Regions based on their frequencies"), + body = includeMarkdown("www/percentile_regions.md"), + size = "medium") + +modal_share <- + bs_modal( + id = "modal_share", + title = h3("Share your results"), + body = includeMarkdown("www/share.md"), + size = "medium") + +modal_overlay <- bs_modal( + id = "modal_overlay", + title = h3("Historical Maps"), + body = includeMarkdown("www/overlay.md"), + size = "medium") + +modal_ToU <- bs_modal( + id = "modal_ToU", + title = h3("Terms of Usage"), + body = includeMarkdown(path = "www/ToU.md"), + footer = tags$span(bs_modal_closebutton("Understood!")), # user must accept ToU + size = "large") + +# MAIN: User interface has a simple sidebar layout +# The main panel contains a few tabpanels for: +# 1. map to show data in a spatial context, +# 2. datatable of the data, +# 3. explanatory text and +# 4. references for further reading +# +# The 'function(request)' bit is necessary to allow for sharing bookmarks between users +# +ui <- function(request) { + + fluidPage( + + # Application title + # + titlePanel("The GeoNewsMiner (GNM), 1898 - 1920"), + + # Functions displaying modal boxes to show usage info about an input widget + modal_data_values, + modal_cities, + modal_percentile_cities, + modal_regions, + modal_percentile_regions, + modal_share, + modal_overlay, + modal_ToU, + + # SIDEBAR ---- + # Sidebar contains widgets for data selection and for display options + # + sidebarLayout( + sidebarPanel( + + # input widgets for selecting data are dynamically created by server, because the choices + # depend on data set being used + # + uiOutput(outputId = "selection_period"), # selecting time period + uiOutput(outputId = "selection_titles"), # selecting newspaper titles + + # absolute values or percentages? + # + radioButtons("normalized", + label = h4("Frequencies"), + choiceNames = c("Absolute", "Percentage"), + choiceValues = c('no', 'yes'), + selected = 'no', + inline = TRUE) %>% + shinyInput_label_embed(shiny_iconlink(name = 'info-circle') %>% bs_attach_modal(id_modal = "modal_data_values")), + + # show cities on map? + # + radioButtons("show_cities", + label = h4("Cities"), + choiceNames = c("Exclude", "Include"), + choiceValues = c(FALSE, TRUE), + selected = FALSE, + inline = TRUE) %>% + shinyInput_label_embed(shiny_iconlink(name = 'info-circle') %>% + bs_attach_modal(id_modal = "modal_cities")), + + # which cities must be displayed: the most or least referenced? + # + # the user only sees this widget when normalized is yes + # + conditionalPanel( + condition = "input.show_cities == 'TRUE'", + sliderInput(inputId = "perc_cities", + label = h4("Percentile Range"), + min = 0, # only display cities above 10% percentile + max = 100, + value = c(0, 100), # By default the TOP 10% is selected + step = 10) %>% + shinyInput_label_embed(shiny_iconlink() %>% + bs_attach_modal(id_modal = "modal_percentile_cities"))), + + # idem regions + # + radioButtons("show_regions", + label = h4("Regions"), + choiceNames = c("Exclude", "Include"), + choiceValues = c(FALSE, TRUE), + selected = FALSE, + inline = TRUE) %>% + shinyInput_label_embed(shiny_iconlink(name = 'info-circle') %>% + bs_attach_modal(id_modal = "modal_regions")), + + conditionalPanel( + condition = "input.show_regions == 'TRUE'", + sliderInput(inputId = "perc_regions", + label = h4("Percentile Range"), + min = 0, + max = 100, + value = c(0, 100), + step = 10) %>% + shinyInput_label_embed(shiny_iconlink(name = 'info-circle') %>% + bs_attach_modal(id_modal = "modal_percentile_regions"))), + + # User can opt for an overlay with a historical map (1880, 1914 or 1920) + # + radioButtons(inputId = "hist_map", + label = h4("Historical Maps"), + choiceNames = c("1994", "1880", "1914", "1920"), + choiceValues = c("none", "world1880", "world1914", "world1920"), + selected = "none", + inline = TRUE) %>% + shinyInput_label_embed(shiny_iconlink(name = 'info-circle') %>% + bs_attach_modal(id_modal = "modal_overlay")), + br(), + + # Bookmark save the current state of the app in an url which can be shared + # + bookmarkButton(label = "Share the results"), + shiny_iconlink(name = 'info-circle') %>% + bs_attach_modal(id_modal = "modal_share") + ), + + # MAIN ---- + # Contains 4 tabpanels for map, data table, explanation and references + # + mainPanel( + tabsetPanel( + id = "Map", + tabPanel("Map", + leafletOutput("data_map", width = "100%", height = 500), + br(), + HTML("NA*: occurrences < 8"), + br(), + br(), + downloadButton("downloadMap", "Download Map")), + tabPanel("Data", + DT::dataTableOutput("table_data", height = "700px"), + br(), + downloadButton("downloadData", "Download Data Selection")), + tabPanel("About ...", + includeMarkdown(path = "www/about.md"), + + # User must accepts the gterms of usage + # + bs_button("Terms of Usage") %>% + bs_attach_modal(id_modal = "modal_ToU") + ), + tabPanel("More ...", + includeMarkdown(path = "www/more.md"))) + ) # end of main panel ---- + ) # end of sidebarLayout + ) # end of fluid page +} # end of ui function + diff --git a/gnm_shiny_app/www/ToU.md b/gnm_shiny_app/www/ToU.md new file mode 100755 index 0000000..e7f4a21 --- /dev/null +++ b/gnm_shiny_app/www/ToU.md @@ -0,0 +1,13 @@ + +### Terms of Usage Utrecht Unversity Shiny Server + +1. Purpose of the service __utrecht-university.shinyapps.io__ is to provide a digital place for trying out, evaluating and/or comparing methods developed by researchers of Utrecht University for the scientific community worldwide. The app and its contents may not be preserved in such a way that it can be cited or can be referenced to. +2. The web application is provided __as is__ and __as available__ and is without any warranty. Your use of this web application is solely at your own risk. +3. You must ensure that you are lawfully entitled and have full authority to upload data in the web application. The file data must not contain any data which can raise issues relating to abuse, confidentiality, privacy, data protection, licensing, and/or intellectual property. You shall not upload data with any confidential or proprietary information that you desire or are required to keep secret. +4. By using this app you agree to be bound by the above terms. + + + + + + diff --git a/gnm_shiny_app/www/about.md b/gnm_shiny_app/www/about.md new file mode 100755 index 0000000..2cf66a8 --- /dev/null +++ b/gnm_shiny_app/www/about.md @@ -0,0 +1,16 @@ +#### About GeoNewsMiner (GNM) + +GNM is an app that visualises references to place names in *ChroniclItaly* [(Viola 2018)](https://public.yoda.uu.nl/i-lab/UU01/T4YMOW.html), a corpus of ethnic historical newspapers previously tagged for entities using a sequence tagging tool [(Riedl and Padó 2018)](https://github.com/riedlma/sequence_tagging). GNM interactively displays such references as they have been geocoded, counted, and finally plotted on a world map. The full step-by-step documentation of the project is available on GitHub at this [link](https://github.com/lorellav/GeoNewsMiner). + +In order to reflect the changing geo-political borders within the analysed period (1898-1920), users can additionally choose between three historical world maps displaying the different borders at three crucial points: 1880, 1914, 1920. By default, GNM displays a contemporary (1994) world map. + +GNM has been created as an exploratory tool to assist researchers working in **spatial humanities**, a recently emerged interdisciplinary field within the digital humanities focused on geographic and conceptual space, especially from a historical perspective. Drawing from the application of Geographic Information Systems and data mining, GNM illustrates how the visualization of place names can provide researchers with new perspectives on the geographies of the past thus opening up new ways to study history. + +***ChroniclItaly*** + +GNM is based on _ChroniclItaly_ [(Viola 2018)](https://public.yoda.uu.nl/i-lab/UU01/T4YMOW.html), a corpus of Italian language newspapers published in the United States between 1898 and 1920. The corpus includes the front pages of seven Italian language newspapers published in California, Massachusetts, Pennsylvania, Vermont, and West Virginia: _L’Italia_, _Cronaca +sovversiva_, _La libera parola_, _The patriot_, _La ragione_, _La rassegna_, and _La sentinella del +West Virginia_. The collection, which totals 4,810 issues and contains 16,624,571 words, is available as an open access resource at this [link](https://public.yoda.uu.nl/i-lab/UU01/T4YMOW.html). For further information on this resource, please check the **References** section under the **More** tab or the [GitHub repository](https://github.com/lorellav/GeoNewsMiner). The tagged version of the collection [*ChroniclItaly 2.0*](https://doi.org/10.24416/UU01-4MECRO) is also available open acess. + +**By using this app you agree to the Terms of Usage below** + diff --git a/gnm_shiny_app/www/cc_by_nc.png b/gnm_shiny_app/www/cc_by_nc.png new file mode 100755 index 0000000..3f1f4b2 Binary files /dev/null and b/gnm_shiny_app/www/cc_by_nc.png differ diff --git a/gnm_shiny_app/www/cities.md b/gnm_shiny_app/www/cities.md new file mode 100755 index 0000000..5ec1ae1 --- /dev/null +++ b/gnm_shiny_app/www/cities.md @@ -0,0 +1 @@ +By default, the map shows the occurrences of references to country names. To display references to cities, select _include_. This does not affect the data displayed in the **Data** tab. diff --git a/gnm_shiny_app/www/data_values.md b/gnm_shiny_app/www/data_values.md new file mode 100755 index 0000000..fe7d94f --- /dev/null +++ b/gnm_shiny_app/www/data_values.md @@ -0,0 +1,2 @@ + +This selection allows you to display references to place names according to their frequency of occurrence. If you choose *absolute*, the map displays the frequency values based on the number of articles in which references to countries occur. If you choose _percentage_, the map displays the corresponding percentage of the frequency values in relation to the total number of documents in the corpus. diff --git a/gnm_shiny_app/www/more.md b/gnm_shiny_app/www/more.md new file mode 100755 index 0000000..fe4ac95 --- /dev/null +++ b/gnm_shiny_app/www/more.md @@ -0,0 +1,35 @@ + +#### **License and Copyright** + +CC-BY-NC Creative Commons Attribution Non-Commercial Licence +[
