version initiale

LICENSE

@@ -0,0 +1,395 @@
+Attribution 4.0 International
+
+=======================================================================
+
+Creative Commons Corporation ("Creative Commons") is not a law firm and
+does not provide legal services or legal advice. Distribution of
+Creative Commons public licenses does not create a lawyer-client or
+other relationship. Creative Commons makes its licenses and related
+information available on an "as-is" basis. Creative Commons gives no
+warranties regarding its licenses, any material licensed under their
+terms and conditions, or any related information. Creative Commons
+disclaims all liability for damages resulting from their use to the
+fullest extent possible.
+
+Using Creative Commons Public Licenses
+
+Creative Commons public licenses provide a standard set of terms and
+conditions that creators and other rights holders may use to share
+original works of authorship and other material subject to copyright
+and certain other rights specified in the public license below. The
+following considerations are for informational purposes only, are not
+exhaustive, and do not form part of our licenses.
+
+     Considerations for licensors: Our public licenses are
+     intended for use by those authorized to give the public
+     permission to use material in ways otherwise restricted by
+     copyright and certain other rights. Our licenses are
+     irrevocable. Licensors should read and understand the terms
+     and conditions of the license they choose before applying it.
+     Licensors should also secure all rights necessary before
+     applying our licenses so that the public can reuse the
+     material as expected. Licensors should clearly mark any
+     material not subject to the license. This includes other CC-
+     licensed material, or material used under an exception or
+     limitation to copyright. More considerations for licensors:
+	wiki.creativecommons.org/Considerations_for_licensors
+
+     Considerations for the public: By using one of our public
+     licenses, a licensor grants the public permission to use the
+     licensed material under specified terms and conditions. If
+     the licensor's permission is not necessary for any reason--for
+     example, because of any applicable exception or limitation to
+     copyright--then that use is not regulated by the license. Our
+     licenses grant only permissions under copyright and certain
+     other rights that a licensor has authority to grant. Use of
+     the licensed material may still be restricted for other
+     reasons, including because others have copyright or other
+     rights in the material. A licensor may make special requests,
+     such as asking that all changes be marked or described.
+     Although not required by our licenses, you are encouraged to
+     respect those requests where reasonable. More_considerations
+     for the public:
+	wiki.creativecommons.org/Considerations_for_licensees
+
+=======================================================================
+
+Creative Commons Attribution 4.0 International Public License
+
+By exercising the Licensed Rights (defined below), You accept and agree
+to be bound by the terms and conditions of this Creative Commons
+Attribution 4.0 International Public License ("Public License"). To the
+extent this Public License may be interpreted as a contract, You are
+granted the Licensed Rights in consideration of Your acceptance of
+these terms and conditions, and the Licensor grants You such rights in
+consideration of benefits the Licensor receives from making the
+Licensed Material available under these terms and conditions.
+
+
+Section 1 -- Definitions.
+
+  a. Adapted Material means material subject to Copyright and Similar
+     Rights that is derived from or based upon the Licensed Material
+     and in which the Licensed Material is translated, altered,
+     arranged, transformed, or otherwise modified in a manner requiring
+     permission under the Copyright and Similar Rights held by the
+     Licensor. For purposes of this Public License, where the Licensed
+     Material is a musical work, performance, or sound recording,
+     Adapted Material is always produced where the Licensed Material is
+     synched in timed relation with a moving image.
+
+  b. Adapter's License means the license You apply to Your Copyright
+     and Similar Rights in Your contributions to Adapted Material in
+     accordance with the terms and conditions of this Public License.
+
+  c. Copyright and Similar Rights means copyright and/or similar rights
+     closely related to copyright including, without limitation,
+     performance, broadcast, sound recording, and Sui Generis Database
+     Rights, without regard to how the rights are labeled or
+     categorized. For purposes of this Public License, the rights
+     specified in Section 2(b)(1)-(2) are not Copyright and Similar
+     Rights.
+
+  d. Effective Technological Measures means those measures that, in the
+     absence of proper authority, may not be circumvented under laws
+     fulfilling obligations under Article 11 of the WIPO Copyright
+     Treaty adopted on December 20, 1996, and/or similar international
+     agreements.
+
+  e. Exceptions and Limitations means fair use, fair dealing, and/or
+     any other exception or limitation to Copyright and Similar Rights
+     that applies to Your use of the Licensed Material.
+
+  f. Licensed Material means the artistic or literary work, database,
+     or other material to which the Licensor applied this Public
+     License.
+
+  g. Licensed Rights means the rights granted to You subject to the
+     terms and conditions of this Public License, which are limited to
+     all Copyright and Similar Rights that apply to Your use of the
+     Licensed Material and that the Licensor has authority to license.
+
+  h. Licensor means the individual(s) or entity(ies) granting rights
+     under this Public License.
+
+  i. Share means to provide material to the public by any means or
+     process that requires permission under the Licensed Rights, such
+     as reproduction, public display, public performance, distribution,
+     dissemination, communication, or importation, and to make material
+     available to the public including in ways that members of the
+     public may access the material from a place and at a time
+     individually chosen by them.
+
+  j. Sui Generis Database Rights means rights other than copyright
+     resulting from Directive 96/9/EC of the European Parliament and of
+     the Council of 11 March 1996 on the legal protection of databases,
+     as amended and/or succeeded, as well as other essentially
+     equivalent rights anywhere in the world.
+
+  k. You means the individual or entity exercising the Licensed Rights
+     under this Public License. Your has a corresponding meaning.
+
+
+Section 2 -- Scope.
+
+  a. License grant.
+
+       1. Subject to the terms and conditions of this Public License,
+          the Licensor hereby grants You a worldwide, royalty-free,
+          non-sublicensable, non-exclusive, irrevocable license to
+          exercise the Licensed Rights in the Licensed Material to:
+
+            a. reproduce and Share the Licensed Material, in whole or
+               in part; and
+
+            b. produce, reproduce, and Share Adapted Material.
+
+       2. Exceptions and Limitations. For the avoidance of doubt, where
+          Exceptions and Limitations apply to Your use, this Public
+          License does not apply, and You do not need to comply with
+          its terms and conditions.
+
+       3. Term. The term of this Public License is specified in Section
+          6(a).
+
+       4. Media and formats; technical modifications allowed. The
+          Licensor authorizes You to exercise the Licensed Rights in
+          all media and formats whether now known or hereafter created,
+          and to make technical modifications necessary to do so. The
+          Licensor waives and/or agrees not to assert any right or
+          authority to forbid You from making technical modifications
+          necessary to exercise the Licensed Rights, including
+          technical modifications necessary to circumvent Effective
+          Technological Measures. For purposes of this Public License,
+          simply making modifications authorized by this Section 2(a)
+          (4) never produces Adapted Material.
+
+       5. Downstream recipients.
+
+            a. Offer from the Licensor -- Licensed Material. Every
+               recipient of the Licensed Material automatically
+               receives an offer from the Licensor to exercise the
+               Licensed Rights under the terms and conditions of this
+               Public License.
+
+            b. No downstream restrictions. You may not offer or impose
+               any additional or different terms or conditions on, or
+               apply any Effective Technological Measures to, the
+               Licensed Material if doing so restricts exercise of the
+               Licensed Rights by any recipient of the Licensed
+               Material.
+
+       6. No endorsement. Nothing in this Public License constitutes or
+          may be construed as permission to assert or imply that You
+          are, or that Your use of the Licensed Material is, connected
+          with, or sponsored, endorsed, or granted official status by,
+          the Licensor or others designated to receive attribution as
+          provided in Section 3(a)(1)(A)(i).
+
+  b. Other rights.
+
+       1. Moral rights, such as the right of integrity, are not
+          licensed under this Public License, nor are publicity,
+          privacy, and/or other similar personality rights; however, to
+          the extent possible, the Licensor waives and/or agrees not to
+          assert any such rights held by the Licensor to the limited
+          extent necessary to allow You to exercise the Licensed
+          Rights, but not otherwise.
+
+       2. Patent and trademark rights are not licensed under this
+          Public License.
+
+       3. To the extent possible, the Licensor waives any right to
+          collect royalties from You for the exercise of the Licensed
+          Rights, whether directly or through a collecting society
+          under any voluntary or waivable statutory or compulsory
+          licensing scheme. In all other cases the Licensor expressly
+          reserves any right to collect such royalties.
+
+
+Section 3 -- License Conditions.
+
+Your exercise of the Licensed Rights is expressly made subject to the
+following conditions.
+
+  a. Attribution.
+
+       1. If You Share the Licensed Material (including in modified
+          form), You must:
+
+            a. retain the following if it is supplied by the Licensor
+               with the Licensed Material:
+
+                 i. identification of the creator(s) of the Licensed
+                    Material and any others designated to receive
+                    attribution, in any reasonable manner requested by
+                    the Licensor (including by pseudonym if
+                    designated);
+
+                ii. a copyright notice;
+
+               iii. a notice that refers to this Public License;
+
+                iv. a notice that refers to the disclaimer of
+                    warranties;
+
+                 v. a URI or hyperlink to the Licensed Material to the
+                    extent reasonably practicable;
+
+            b. indicate if You modified the Licensed Material and
+               retain an indication of any previous modifications; and
+
+            c. indicate the Licensed Material is licensed under this
+               Public License, and include the text of, or the URI or
+               hyperlink to, this Public License.
+
+       2. You may satisfy the conditions in Section 3(a)(1) in any
+          reasonable manner based on the medium, means, and context in
+          which You Share the Licensed Material. For example, it may be
+          reasonable to satisfy the conditions by providing a URI or
+          hyperlink to a resource that includes the required
+          information.
+
+       3. If requested by the Licensor, You must remove any of the
+          information required by Section 3(a)(1)(A) to the extent
+          reasonably practicable.
+
+       4. If You Share Adapted Material You produce, the Adapter's
+          License You apply must not prevent recipients of the Adapted
+          Material from complying with this Public License.
+
+
+Section 4 -- Sui Generis Database Rights.
+
+Where the Licensed Rights include Sui Generis Database Rights that
+apply to Your use of the Licensed Material:
+
+  a. for the avoidance of doubt, Section 2(a)(1) grants You the right
+     to extract, reuse, reproduce, and Share all or a substantial
+     portion of the contents of the database;
+
+  b. if You include all or a substantial portion of the database
+     contents in a database in which You have Sui Generis Database
+     Rights, then the database in which You have Sui Generis Database
+     Rights (but not its individual contents) is Adapted Material; and
+
+  c. You must comply with the conditions in Section 3(a) if You Share
+     all or a substantial portion of the contents of the database.
+
+For the avoidance of doubt, this Section 4 supplements and does not
+replace Your obligations under this Public License where the Licensed
+Rights include other Copyright and Similar Rights.
+
+
+Section 5 -- Disclaimer of Warranties and Limitation of Liability.
+
+  a. UNLESS OTHERWISE SEPARATELY UNDERTAKEN BY THE LICENSOR, TO THE
+     EXTENT POSSIBLE, THE LICENSOR OFFERS THE LICENSED MATERIAL AS-IS
+     AND AS-AVAILABLE, AND MAKES NO REPRESENTATIONS OR WARRANTIES OF
+     ANY KIND CONCERNING THE LICENSED MATERIAL, WHETHER EXPRESS,
+     IMPLIED, STATUTORY, OR OTHER. THIS INCLUDES, WITHOUT LIMITATION,
+     WARRANTIES OF TITLE, MERCHANTABILITY, FITNESS FOR A PARTICULAR
+     PURPOSE, NON-INFRINGEMENT, ABSENCE OF LATENT OR OTHER DEFECTS,
+     ACCURACY, OR THE PRESENCE OR ABSENCE OF ERRORS, WHETHER OR NOT
+     KNOWN OR DISCOVERABLE. WHERE DISCLAIMERS OF WARRANTIES ARE NOT
+     ALLOWED IN FULL OR IN PART, THIS DISCLAIMER MAY NOT APPLY TO YOU.
+
+  b. TO THE EXTENT POSSIBLE, IN NO EVENT WILL THE LICENSOR BE LIABLE
+     TO YOU ON ANY LEGAL THEORY (INCLUDING, WITHOUT LIMITATION,
+     NEGLIGENCE) OR OTHERWISE FOR ANY DIRECT, SPECIAL, INDIRECT,
+     INCIDENTAL, CONSEQUENTIAL, PUNITIVE, EXEMPLARY, OR OTHER LOSSES,
+     COSTS, EXPENSES, OR DAMAGES ARISING OUT OF THIS PUBLIC LICENSE OR
+     USE OF THE LICENSED MATERIAL, EVEN IF THE LICENSOR HAS BEEN
+     ADVISED OF THE POSSIBILITY OF SUCH LOSSES, COSTS, EXPENSES, OR
+     DAMAGES. WHERE A LIMITATION OF LIABILITY IS NOT ALLOWED IN FULL OR
+     IN PART, THIS LIMITATION MAY NOT APPLY TO YOU.
+
+  c. The disclaimer of warranties and limitation of liability provided
+     above shall be interpreted in a manner that, to the extent
+     possible, most closely approximates an absolute disclaimer and
+     waiver of all liability.
+
+
+Section 6 -- Term and Termination.
+
+  a. This Public License applies for the term of the Copyright and
+     Similar Rights licensed here. However, if You fail to comply with
+     this Public License, then Your rights under this Public License
+     terminate automatically.
+
+  b. Where Your right to use the Licensed Material has terminated under
+     Section 6(a), it reinstates:
+
+       1. automatically as of the date the violation is cured, provided
+          it is cured within 30 days of Your discovery of the
+          violation; or
+
+       2. upon express reinstatement by the Licensor.
+
+     For the avoidance of doubt, this Section 6(b) does not affect any
+     right the Licensor may have to seek remedies for Your violations
+     of this Public License.
+
+  c. For the avoidance of doubt, the Licensor may also offer the
+     Licensed Material under separate terms or conditions or stop
+     distributing the Licensed Material at any time; however, doing so
+     will not terminate this Public License.
+
+  d. Sections 1, 5, 6, 7, and 8 survive termination of this Public
+     License.
+
+
+Section 7 -- Other Terms and Conditions.
+
+  a. The Licensor shall not be bound by any additional or different
+     terms or conditions communicated by You unless expressly agreed.
+
+  b. Any arrangements, understandings, or agreements regarding the
+     Licensed Material not stated herein are separate from and
+     independent of the terms and conditions of this Public License.
+
+
+Section 8 -- Interpretation.
+
+  a. For the avoidance of doubt, this Public License does not, and
+     shall not be interpreted to, reduce, limit, restrict, or impose
+     conditions on any use of the Licensed Material that could lawfully
+     be made without permission under this Public License.
+
+  b. To the extent possible, if any provision of this Public License is
+     deemed unenforceable, it shall be automatically reformed to the
+     minimum extent necessary to make it enforceable. If the provision
+     cannot be reformed, it shall be severed from this Public License
+     without affecting the enforceability of the remaining terms and
+     conditions.
+
+  c. No term or condition of this Public License will be waived and no
+     failure to comply consented to unless expressly agreed to by the
+     Licensor.
+
+  d. Nothing in this Public License constitutes or may be interpreted
+     as a limitation upon, or waiver of, any privileges and immunities
+     that apply to the Licensor or You, including from the legal
+     processes of any jurisdiction or authority.
+
+
+=======================================================================
+
+Creative Commons is not a party to its public
+licenses. Notwithstanding, Creative Commons may elect to apply one of
+its public licenses to material it publishes and in those instances
+will be considered the “Licensor.” The text of the Creative Commons
+public licenses is dedicated to the public domain under the CC0 Public
+Domain Dedication. Except for the limited purpose of indicating that
+material is shared under a Creative Commons public license or as
+otherwise permitted by the Creative Commons policies published at
+creativecommons.org/policies, Creative Commons does not authorize the
+use of the trademark "Creative Commons" or any other trademark or logo
+of Creative Commons without its prior written consent including,
+without limitation, in connection with any unauthorized modifications
+to any of its public licenses or any other arrangements,
+understandings, or agreements concerning use of licensed material. For
+the avoidance of doubt, this paragraph does not form part of the
+public licenses.
+
+Creative Commons may be contacted at creativecommons.org.

