init.R: load previous state or look in global memory about radiant

[vnijs]

Does this happen when you run Radiant or when you run your fork?

[kmezhoud]

I think for both. I reinstalled radiant 0.3.27 and run the same example as in my fork.
I restart R session and delete all object in Global env, .Rhistory and .RData.

readRDS can't read the path.

install.packages("radiant", repos = "http://vnijs.github.io/radiant_miniCRAN/", type = 'binary')
Restarting R session...
 library("radiant", lib.loc="/Library/Frameworks/R.framework/Versions/3.2/Resources/library")

radiant(app="base")
Loading required package: shiny
Listening on http://127.0.0.1:5688
Note: the specification for S3 class “AsIs” in package ‘BiocGenerics’ seems equivalent to one from package ‘jsonlite’: not turning on duplicate class definitions for this class.
Loading required package: DBI

<environment: namespace:clusterProfiler>
  class
      [3]
    [1]
....

.....
<environment: namespace:base>
message
call
Error in readRDS(fn) : error reading from connection
  <environment: namespace:httpuv>
conn
  [1]
  [2]
[1]
.....

I need to avoid lines between 130:160 in init.R

# else if (file.exists(paste0("~/r_sessions/r_", r_ssuid, ".rds"))) {
#   ## read from file if not in global
#   fn <- paste0(normalizePath("~/r_sessions"),"/r_", r_ssuid, ".rds")
#   rs <- readRDS(fn)
#   unlink(fn, force = TRUE)
#
#   if (length(rs$r_data) == 0)
#     r_data  <- init_state(reactiveValues())
#   else
#     r_data  <- do.call(reactiveValues, rs$r_data)
#
#   r_state <- rs$r_state
#   rm(rs)
# } else if (r_local && file.exists(paste0("~/r_sessions/r_", mrsf, ".rds"))) {
#
#   ## restore from local folder but assign new ssuid
#   fn <- paste0(normalizePath("~/r_sessions"),"/r_", mrsf, ".rds")
#   rs <- readRDS(fn)
#   #rs <- readRDS(fn)
#
#   unlink(fn, force = TRUE)
#
#   if (length(rs$r_data) == 0)
#     r_data  <- init_state(reactiveValues())
#   else
#     r_data  <- do.call(reactiveValues, rs$r_data)
#
#   r_state <- rs$r_state
#
#   ## don't navigate to same tab in case the app locks again
#   r_state$nav_radiant <- NULL
#   rm(rs)
# }

[vnijs]

I don't see this issue in any version of Radiant. If your fork works when you uncomment those lines I assume you are fine. If not, please provide a reproducible example where Radiant throws an error (i.e., not your fork).