Вставьте формулу как текст в ячейку через openxlsx или googlesheets - PullRequest
Новая
       8

Вставьте формулу как текст в ячейку через openxlsx или googlesheets

0 голосов
/ 06 февраля 2019

Я пытаюсь загрузить и преобразовать файл Excel в Google Sheets.Однако формула не будет оцениваться в Google Sheets без предварительного взаимодействия с ячейкой.Например, в приведенном ниже примере кода простое добавление пробела внутри ячейки (через веб-интерфейс Sheets) после формулы даст желаемый результат («Hola» и «adios» в ячейках A2 и A3). 

library(googledrive)
library(openxlsx)

df <- structure(list(english.to.spanish = c("=GOOGLETRANSLATE(\"hello\", \"en\", \"es\")", 
                                      "=GOOGLETRANSLATE(\"goodbye\", \"en\", \"es\")")), row.names = c(NA, 
                                                                                                  -2L), class = c("tbl_df", "tbl", "data.frame"))
df

  english.to.spanish                             
  <chr>                                          
1 "=GOOGLETRANSLATE(\"hello\", \"en\", \"es\")"  
2 "=GOOGLETRANSLATE(\"goodbye\", \"en\", \"es\")"

wb <- createWorkbook()
addWorksheet(wb, sheetName = "eng_to_span")

writeData(wb,sheet = "eng_to_span",
          x = df)

saveWorkbook(wb,  "eng_to_spanish.xlsx", overwrite = TRUE)

progress.sheet <- drive_upload(media = "eng_to_spanish.xlsx", 
                              type = "spreadsheet")

browseURL(drive_link(as_id(progress.sheet$id)))

Мне нужно сделать это в сотнях электронных таблиц, поэтому я ищу решение для программирования / создания сценариев.

...