Maritime-Pirate-Attacks.Rproj

@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX

app.R

@@ -0,0 +1,106 @@
+# Packages
+
+library(shiny)
+library(shinythemes)
+library(dplyr)
+library(readr)
+library(sf)
+library(leaflet)
+
+pirate_attacks_sf_ss2 <-
+  read_sf("data/geojson/pirate_attacks_sf_ss2.geojson")
+
+source("pirateIcon.R")
+
+# UI
+
+ui <- fluidPage(
+  theme = shinytheme("lumen"),
+  titlePanel("Attaques pirates contre des navires"),
+  sidebarLayout(
+    sidebarPanel(
+      # Select type of vessel to plot
+      selectInput(
+        inputId = "vessel",
+        label = strong("Vessel category"),
+        choices = unique(pirate_attacks_sf_ss2$vessel_category),
+        selected = "Bulk"
+      ),
+      # Select date range to be plotted
+      dateRangeInput(
+        "date",
+        strong("Date range"),
+        start = min(pirate_attacks_sf_ss2$date),
+        end = max(pirate_attacks_sf_ss2$date),
+        min = min(pirate_attacks_sf_ss2$date),
+        max = max(pirate_attacks_sf_ss2$date)
+      ),
+    ),
+    mainPanel(
+      leafletOutput("pirateMap"),
+      p(),
+      tags$a(
+        href = "https://github.com/newzealandpaul/Maritime-Pirate-Attacks",
+        "Crime at Sea: A Global Database of Maritime Pirate Attacks (1993 - 2020)",
+        target = "_blank"
+      )
+    )
+  )
+)
+
+# Server
+
+server <- function(input, output) {
+  # Filter data
+  pirate_attacks_sf_maps <- reactive({
+    req(input$date)
+    req(input$vessel)
+    validate(need(
+      !is.na(input$date[1]) &
+        !is.na(input$date[2]),
+      "Error: Please provide both a start and an end date."
+    ))
+    validate(need(
+      input$date[1] < input$date[2],
+      "Error: Start date should be earlier than end date."
+    ))
+    pirate_attacks_sf_ss2 %>%
+      filter(
+        vessel_category == input$vessel,
+        as.POSIXct(date) > as.POSIXct(input$date[1]) &
+          as.POSIXct(date) < as.POSIXct(input$date[2])
+      )
+    
+  })
+  
+  output$pirateMap <- renderLeaflet({
+    source("leaflet_pirate_popuptext.R")
+    
+    leaflet() %>%
+      addTiles() %>%
+      addMarkers(
+        data = pirate_attacks_sf_maps(),
+        popup = paste0(
+          "Type: ",
+          pirate_attacks_sf_maps()$vessel_category,
+          "<br>",
+          "Statut: ",
+          pirate_attacks_sf_maps()$vessel_status,
+          "<br>",
+          "Type d'attaque: ",
+          pirate_attacks_sf_maps()$attack_type,
+          "<br>",
+          "Distance de la côte: ",
+          round(pirate_attacks_sf_maps()$shore_distance, 2),
+          "km",
+          "<br>",
+          "Date: ",
+          pirate_attacks_sf_maps()$date
+        ),
+        icon = pirateIcon,
+        clusterOptions = markerClusterOptions()
+      )
+  })
+}
+
+shinyApp(ui, server)

