encoding difference between local and remote shinyapps.io

readr_local_exported_display_main_data.csv

readr_shinyapps_exported_display_main_data.csv

server.R

library("tidyverse")
library("shiny")
library("DT")
library("pool")
library("dbplyr")
library("RMySQL")

function(input, output, session) {
  observe({
    if (session$clientData$url_hostname == "127.0.0.1") {
      oxrep_db <- dbPool(
        drv = RMySQL::MySQL(),
        dbname = "oxrep",
        port = 3306,
        host = "163.1.169.203",
        user = "ouit0409"
      )

      display_main_data <- oxrep_db %>%
        tbl("Shipwrecks") %>%
        collect() %>%
        slice(285:300) %>%
        mutate(encoding = Encoding(wreckName)) %>%
        select(encoding, wreckSite)

      display_main_data %>%
        write_csv("data/readr_local_exported_display_main_data.csv")

      display_main_data %>%
        write.csv("data/utils_local_exported_display_main_data.csv")

    } else {
      oxrep_db <- dbPool(
        drv = RMySQL::MySQL(),
        dbname = "oxrep",
        port = 3306,
        host = "163.1.169.203",
        user = "shiney"
      )

      display_main_data <- oxrep_db %>%
        tbl("Shipwrecks") %>%
        collect() %>%
        slice(285:300) %>%
        mutate(encoding = Encoding(wreckName)) %>%
        select(encoding, wreckSite)

      display_main_data %>%
        write_csv("data/readr_shinyapps_exported_display_main_data.csv")

      display_main_data %>%
        write.csv("data/utils_shinyapps_exported_display_main_data.csv")


    }

  })

  output$readr_local_exported_display_main_table_DT <-
    DT::renderDataTable({
      # input$update

      if (file.exists("data/readr_local_exported_display_main_data.csv")) {
        read_csv("data/readr_local_exported_display_main_data.csv") %>%
          datatable()
      } else {
        tibble(note = "You must run this app locally first!") %>%
          datatable()
      }

    })

  output$readr_shinyapps_exported_display_main_table_DT <-
    DT::renderDataTable({
      # input$update

      if (file.exists("data/readr_shinyapps_exported_display_main_data.csv")) {
        read_csv("data/readr_shinyapps_exported_display_main_data.csv") %>%
          datatable()
      } else {
        tibble(note = "You must run this app remotely as well!") %>%
          datatable()
      }

    })

  output$utils_local_exported_display_main_table_DT <-
    DT::renderDataTable({
      if (file.exists("data/utils_local_exported_display_main_data.csv")) {
        read_csv("data/utils_local_exported_display_main_data.csv") %>%
          datatable()
      } else {
        tibble(note = "You must run this app locally first!") %>%
          datatable()
      }

    })

  output$utils_shinyapps_exported_display_main_table_DT <-
    DT::renderDataTable({
      if (file.exists("data/utils_shinyapps_exported_display_main_data.csv")) {
        read_csv("data/utils_shinyapps_exported_display_main_data.csv") %>%
          datatable()
      } else {
        tibble(note = "You must run this app remotely as well!") %>%
          datatable()
      }


    })


}

ui.R

library("DT")

fluidPage(
  actionButton("update", "Update tables"),
  h1("readr_local_exported_display_main_table_DT"),
  DT::dataTableOutput("readr_local_exported_display_main_table_DT"),
  h1("readr_shinyapps_exported_display_main_table_DT"),
  DT::dataTableOutput("readr_shinyapps_exported_display_main_table_DT"),
  h1("utils_shinyapps_exported_display_main_table_DT"),
  DT::dataTableOutput("utils_shinyapps_exported_display_main_table_DT"),
  h1("utils_local_exported_display_main_table_DT"),
  DT::dataTableOutput("utils_local_exported_display_main_table_DT")
  )

utils_local_exported_display_main_data.csv

utils_shinyapps_exported_display_main_data.csv