[R] 'Double to logical' error

Tue Sep 7 17:42:17 CEST 2021

thanks

i get a red bar to the left of all of this

for (indiv_meta in to_include){
  graph_results$estimate[j]=results_list[[indiv_meta]]$b
  graph_results$lb[j]=results_list[[indiv_meta]]$ci.lb
  graph_results$ub[j]=results_list[[indiv_meta]]$ci.ub
  graph_results$p[j]=results_list[[indiv_meta]]$pval
  a <- as.character(results_list[[indiv_meta]]$slab)
  #this reduces the 'k' printed on the graph for instancews where sibsamples counted as sepearte studies
  b <- substr( a, start = nchar(a) - 1 , stop = nchar(a)-1)
  num_dups = sum(b==".")/2
  graph_results$k[j]=as.integer(results_list[[indiv_meta]]$k)-num_dups
  j=j+1
}

rlang last trace gives this

<error/tibble_error_assign_incompatible_type>
Assigned data `single_study_df` must be compatible with existing data.
ℹ Error occurred for column `third_ventricle_mn`.
x Can't convert from <double> to <logical> due to loss of precision.
* Locations: 1, 2.
Backtrace:
     █
  1. ├─global::calc_bilat(study, region, r, df)
  2. │ ├─base::`[<-`(...) aspd_funcs.r:11:2
  3. │ └─tibble:::`[<-.tbl_df`(...) aspd_funcs.r:11:2
  4. │   └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
  5. │     └─tibble:::tbl_subassign_row(x, i, value, value_arg)
  6. │       ├─base::withCallingHandlers(...)
  7. │       └─vctrs::`vec_slice<-`(`*tmp*`, i, value = value[[j]])
  8. │         └─(function () ...
  9. │           └─vctrs:::vec_cast.logical.double(...)
 10. │             └─vctrs::maybe_lossy_cast(out, x, to, lossy, x_arg = x_arg, to_arg = to_arg)
 11. │               ├─base::withRestarts(...)
 12. │               │ └─base:::withOneRestart(expr, restarts[[1L]])
 13. │               │   └─base:::doWithOneRestart(return(expr), restart)
 14. │               └─vctrs:::stop_lossy_cast(...)
 15. │                 └─vctrs:::stop_vctrs(...)
 16. │                   └─rlang::abort(message, class = c(class, "vctrs_error"), ...)
 17. │                     └─rlang:::signal_abort(cnd)
 18. │                       └─base::signalCondition(cnd)
 19. └─(function (cnd) ...

________________________________
From: Bill Dunlap <williamwdunlap using gmail.com>
Sent: Tuesday, September 7, 2021 4:06 PM
To: John Tully <mszjt1 using exmail.nottingham.ac.uk>
Cc: r-help using R-project.org <r-help using r-project.org>; McCutcheon, Robert <robert.mccutcheon using kcl.ac.uk>
Subject: Re: [R] 'Double to logical' error

Thanks.  If you can still reproduce the problem, what did
    rlang::last_trace()
report?

-Bill

On Tue, Sep 7, 2021 at 3:37 AM John Tully <John.Tully using nottingham.ac.uk<mailto:John.Tully using nottingham.ac.uk>> wrote:
Thank you

I ran:

```{r}
rlang::last_error()
```

Here is the output:

<error/tibble_error_assign_incompatible_type>
Assigned data `single_study_df` must be compatible with existing data.
ℹ Error occurred for column `third_ventricle_mn`.
x Can't convert from <double> to <logical> due to loss of precision.
* Locations: 1, 2.
Backtrace:
Run `rlang::last_trace()` to see the full context.

________________________________
From: Bill Dunlap <williamwdunlap using gmail.com<mailto:williamwdunlap using gmail.com>>
Sent: Monday, September 6, 2021 5:36 PM
To: John Tully <mszjt1 using exmail.nottingham.ac.uk<mailto:mszjt1 using exmail.nottingham.ac.uk>>
Cc: r-help using R-project.org <r-help using r-project.org<mailto:r-help using r-project.org>>; McCutcheon, Robert <robert.mccutcheon using kcl.ac.uk<mailto:robert.mccutcheon using kcl.ac.uk>>
Subject: Re: [R] 'Double to logical' error

>  Run `rlang::last_error()` to see where the error occurred

What did rlang::last_error() show?

-Bill

On Mon, Sep 6, 2021 at 9:19 AM John Tully <John.Tully using nottingham.ac.uk<mailto:John.Tully using nottingham.ac.uk>> wrote:
Dear colleagues
>
> in conducting a meta-analysis (of MRI data) I am running into the repeated issue:
>
> Error: Assigned data `single_study_df` must be compatible with existing data. ℹ Error occurred for column `accumbens_sd`. x Can't convert from <double> to <logical> due to loss of precision. * Locations: 1, 2. Run `rlang::last_error()` to see where the error occurred.
>
> This follows the commands
>
> for (region in regions){
>    for (study in unique(df$studyid)){
>      single_study_df <- df %>% filter(studyid==study)
>      if (is.na<http://is.na>(single_study_df[sprintf('%s_mn', region)][[1]]) & !is.na<http://is.na>(single_study_df[sprintf('%s_mn_l', region)])){
>        df <- calc_bilat(study, region, r, df)
>      }
>    }
> }
>
>
> My colleague (cc'd) believed it may be an issue with tidyverse version, however using an older version (1.2.1), the issue persists. note 'accumbens' is the first of many columns so I suspect this is why it flags this up.
>
> I would greatly value your input on this matter
>
> Kind regards
>
> John Tully
>
>
>
>

This message and any attachment are intended solely for the addressee
and may contain confidential information. If you have received this
message in error, please contact the sender and delete the email and
attachment.

Any views or opinions expressed by the author of this email do not
necessarily reflect the views of the University of Nottingham. Email
communications with the University of Nottingham may be monitored
where permitted by law.

        [[alternative HTML version deleted]]

______________________________________________
R-help using r-project.org<mailto:R-help using r-project.org> mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

This message and any attachment are intended solely for the addressee
and may contain confidential information. If you have received this
message in error, please contact the sender and delete the email and
attachment.

Any views or opinions expressed by the author of this email do not
necessarily reflect the views of the University of Nottingham. Email
communications with the University of Nottingham may be monitored
where permitted by law.

This message and any attachment are intended solely for the addressee
and may contain confidential information. If you have received this
message in error, please contact the sender and delete the email and
attachment. 

Any views or opinions expressed by the author of this email do not
necessarily reflect the views of the University of Nottingham. Email
communications with the University of Nottingham may be monitored 
where permitted by law.

	[[alternative HTML version deleted]]