data/csv/country_codes.csv

@@ -0,0 +1,218 @@
+"country","region","country_name"
+"ABW","Latin America & Caribbean","Aruba"
+"AFG","South Asia","Afghanistan"
+"AGO","Sub-Saharan Africa","Angola"
+"ALB","Europe & Central Asia","Albania"
+"AND","Europe & Central Asia","Andorra"
+"ARE","Middle East & North Africa","United Arab Emirates"
+"ARG","Latin America & Caribbean","Argentina"
+"ARM","Europe & Central Asia","Armenia"
+"ASM","East Asia & Pacific","American Samoa"
+"ATG","Latin America & Caribbean","Antigua and Barbuda"
+"AUS","East Asia & Pacific","Australia"
+"AUT","Europe & Central Asia","Austria"
+"AZE","Europe & Central Asia","Azerbaijan"
+"BDI","Sub-Saharan Africa","Burundi"
+"BEL","Europe & Central Asia","Belgium"
+"BEN","Sub-Saharan Africa","Benin"
+"BFA","Sub-Saharan Africa","Burkina Faso"
+"BGD","South Asia","Bangladesh"
+"BGR","Europe & Central Asia","Bulgaria"
+"BHR","Middle East & North Africa","Bahrain"
+"BHS","Latin America & Caribbean","Bahamas, The"
+"BIH","Europe & Central Asia","Bosnia and Herzegovina"
+"BLR","Europe & Central Asia","Belarus"
+"BLZ","Latin America & Caribbean","Belize"
+"BMU","North America","Bermuda"
+"BOL","Latin America & Caribbean","Bolivia"
+"BRA","Latin America & Caribbean","Brazil"
+"BRB","Latin America & Caribbean","Barbados"
+"BRN","East Asia & Pacific","Brunei Darussalam"
+"BTN","South Asia","Bhutan"
+"BWA","Sub-Saharan Africa","Botswana"
+"CAF","Sub-Saharan Africa","Central African Republic"
+"CAN","North America","Canada"
+"CHE","Europe & Central Asia","Switzerland"
+"CHI","Europe & Central Asia","Channel Islands"
+"CHL","Latin America & Caribbean","Chile"
+"CHN","East Asia & Pacific","China"
+"CIV","Sub-Saharan Africa","Côte d'Ivoire"
+"CMR","Sub-Saharan Africa","Cameroon"
+"COD","Sub-Saharan Africa","Congo, Dem. Rep."
+"COG","Sub-Saharan Africa","Congo, Rep."
+"COL","Latin America & Caribbean","Colombia"
+"COM","Sub-Saharan Africa","Comoros"
+"CPV","Sub-Saharan Africa","Cabo Verde"
+"CRI","Latin America & Caribbean","Costa Rica"
+"CUB","Latin America & Caribbean","Cuba"
+"CUW","Latin America & Caribbean","Curaçao"
+"CYM","Latin America & Caribbean","Cayman Islands"
+"CYP","Europe & Central Asia","Cyprus"
+"CZE","Europe & Central Asia","Czech Republic"
+"DEU","Europe & Central Asia","Germany"
+"DJI","Middle East & North Africa","Djibouti"
+"DMA","Latin America & Caribbean","Dominica"
+"DNK","Europe & Central Asia","Denmark"
+"DOM","Latin America & Caribbean","Dominican Republic"
+"DZA","Middle East & North Africa","Algeria"
+"ECU","Latin America & Caribbean","Ecuador"
+"EGY","Middle East & North Africa","Egypt, Arab Rep."
+"ERI","Sub-Saharan Africa","Eritrea"
+"ESP","Europe & Central Asia","Spain"
+"EST","Europe & Central Asia","Estonia"
+"ETH","Sub-Saharan Africa","Ethiopia"
+"FIN","Europe & Central Asia","Finland"
+"FJI","East Asia & Pacific","Fiji"
+"FRA","Europe & Central Asia","France"
+"FRO","Europe & Central Asia","Faroe Islands"
+"FSM","East Asia & Pacific","Micronesia, Fed. Sts."
+"GAB","Sub-Saharan Africa","Gabon"
+"GBR","Europe & Central Asia","United Kingdom"
+"GEO","Europe & Central Asia","Georgia"
+"GHA","Sub-Saharan Africa","Ghana"
+"GIB","Europe & Central Asia","Gibraltar"
+"GIN","Sub-Saharan Africa","Guinea"
+"GMB","Sub-Saharan Africa","Gambia, The"
+"GNB","Sub-Saharan Africa","Guinea-Bissau"
+"GNQ","Sub-Saharan Africa","Equatorial Guinea"
+"GRC","Europe & Central Asia","Greece"
+"GRD","Latin America & Caribbean","Grenada"
+"GRL","Europe & Central Asia","Greenland"
+"GTM","Latin America & Caribbean","Guatemala"
+"GUM","East Asia & Pacific","Guam"
+"GUY","Latin America & Caribbean","Guyana"
+"HKG","East Asia & Pacific","Hong Kong SAR, China"
+"HND","Latin America & Caribbean","Honduras"
+"HRV","Europe & Central Asia","Croatia"
+"HTI","Latin America & Caribbean","Haiti"
+"HUN","Europe & Central Asia","Hungary"
+"IDN","East Asia & Pacific","Indonesia"
+"IMN","Europe & Central Asia","Isle of Man"
+"IND","South Asia","India"
+"IRL","Europe & Central Asia","Ireland"
+"IRN","Middle East & North Africa","Iran, Islamic Rep."
+"IRQ","Middle East & North Africa","Iraq"
+"ISL","Europe & Central Asia","Iceland"
+"ISR","Middle East & North Africa","Israel"
+"ITA","Europe & Central Asia","Italy"
+"JAM","Latin America & Caribbean","Jamaica"
+"JOR","Middle East & North Africa","Jordan"
+"JPN","East Asia & Pacific","Japan"
+"KAZ","Europe & Central Asia","Kazakhstan"
+"KEN","Sub-Saharan Africa","Kenya"
+"KGZ","Europe & Central Asia","Kyrgyz Republic"
+"KHM","East Asia & Pacific","Cambodia"
+"KIR","East Asia & Pacific","Kiribati"
+"KNA","Latin America & Caribbean","St. Kitts and Nevis"
+"KOR","East Asia & Pacific","Korea, Rep."
+"KWT","Middle East & North Africa","Kuwait"
+"LAO","East Asia & Pacific","Lao PDR"
+"LBN","Middle East & North Africa","Lebanon"
+"LBR","Sub-Saharan Africa","Liberia"
+"LBY","Middle East & North Africa","Libya"
+"LCA","Latin America & Caribbean","St. Lucia"
+"LIE","Europe & Central Asia","Liechtenstein"
+"LKA","South Asia","Sri Lanka"
+"LSO","Sub-Saharan Africa","Lesotho"
+"LTU","Europe & Central Asia","Lithuania"
+"LUX","Europe & Central Asia","Luxembourg"
+"LVA","Europe & Central Asia","Latvia"
+"MAC","East Asia & Pacific","Macao SAR, China"
+"MAF","Latin America & Caribbean","St. Martin (French part)"
+"MAR","Middle East & North Africa","Morocco"
+"MCO","Europe & Central Asia","Monaco"
+"MDA","Europe & Central Asia","Moldova"
+"MDG","Sub-Saharan Africa","Madagascar"
+"MDV","South Asia","Maldives"
+"MEX","Latin America & Caribbean","Mexico"
+"MHL","East Asia & Pacific","Marshall Islands"
+"MKD","Europe & Central Asia","North Macedonia"
+"MLI","Sub-Saharan Africa","Mali"
+"MLT","Middle East & North Africa","Malta"
+"MMR","East Asia & Pacific","Myanmar"
+"MNE","Europe & Central Asia","Montenegro"
+"MNG","East Asia & Pacific","Mongolia"
+"MNP","East Asia & Pacific","Northern Mariana Islands"
+"MOZ","Sub-Saharan Africa","Mozambique"
+"MRT","Sub-Saharan Africa","Mauritania"
+"MUS","Sub-Saharan Africa","Mauritius"
+"MWI","Sub-Saharan Africa","Malawi"
+"MYS","East Asia & Pacific","Malaysia"
+"NAM","Sub-Saharan Africa","Namibia"
+"NCL","East Asia & Pacific","New Caledonia"
+"NER","Sub-Saharan Africa","Niger"
+"NGA","Sub-Saharan Africa","Nigeria"
+"NIC","Latin America & Caribbean","Nicaragua"
+"NLD","Europe & Central Asia","Netherlands"
+"NOR","Europe & Central Asia","Norway"
+"NPL","South Asia","Nepal"
+"NRU","East Asia & Pacific","Nauru"
+"NZL","East Asia & Pacific","New Zealand"
+"OMN","Middle East & North Africa","Oman"
+"PAK","South Asia","Pakistan"
+"PAN","Latin America & Caribbean","Panama"
+"PER","Latin America & Caribbean","Peru"
+"PHL","East Asia & Pacific","Philippines"
+"PLW","East Asia & Pacific","Palau"
+"PNG","East Asia & Pacific","Papua New Guinea"
+"POL","Europe & Central Asia","Poland"
+"PRI","Latin America & Caribbean","Puerto Rico"
+"PRK","East Asia & Pacific","Korea, Dem. People's Rep."
+"PRT","Europe & Central Asia","Portugal"
+"PRY","Latin America & Caribbean","Paraguay"
+"PSE","Middle East & North Africa","West Bank and Gaza"
+"PYF","East Asia & Pacific","French Polynesia"
+"QAT","Middle East & North Africa","Qatar"
+"ROU","Europe & Central Asia","Romania"
+"RUS","Europe & Central Asia","Russian Federation"
+"RWA","Sub-Saharan Africa","Rwanda"
+"SAU","Middle East & North Africa","Saudi Arabia"
+"SDN","Sub-Saharan Africa","Sudan"
+"SEN","Sub-Saharan Africa","Senegal"
+"SGP","East Asia & Pacific","Singapore"
+"SLB","East Asia & Pacific","Solomon Islands"
+"SLE","Sub-Saharan Africa","Sierra Leone"
+"SLV","Latin America & Caribbean","El Salvador"
+"SMR","Europe & Central Asia","San Marino"
+"SOM","Sub-Saharan Africa","Somalia"
+"SRB","Europe & Central Asia","Serbia"
+"SSD","Sub-Saharan Africa","South Sudan"
+"STP","Sub-Saharan Africa","São Tomé and Principe"
+"SUR","Latin America & Caribbean","Suriname"
+"SVK","Europe & Central Asia","Slovak Republic"
+"SVN","Europe & Central Asia","Slovenia"
+"SWE","Europe & Central Asia","Sweden"
+"SWZ","Sub-Saharan Africa","Eswatini"
+"SXM","Latin America & Caribbean","Sint Maarten (Dutch part)"
+"SYC","Sub-Saharan Africa","Seychelles"
+"SYR","Middle East & North Africa","Syrian Arab Republic"
+"TCA","Latin America & Caribbean","Turks and Caicos Islands"
+"TCD","Sub-Saharan Africa","Chad"
+"TGO","Sub-Saharan Africa","Togo"
+"THA","East Asia & Pacific","Thailand"
+"TJK","Europe & Central Asia","Tajikistan"
+"TKM","Europe & Central Asia","Turkmenistan"
+"TLS","East Asia & Pacific","Timor-Leste"
+"TON","East Asia & Pacific","Tonga"
+"TTO","Latin America & Caribbean","Trinidad and Tobago"
+"TUN","Middle East & North Africa","Tunisia"
+"TUR","Europe & Central Asia","Turkey"
+"TUV","East Asia & Pacific","Tuvalu"
+"TZA","Sub-Saharan Africa","Tanzania"
+"UGA","Sub-Saharan Africa","Uganda"
+"UKR","Europe & Central Asia","Ukraine"
+"URY","Latin America & Caribbean","Uruguay"
+"USA","North America","United States"
+"UZB","Europe & Central Asia","Uzbekistan"
+"VCT","Latin America & Caribbean","St. Vincent and the Grenadines"
+"VEN","Latin America & Caribbean","Venezuela, RB"
+"VGB","Latin America & Caribbean","British Virgin Islands"
+"VIR","Latin America & Caribbean","Virgin Islands (U.S.)"
+"VNM","East Asia & Pacific","Vietnam"
+"VUT","East Asia & Pacific","Vanuatu"
+"WSM","East Asia & Pacific","Samoa"
+"XKX","Europe & Central Asia","Kosovo"
+"YEM","Middle East & North Africa","Yemen, Rep."
+"ZAF","Sub-Saharan Africa","South Africa"
+"ZMB","Sub-Saharan Africa","Zambia"
+"ZWE","Sub-Saharan Africa","Zimbabwe"

