add file encoding

ebv_metadata_app.R

@@ -17,11 +17,19 @@ t <- tryCatch(
     install.packages('checkmate')
   }
 )
+t <- tryCatch(
+  {find.package("withr")},
+  error = function(e){
+    install.packages('withr')
+  }
+)
 
 #load libraries
 library(shiny)
 library(stringr)
 library(checkmate)
+library(withr)
+
 
 ui <- fluidPage(
   #set style
@@ -1026,8 +1034,9 @@ server <- function(input, output) {
     ]
 }')
 
-            #write to file
-            write(json, input$outputpath)
+
+            #write to file and set encoding
+            withr::with_options(list(encoding = "UTF-8"), write(json, input$outputpath))
           }