将包含编码的行添加到Google表单R包中googlesheets

我正在使用这个惊人的包，以便能够使用我的闪亮应用读取和上载数据。它工作正常，但是当我向工作表添加一行时，它不会保留来自服务器的相同编码，它们的行为不像以前行中的数据。我手动输入的西班牙语名称是可以的，但是当我使用该应用程序加载数据时，会在工作表中替换特殊的拉丁字符（UTF-8）。该数据在后续会话中未被应用程序识别。将包含编码的行添加到Google表单R包中googlesheets

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) 
}

然后，我在UI使用一个按钮，并在服务器观察员加载数据...

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') 

    } 

})

请......如果有人能帮助我会非常快乐。

来源

2016-06-06 Marcelo J. Rodríguez

我发现我需要uploding之前的字符编码向量...

我用：

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

和工作就好了！

来源

2016-06-06 21:14:06

将包含编码的行添加到Google表单R包中googlesheets

回答

相关问题