data/csv/custom_vessel_categories.csv

@@ -0,0 +1,55 @@
+vessel_type,vessel_category
+Accommodation Barge,Other
+Asphalt/Bitumen Tanker,Tanker
+Bulk Carrier,Bulk
+BULK CARRIER,Bulk
+Bunkering Tanker,Tanker
+Cable Ship,Other
+Cement Carrier,Bulk
+Chemical Tanker,Tanker
+Container,Container
+CONTAINER,Container
+Crude Oil Tanker,Tanker
+Crude Tanker,Tanker
+Dhow,Other
+Dredger,Other
+Fishing Vessel,Fishing
+Floating Production Storage and Offloading,Other
+Floating Storage and Offloading,Other
+FPSO,Other
+General Cargo,Cargo
+Heavy Load Carrier,Cargo
+Hopper Dredger,Other
+Landing Craft,Other
+LNG Tanker,Tanker
+LPG Tanker,Tanker
+Maintenance Pontoon,Other
+Offshore Supply,Tanker
+Offshore Supply ship,Tanker
+Offshore Supply Ship,Tanker
+OFFSHORE SUPPLY SHIP,Tanker
+Offshore Support Vessel,Tug
+Offshore Tug,Tug
+Oil Tanker,Tanker
+Ore Carrier,Bulk
+Other,Other
+Passenger Boat,Passenger
+Passenger Ship,Passenger
+Pipe Lay Barge,Other
+Pipe Layer,Other
+Pleasure Craft,Passenger
+Product Tanker,Tanker
+PRODUCT TANKER,Tanker
+Refrigerated Cargo,Cargo
+Research Vessel,Passenger
+Ro-Ro,Passenger
+RO-RO CARGO SHIP,Passenger
+Supply Vessel,Tanker
+Support,Other
+Tanker,Tanker
+Tug,Tug
+Tug / Barge,Tug
+Tug and Barge,Tug
+Vehicle Carrier,Cargo
+Wood Chips Carrier,Bulk
+Yacht,Passenger

