Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Outlier explorer widget doesn't render #137

Open
xni7 opened this issue Apr 15, 2023 · 0 comments
Open

Outlier explorer widget doesn't render #137

xni7 opened this issue Apr 15, 2023 · 0 comments

Comments

@xni7
Copy link
Contributor

xni7 commented Apr 15, 2023

@jwildfire outlier explorer htmlwidget seems to break and not rendering with following reprex

# HEAD of dev as of 15APR2023
remotes::install_github("SafetyGraphics/safetyCharts@9f99670")
# HEAD of dev as of 15APR2023
remotes::install_github("SafetyGraphics/safetyGraphics@b34bca0")

# Restart the R session
rstudioapi::restartSession()
rm(list=ls())

library(purrr)
library(safetyData)

sdtm <- list(
  dm=safetyData::sdtm_dm,
  aes=safetyData::sdtm_ae,
  labs=safetyData::sdtm_lb
)

outExpChart <- makeChartConfig() %>% purrr::keep(~.x$name == "safetyOutlierExplorer")

safetyGraphics::safetyGraphicsApp(
  charts = outExpChart,
  domainData=sdtm
)

Chrome dev console Error Msg:

shinyapp.ts:861 The selector you chose (".sg-safetyOutlierExplorer-chart-header .chart-header") could not be found in the DOM.
(anonymous) @ shinyapp.ts:861
htmlwidgets.js:735 Uncaught Error: All fields must be arrays
    at window.HTMLWidgets.dataframeToD3 (htmlwidgets.js:735:19)
    at Object.renderValue (defineWidget.js:16:46)
    at Object.renderValue (htmlwidgets.js:885:25)
    at shinyBinding.renderValue (htmlwidgets.js:539:20)
    at e.value (outputBinding.ts:48:12)
    at delegator.<computed> [as onValueChange] (htmlwidgets.js:112:23)
    at e.value (outputAdapter.ts:39:20)
    at e.value (shinyapp.ts:565:17)
    at e.<anonymous> (shinyapp.ts:743:20)
    at e.value (shinyapp.ts:724:29)

Chart renders ok with older version of {safetyCharts}

# commit 6dcac07 = July 18, 2022 
remotes::install_github("SafetyGraphics/safetyCharts@6dcac07")

# Restart the R session
rstudioapi::restartSession()
rm(list=ls())

library(purrr)
library(safetyData)

sdtm <- list(
  dm=safetyData::sdtm_dm,
  aes=safetyData::sdtm_ae,
  labs=safetyData::sdtm_lb
)

outExpChart <- makeChartConfig() %>% purrr::keep(~.x$name == "safetyOutlierExplorer")

safetyGraphics::safetyGraphicsApp(
  charts = outExpChart,
  domainData=sdtm
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

1 participant