얻기 ImpactStory 자바 스크립트 위젯은

Question

나는 등을 모두 보여주는 빛나는 응용 프로그램에서 일한지

[질문 어제도 아직까지 답변을 https://groups.google.com/d/msg/shiny-discuss/1UmzvZJwM54/gdMmX7QQ-eIJ에 게시] 테이블과 rCharts (NVD3)는 몇 저널 기사의 일부 원시 altmetric 데이터를 차트로 http://spark.rstudio.com/ttso/alt/

샘플 데이터 내 코드 https://gist.github.com/tts/6990101

지금까지 너무 좋아하지만, 포함 할 때 지금은 어려움에 실행했습니다 위젯 표에서 http://impactstory.org/api-docs에 설명 된 JavaScript 위젯 wid 이 HTML 예제 http://users.tkk.fi/sonkkila/alt/arts.html에서와 같이 정상적으로 작동하지만 내 반짝이는 테이블에서 나타나는 마지막 (IS) 열은 비어 있습니다.

테이블을 unsanitized 상태로두면 HTML 코드가 있음을 알 수 있습니다. 그러나 위생 처리되면 사라집니다. server.R의 renderTable 코드 : https://gist.github.com/tts/6990101#file-server-r-L69-L85

HTML 소스에서 나는 ImpactStory 스크립트가 페이지 맨 위에 있어야한다는 것을 알 수 있습니다.

모든 안내를 환영합니다!

면책 조항 : R과 Shiny를 사용하고 있지만 JavaScript/CSS 초보자라고 생각합니다.

EDIT : 텍스트 요소 값이 없으므로 위생 HTML 코드가 사라집니다. a) 서로 다른 JS 스크립트 사이에 충돌이 있는지, 다른 순서로 올 필요가 있는지 (충돌에 대해 물어봐야 함) b) xtable()이 출력을 생성하는 방법에 문제가 있거나 c) Shiny는 impactstory.js 스크립트와 통신하는 방법을 알지 못합니다. 또는 d) Shiny가 스크립트를 전혀 보지 못합니다. 사용자 지정 출력 구성 요소를 빌드해야합니까?

EDIT2 : AFAIK 문제는 반응 적으로 출력 된 테이블에 JavaScript가 표시되지 않는다는 사실에 있습니다. 테스트 : ImpactStory JS에서 기사에 대해 알아야하는 모든 속성을 사용하여 수동으로 ui.R에 비 동적 HTML 코드를 추가하면 위젯이 잘 렌더링됩니다. 또한 server.R에 출력되는 데이터 프레임의 스크립트 요소를 추가하면 위젯이 렌더링되지만 루프를 수행하는 것을 멈추지 않습니다. :) 묻는 것과 비슷합니다. here, in question nr 2

Answer 1

글쎄, 그다지 좋지 않지만 한 순간에 해결할 해결책을 찾았습니다.

renderTable는 HTML 테이블을 렌더링하는 xtable 사용하고, http://cran.r-project.org/web/packages/xtable/vignettes/xtableGallery.pdf 참조 그것에 동안 당신은 당신의 자신의 살균 기능을 정의 할 수 있습니다 (페이지. 7) 여기

, 단순히 문자열로 열 머리글 '위젯'을 대체 스크립트를 정의하는 스크립트 :

output$table <- renderTable({ 
    ... 
    }, include.rownames = FALSE, sanitize.text.function = function(s) sub("Widget", "<script type=\"text/javascript\" src=\"http://impactstory.org/embed/v1/impactstory.js\"></script>", s)) 

이유는 아직 이해할 수 없기 때문에 처음에는 두 가지 위젯 세트가 있습니다.

양해 해 주셔서 감사합니다.