solve lintr findings

iglauss · iglauss · commit f27ae68b4ca2 · 2025-07-10T13:56:01.000+01:00
diff --git a/R/helper_functions.R b/R/helper_functions.R
@@ -330,7 +330,7 @@ generate_plot <- function(
       )
     )
   
-  plotly::event_register(plt_obj, 'plotly_click')
+  plotly::event_register(plt_obj, "plotly_click")
 
   return(plt_obj)
 }
diff --git a/R/mod_edish.R b/R/mod_edish.R
@@ -296,7 +296,9 @@ edish_server <- function(
     
     # Return subj_id for communication with dv.papo
     return(
-      list(subj_id = shiny::reactive({plotly::event_data("plotly_click", source = "plot")$key}))
+      list(subj_id = shiny::reactive({
+        plotly::event_data("plotly_click", source = "plot")$key
+      }))
     )
     
   })

Original file line number	Diff line number	Diff line change
`@@ -330,7 +330,7 @@ generate_plot <- function(`
`330`	`330`	`)`
`331`	`331`	`)`
`332`	`332`
`333`		`- plotly::event_register(plt_obj, 'plotly_click')`
	`333`	`+ plotly::event_register(plt_obj, "plotly_click")`
`334`	`334`
`335`	`335`	`return(plt_obj)`
`336`	`336`	`}`
Original file line number	Diff line number	Diff line change
`@@ -296,7 +296,9 @@ edish_server <- function(`
`296`	`296`
`297`	`297`	`# Return subj_id for communication with dv.papo`
`298`	`298`	`return(`
`299`		`- list(subj_id = shiny::reactive({plotly::event_data("plotly_click", source = "plot")$key}))`
	`299`	`+ list(subj_id = shiny::reactive({`
	`300`	`+ plotly::event_data("plotly_click", source = "plot")$key`
	`301`	`+ }))`
`300`	`302`	`)`
`301`	`303`
`302`	`304`	`})`