Multiplue HTML in R Shiny

[mosman2]

I have multiple HTML files, and I would like to create a reactive function that changes according to the user input selections as follow:

library(shiny)
  library(shinydashboard)

  ui <- 
  dashboardPage(

  dashboardSidebar( sliderTextInput(
  inputId = "mySliderText", 
  label = "Story line", 
  grid = TRUE, 
  force_edges = TRUE,
  choices = c('1','2')
  )
  ),
  dashboardBody(
  fluidRow(
    column(9,  
           box(
             title = "Operations ", 
             closable = FALSE, 
             width = 9,
             status = "primary", 
             solidHeader = FALSE, 
             collapsible = TRUE,
             uiOutput("operations")
           )
         )
        )
      )
     )


server <- function(input, output,session) {

 operations_reactive <- reactive({
 if (input$mySliderText ==1)
 {
  return(includeHTML("trial1.html"))
 }
 else
 {
  return(includeHTML("trial2.html"))
 }
 })

 output$operations<-renderUI({operations_reactive()})
 }
 shinyApp(ui = ui, server = server)

it works but not in a proper way, the operations_reactive does not change when input$mySliderText changes

[nirgrahamuk]

Hello,
the code your provided did not work at all out of the box for me and required the following 3 things

1. adding library(shinywidgets) as sliderTextInput is used
2. adding an empty dashboardHeader() as otherwise dashboardPage complained
3. added trivial trial1.html and trial2.html files to my working directory, i made the contents of these <p>trial1</p> and <p>trial2</p> respectively.
   Having made these changes the app ran; also seemed to behave perfectly as I expected.

[mosman2]

I didn't get it where I should add <p>trial1</p> and <p>trial2</p> ? . Thank you for you support!

[nirgrahamuk]

in files called trial1.html and trial2.html.
your code mentioned them.

[mosman2]

Could you please show me how this should looks like, Thank you in advance!

[nirgrahamuk]

[mosman2]

I already have content inside my trial1.html and trial2.html so when I add what you have recommended I get this:

[nirgrahamuk]

and is there a problem ?

[mosman2]

yes still I get only one of the HTML files not both of them, I mean the reactive doesn't change the files

[nirgrahamuk]

the setup with the barebones html files works for me, therefore I can only assume something relevant to your problem appears in your different html (that I dont have access to) or else, the code you are trying is not quite the code you provided here plus my fixes... or there is some package version issue though this seems unlikely to me given the context.

if you remove all the content from trial1.html and trial2.html apart from the initial

i.e. get closer to the example that does in fact work on my machine, then does it start to work for you ?

[mosman2]

Fist of all I really appreciate your efforts and the generous support, I think the problem with the HTML files that I have. I tested the code with a very simple HTML that contains as you have suggested:
<p>trial1</p> and <p>trial2</p>, it works perfectly.
I attached to you under the following link my HTML files, and I would be grateful if you could give it a look and hopefully figure out what its problem:

WeTransfer - Send Large Files & Share Photos Online - Up to 2GB Free

[nirgrahamuk]

These files are not pure HTML, they seem to contain significant amounts of javascript.
The script parts which simply embed images are fine, I tested that.
How did you create/come by these HTML ?
I would try to produce them or edit them down, to remove all non-essential javascript.

[mosman2]

yes you are right, I created them through R markdown so they are not pure HTML

[nirgrahamuk]

So, I recommend you alter your markdown to reduce it to minimal html/images and not to worry in principle this would include the detail and summary functions that your examples use . i.e <details>: The Details disclosure element - HTML: HyperText Markup Language | MDN
this is pure HTML and doesnt need more javascript.

good luck !

[nirgrahamuk]

How to render HTML from RMarkdown without javascript in output

[mosman2]

You are awesome! the problem has been solved based on this solution. Many thanks!