Tabbed Dash for R app with resizing figure

gistfile1.txt

library(dash)
library(dashHtmlComponents)
library(dashCoreComponents)
library(plotly)

app <- Dash$new()

app$layout(
  htmlDiv(
    children = list(
      dccTabs(
        children = list(
          dccTab(
            label = "Partner Map",
            children = htmlDiv(
              # Set the height of the div in your tab
              style = list(height = "90vh"),
              children = dccGraph(
                # Set the graph to inherit the height of its parent div 
                style = list(height = "inherit"),
                # Insert your plot_ly plot here:
                figure = plot_geo() %>%
                  layout(
                    geo = list(
                      showframe = FALSE,
                      showcountries = TRUE,
                      showland = TRUE,
                      landcolor =  "grey"
                    )
                  )
              )
            )
          ),
          dccTab(
            label = "Another tab"
          )
        )
      )
    )
  )
)

app$run_server()