exploration.Rmd

@@ -0,0 +1,120 @@
+---
+title: "R Notebook"
+output:
+  html_document:
+    df_print: paged
+---
+
+```{r}
+library(tidyverse)
+library(lubridate)
+library(sf)
+library(leaflet)
+library(dataReporter)
+```
+```{r}
+source("importer_donnees_csv.R")
+source("pirateIcon.R")
+```
+
+```{r}
+glimpse(pirate_attacks_sf, width = 67)
+```
+```{r}
+pirate_attacks_sf_ss <- pirate_attacks_sf %>%
+  filter(data_source == "imb") %>%
+select(
+  date,
+  attack_type,
+  shore_distance,
+  vessel_type,
+  vessel_status
+) %>%
+  replace_na(list(vessel_status="Underway")) %>%
+  mutate(month_event = month(date),
+         year_event = year(date))
+```
+
+## Statistiques descriptives
+
+```{r}
+makeDataReport(pirate_attacks_sf_ss, replace = TRUE)
+```
+## Exporter les types de navires
+
+```{r}
+pirate_attacks_sf_ss %>%
+  group_by(vessel_type) %>%
+  st_set_geometry(NULL) %>%
+  count() %>%
+  arrange(desc(n)) %>%
+  write_csv("vessel_types.csv")
+```
+
+## Traitement manuel
+Je crée manuellement des catégories plus larges, puis je réimporte
+
+```{r}
+custom_vessel_categories <-
+  read_csv(
+    "data/csv/custom_vessel_categories.csv",
+    col_types = cols(vessel_type = col_character(),
+                     vessel_category = col_character())
+  )
+```
+
+
+```{r}
+pirate_attacks_sf_ss2 <- pirate_attacks_sf_ss %>% 
+  left_join(custom_vessel_categories)
+```
+
+```{r}
+pirate_attacks_sf_ss2 %>% sf::write_sf("data/geojson/pirate_attacks_sf_ss2.geojson")
+```
+
+## Filtrage
+
+```{r}
+pirate_attacks_sf_maps <- pirate_attacks_sf_ss2 %>%
+  filter(year_event == 2015, month_event==1)
+```
+
+```{r}
+m <- leaflet(pirate_attacks_sf_maps) %>%
+  addTiles() %>%
+  addMarkers(
+    popup = paste0(
+      "Type: ",
+      pirate_attacks_sf_maps$vessel_category,
+      "<br>",
+      "Statut: ",
+      pirate_attacks_sf_maps$vessel_status,
+      "<br>",
+      "Type d'attaque: ",
+      pirate_attacks_sf_maps$attack_type,
+      "<br>",
+      "Distance de la côte: ",
+      round(pirate_attacks_sf_maps$shore_distance, 2),
+      "km",
+      "<br>",
+      "Date: ",
+      pirate_attacks_sf_maps$date
+    ),
+    icon = pirateIcon,
+    clusterOptions = markerClusterOptions()
+  )
+```
+
+```{r}
+m
+```
+
+
+
+
+
+
+
+
+

