The below application when launched on browser works fine but when opened locally, the displacements are not working properly. Please refer the below screen shots for reference. Is there a need to install any libraries for this?

library(shiny)
library(shinyjs)
library(DT)


ui <- fluidPage(tags$style(".act_button {
 width: 200px;
  height: 100px;
  background-color: #ADD8E6;
  border: none;
  display: grid;
  grid-template-columns: auto auto;
  place-content: space-between;
}",".act_button>span {
  padding: 5px;
}",
".act_button>.right {
  justify-self: end;
}",".act_button>.left {
  justify-self: start;
}"),
  useShinyjs(),
  titlePanel("Inputs"),
  fluidRow(
    # actionButton("modify","Modify"),
    actionButton("show",class = "act_button", list(span(class="top left", "Top left"), span(class="top right", "Top right"))),
           DTOutput("table2")
  ) # close fluid row
) # close fluid page

server <- function(input, output, session) {
  
  # rv <- reactiveValues(mat = matrix3Input("matrix", default_mat), input = default_mat)
  hide("table2")
  
  # browser()
  observeEvent(input$show,{
    show("table2")
    hide("show")
    hide("hide")
  })
  

  
  output$table2 <- renderDT({
    datatable(head(iris), rownames = TRUE)
  })
  
} # close server

shinyApp(ui, server)

Locally
image

Browser
image

This topic was automatically closed 21 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.