updated to counter warning

This commit is contained in:
Andreas Gammelgaard Damsbo 2023-06-05 11:07:48 +02:00
parent 4b9cb07c43
commit 50dab684bb

View File

@ -15,11 +15,8 @@ utils::globalVariables(c("name","value","facet"))
#' @return ggplot element #' @return ggplot element
#' #'
#' @import ggplot2 #' @import ggplot2
#' @importFrom dplyr mutate #' @importFrom dplyr mutate select
#' @importFrom dplyr select #' @importFrom tidyr pivot_longer all_of ends_with
#' @importFrom tidyr pivot_longer
#' @importFrom tidyr all_of
#' @importFrom tidyr ends_with
#' #'
#' @export #' @export
#' #'
@ -35,7 +32,7 @@ index_plot <- function(ds,id="id",sub_plot="_is",
df_plot<-ds|> df_plot<-ds|>
dplyr::select(c(id, dplyr::select(c(id,
facet.by, tidyr::all_of(facet.by),
tidyr::ends_with(scores)))|> tidyr::ends_with(scores)))|>
tidyr::pivot_longer(cols=-c(id,tidyr::all_of(facet.by)))|> tidyr::pivot_longer(cols=-c(id,tidyr::all_of(facet.by)))|>
subset(grepl(sub_plot,name))|> subset(grepl(sub_plot,name))|>