importer_donnees_csv.R

@@ -0,0 +1,23 @@
+pirate_attacks_sf <-
+  read_csv(
+    "data/csv/pirate_attacks.csv",
+    col_types = cols(
+      date = col_date(format = ""),
+      time = col_character(),
+      longitude = col_double(),
+      latitude = col_double(),
+      attack_type = col_character(),
+      location_description = col_character(),
+      nearest_country = col_character(),
+      eez_country = col_character(),
+      shore_distance = col_double(),
+      shore_longitude = col_double(),
+      shore_latitude = col_double(),
+      attack_description = col_character(),
+      vessel_name = col_character(),
+      vessel_type = col_character(),
+      vessel_status = col_character(),
+      data_source = col_character()
+    )
+  ) %>%
+  st_as_sf(coords = c("longitude", "latitude"))

pirateIcon.R

@@ -0,0 +1,12 @@
+pirateIcon <- makeIcon(
+  iconUrl = "pirate.png",
+  iconWidth = 32,
+  iconHeight = 32,
+  iconAnchorX = 16,
+  iconAnchorY = 31,
+  shadowUrl = "pirate-ombre.png",
+  shadowWidth = 64,
+  shadowHeight = 64,
+  shadowAnchorX = 32,
+  shadowAnchorY = 62
+)

