Início / coding / Perguntas / 79215884
Accepted
scoa
Asked: 2024-11-23 00:51:12 +0800 CST

recuperar arquivo .RData de objeto sem nome criado com `magrittr::%>%`

  • 772

Cometi um erro e escrevi isto:

library(tidyverse)
list(x = rnorm(10)) %>% save(file = "test.RData")

em vez disso:

x <- list(x = rnorm(10)) 
save(x, file = "test.RData")

Como resultado, não consigo ler "test.RData" de volta

load("test.RData")
ls()
character(0)

No entanto, o arquivo ".RData" parece conter algo, pois o comando a seguir cria um arquivo de 73 MB, comparado a um 77 B com apenas dez valores. É simplesmente impossível ler de volta.

list(x = rnorm(10000000)) %>% save(file = "test.RData")

Curiosamente, o pipe base r |>gera um erro

list(x = rnorm(10)) |> save(file = "test.RData")
Error in save(list(x = rnorm(10)), file = "test.RData") : 
  object ‘list(x = rnorm(10))’ not found

O erro é fácil de corrigir e não o cometerei novamente, mas estou me perguntando o que está acontecendo nos bastidores:

  1. Por que save() não gera erro ao passar um objeto sem nome com %>%?
  2. Haveria uma maneira de carregar um arquivo .RData escrito dessa maneira?

1 respostas

  1. Best Answer

    Na verdade, ele é carregado como o nome .(ponto) que foi criado pelo %>%pipe. É equivalente ao seguinte que mostra explicitamente o nome:

    rnorm(10) %>% save(., file = "test.RData")

    Por outro lado, o pipe base |>não cria um novo nome que explique o erro se ele for usado. Ele funciona por meio da substituição do lado esquerdo no lado direito sem criar um novo nome, então é equivalente ao seguinte, que é um erro:

    save(rnorm(10), file = "test.RData") }

    Observe que

    rnorm(10) |> save(file = "test.RData") |> quote()
## save(rnorm(10), file = "test.RData")

    O motivo pelo qual o nome não aparece é que lsnão mostra nomes que começam com ponto, a menos que sejam chamados como

    ls(all = TRUE)

    Observe também que loadretorna um vetor de caracteres de nomes nele, de modo que outra maneira de obter o nome é olhar Namesonde

    Names <- load("test.RData")
Names
## [1] "."
    • 5

relate perguntas