does not work in static mode

[timelyportfolio]

Maybe I'm confused, but I thought d3tf should work in both static and shiny modes. static currently does not work since jQuery is not available in this line.

I did confirm that static sort of works when the jQuery depedency is added. Here is an example. Of course, you'll want to add jQuery in the yaml if you want to pursue this.

library(D3TableFilter)
library(htmltools)
library(magrittr)

tagList(d3tf(mtcars,
     tableProps = tableProps,
     showRowNames = TRUE,
     tableStyle = "table table-bordered"
)) %>%
  attachDependencies(
    htmlDependency(
      name = "jquery"
      ,version = "1.11.2"
      ,src = c(href = "http://code.jquery.com/")
        ,script = "jquery-1.11.2.min.js"
    )
  ) %>%
  htmltools::html_print()

Please sort of disregard if static is not an option. However, I would strongly encourage that a widget work in all contexts.

[ThomasSiegmund]

Dear Kenton,

thanks for all your nice comments, very helpful indeed.

I agree that static mode would be good to have. Actually I could make good
use of self contained html tables in my own work .

I've included jquery as first step, but there are at least two problems:

• TableFilter doesn't find it's css and some js files
• I guess I have to actively disable some of the shiny related functions
  for static mode

I will look into this soon.

Thanks again

Thomas

On Sun, Mar 1, 2015 at 10:47 PM, timelyportfolio notifications@github.com
wrote:

Maybe I'm confused, but I thought d3tf should work in both static and
shiny modes. static currently does not work since jQuery is not available
in this line
https://github.com/ThomasSiegmund/D3TableFilter/blob/master/inst/htmlwidgets/D3TableFilter.js#L15
.

I did confirm that static sort of works when the jQuery depedency is
added. Here is an example.

library(D3TableFilter)
library(htmltools)
library(magrittr)

tagList(d3tf(mtcars,
tableProps = tableProps,
showRowNames = TRUE,
tableStyle = "table table-bordered"
)) %>%
attachDependencies(
htmlDependency(
name = "jquery"
,version = "1.11.2"
,src = c(href = "http://code.jquery.com/")
,script = "jquery-1.11.2.min.js"
)
) %>%
htmltools::html_print()

Reply to this email directly or view it on GitHub
#1.

[ThomasSiegmund]

Please check latest version. Many things in static mode seem to work now.

saveWidget(... selfcontained = TRUE) fails for me with pandoc errors in this example:

����
library(magrittr)
library(htmlwidgets)
library(D3TableFilter)

tableProps <- list(
  btn_reset = TRUE,
  sort = TRUE,
  sort_config = list(
    # alphabetic sorting for the row names column, numeric for all other columns
    sort_types = c("String", rep("Number", ncol(mtcars)))
  )
);

mtcars %>% d3tf(tableProps = tableProps,
                        showRowNames = TRUE,
                        tableStyle = "table table-bordered") %>% 
  saveWidget(file = "test.html", selfcontained = TRUE)

[ThomasSiegmund]

Now D3 related functions work in static mode too, including D3 magic when editing a table. There is a demo script in examples: staticTableWithD3AndTableFilter.R