rsconnect/shinyapps.io/francoispelletiertest/AttaquesPiratesMaritime.dcf

@@ -0,0 +1,14 @@
+name: AttaquesPiratesMaritime
+title: AttaquesPiratesMaritime
+username:
+account: francoispelletiertest
+server: shinyapps.io
+hostUrl: https://api.shinyapps.io/v1
+appId: 5356361
+bundleId: 5395742
+url: https://francoispelletiertest.shinyapps.io/AttaquesPiratesMaritime/
+when: 1640058609.23462
+lastSyncTime: 1640058609.23463
+asMultiple: FALSE
+asStatic: FALSE
+ignoredFiles: data/csv/country_codes.csv|data/csv/country_indicators.csv|data/csv/custom_vessel_categories.csv|data/csv/pirate_attacks.csv|exploration.nb.html|exploration.Rmd

vessel_types.csv

@@ -0,0 +1,55 @@
+vessel_type,n
+Bulk Carrier,322
+Product Tanker,252
+Container,119
+General Cargo,67
+Chemical Tanker,53
+Tug,45
+Crude Oil Tanker,40
+LPG Tanker,40
+Tanker,30
+Fishing Vessel,27
+Crude Tanker,23
+Refrigerated Cargo,16
+Offshore Supply Ship,15
+LNG Tanker,9
+Offshore Tug,9
+Asphalt/Bitumen Tanker,8
+Heavy Load Carrier,7
+Offshore Support Vessel,7
+Offshore Supply ship,6
+Pipe Layer,6
+Research Vessel,6
+Vehicle Carrier,6
+Tug and Barge,5
+Ore Carrier,4
+PRODUCT TANKER,4
+BULK CARRIER,3
+Bunkering Tanker,3
+Dhow,3
+Offshore Supply,3
+Support,3
+Dredger,2
+Landing Craft,2
+OFFSHORE SUPPLY SHIP,2
+Other,2
+Ro-Ro,2
+Tug / Barge,2
+Wood Chips Carrier,2
+Yacht,2
+Accommodation Barge,1
+Cable Ship,1
+Cement Carrier,1
+CONTAINER,1
+Floating Production Storage and Offloading,1
+Floating Storage and Offloading,1
+FPSO,1
+Hopper Dredger,1
+Maintenance Pontoon,1
+Oil Tanker,1
+Passenger Boat,1
+Passenger Ship,1
+Pipe Lay Barge,1
+Pleasure Craft,1
+RO-RO CARGO SHIP,1
+Supply Vessel,1