Замените NA с пустым пространством вместо "" в загруженном файле блестящего приложения

Question

У меня есть простое блестящее приложение, из которого я загружаю текстовый файл.Проблема заключается в том, что я хочу заменить NA в моем фрейме данных общим пробелом вместо "".Я использую data[is.na(data)] <- ""

d1<-c("a","","b")
d2<-c("a","a","b")
d3<-c("","","b")
d4<-c("a","c","b")
d5<-c("","b","b")
NN2<-data.frame(Name,d1,d2,d3,d4,d5)

приложение

ui <- fluidPage(
  downloadLink("downloadData", "Download")
)

server <- function(input, output) {
  # Our dataset
  data <- NN2
  data[is.na(data)] <- ""
  output$downloadData <- downloadHandler(
    filename = function() {
      paste("data-", Sys.Date(), ".txt", sep="")
    },
    content = function(file) {
      write.table(data, file)
    }
  )
}

shinyApp(ui, server)

Answer 1

Помогает ли это:

write.table(data, file, na = "", quote = FALSE, row.names = FALSE)