Render Elements in Tabset about shiny.semantic

[maju116]

@biranjan There's no more need to add suspendWhenHidden = FALSE in outputOptions. This issue was solved in 86b274d

[krystian8207]

Hi. We added 37bfd80 fix to this issue. To proper functioning, you should also add suspendWhenHidden = FALSE outputOption for each output, as in the following example:

library(shiny)
library(shiny.semantic)
library(highlighter)
library(magrittr)
library(plotly)

ui <- shinyUI(semanticPage(
  suppressDependencies("bootstrap"),
  tabset(tabs=
           list(
             list(menu="First Tab", content= "Text works well"),
             list(menu="Second Tab",content=plotOutput("plot1")),
             list(menu="Second Tab",content=plotlyOutput("plot2"))
           )
  )
  # Below comment fixes issue manually, without last commit:
  # ,tags$script(paste0("$('.menu .item').tab({onVisible: function() {$(window).resize()} });"))
))
server <- shinyServer(function(input, output) {
  output$plot1 <- renderPlot(plot(1,1))
  outputOptions(output, "plot1", suspendWhenHidden = FALSE)

  output$plot2 <- renderPlotly(plot_ly(mtcars, x=~mpg, y=~cyl, width = "100%"))
  outputOptions(output, "plot2", suspendWhenHidden = FALSE)
})

shiny::shinyApp(ui, server)

If you want to use cran version of shiny.semantic just uncomment the last parameter of ui above in orderto fix the issue manually, otherwise install the package from github.

[biranjan]

First, thanks for such a great package it really adds shine to shiny. For some reason when I reinstalled the package via github it didn't really work, however, the solution presented above did work. There seem to be missing: , before the tags$script though in case if anyone copy pastes it without adding missing ,.

[filipstachura]

@biranjan Thanks, for the feedback. (I've added the , in the example)

Closing the issue.