Hinzufügen von Zeilen mit Codierung zu einem Google Sheet R-Paket googlesheets

Question

Ich verwende dieses erstaunliche Paket, um mit meiner glänzenden App Daten lesen und hochladen zu können. Es funktioniert gut, aber wenn ich dem Blatt eine Zeile hinzufüge, behält es nicht die gleiche Kodierung vom Server, und verhält sich auch nicht wie die Daten in den vorherigen Zeilen. Spanische Namen, die ich manuell eingegeben habe, sind OK, aber wenn ich die App zum Laden von Daten verwende, werden spezielle lateinische Zeichen (UTF-8) im Blatt ersetzt. Diese Daten werden in den folgenden Sitzungen von der App nicht erkannt.

library(googlesheets) 

table <- "Reportes" 

saveData <- function(data) { 
    # Grab the Google Sheet 
    sheet <- gs_title(table) 
    # Add the data as a new row 
    gs_add_row(sheet, input = data) 
} 

loadData <- function() { 
    # Grab the Google Sheet 
    sheet <- gs_title(table) 
    # Read the data 
    gs_read_csv(sheet) 
} 

Dann verwende ich eine Schaltfläche in der Benutzeroberfläche und ein Beobachter in dem Server die Daten zu laden ...

observeEvent(input$enviar, { 
    exit <- input$enviar 
    if (exit==1){ 

     addData <- c(as.character(input$fecha), 
        as.character(input$local), 
        as.character(input$dpto), 
        as.character(input$estado), 
        as.character(input$fsiembra), 
        as.character(input$ref), 
        as.character(loc$lat[loc$Departamento==input$dpto & loc$Localidad==input$local]), 
        as.character(loc$long[loc$Departamento==input$dpto & loc$Localidad==input$local]), 
        as.character(getZafra(input$fecha))) 

     saveData(addData) 

     d <- loadData() 

     reset('fecha') 
     reset('dpto') 
     reset('local') 
     reset('estado') 
     reset('fsiembra') 
     reset('ref') 
     reset('pass') 

     disable('enviar') 

    } 

}) 

Bitte ... wenn jemand helfen kann, würde ich sehr sein glücklich.

Answer 1

ich entdeckte, dass ich brauchte den Charakter Vektor vor uploding ...

Früher habe ich zu kodieren:

Encoding(addData) = "latin1" 
saveData(addData) 

und funktionierte gut !.