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

Planned activities for 0.3 #14

Open
13 tasks
bedantaguru opened this issue Jan 14, 2020 · 4 comments
Open
13 tasks

Planned activities for 0.3 #14

bedantaguru opened this issue Jan 14, 2020 · 4 comments
Assignees
Labels
Documentation Improvements or additions to documentation Enhancement New feature or request Major Change This issue should result in a major code base change

Comments

@bedantaguru
Copy link
Member

bedantaguru commented Jan 14, 2020

These are the planned activity for 0.3.0
These are in progress in nightly
Few of these may be dropped (as all of these are experimental)

@bedantaguru
Copy link
Member Author

Also, follow a release routine for stability in the release process.

@bedantaguru bedantaguru self-assigned this Jan 14, 2020
@bedantaguru bedantaguru added Documentation Improvements or additions to documentation Enhancement New feature or request Major Change This issue should result in a major code base change labels Jan 14, 2020
@bedantaguru
Copy link
Member Author

Here are a few references for

{DT} based table plots

require(tidycells)
require(DT)

xl <- tidyxl::xlsx_cells("inst/extdata/marks.xlsx")
fmt <-tidyxl::xlsx_formats("inst/extdata/marks.xlsx")

cd <- as_cell_df(xl)

cdd <- as.data.frame(cd)

require(shiny)

std_opts <- list(
  pageLength = 10,
  keys = TRUE,
  sDom = '<"top">lrt<"bottom">pB',
  deferRender = TRUE,
  #scrollX = TRUE,
  scrollX= 400,
  scrollY = 500,
  scroller = TRUE,
  scrollCollapse = TRUE,
  ordering = FALSE,
  fixedColumns = TRUE,
  fixedHeader = TRUE
)


runGadget(shinyApp(
  ui = fluidPage(DTOutput("dt")),
  server = function(input, output){
    output$dt <- renderDT({
      datatable(cdd,
                escape = FALSE,
                rownames = TRUE,
                style = "bootstrap",
                fillContainer = FALSE,
                class = "cell-border stripe",
                extensions = c("KeyTable", "Scroller","FixedHeader"),
                selection = list(target = 'cell'),
                #editable = TRUE,
                options = std_opts)
    })
  }
))

I'll test it and keep a watch on the same.

@bedantaguru
Copy link
Member Author

bedantaguru commented Jan 16, 2020

Just tested this feature as mentioned here it is still not well connected to shiny. Hence going ahead with DT option. Maybe in later versions of DT this feature will be implemented.

(Here is the comment on this from DT developer)

DT has its own implementation of row/column/cell selections in Shiny, which is very different from the Select extension. In particular, the Select extension is unlikely to work in the server-side processing mode. On the other hand, DT’s implementation does not allow multiple selections via the Shift/Ctrl keys at the moment.

@bedantaguru
Copy link
Member Author

It [DT and Shiny with Select Extension] seems doable. However, this should be kept as an optional feature.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
Documentation Improvements or additions to documentation Enhancement New feature or request Major Change This issue should result in a major code base change
Projects
None yet
Development

No branches or pull requests

1 participant