R shiny app only half page in browser is showing

up vote
0
down vote

favorite

I have checked the post Shiny app is only half of browser window and I've tried JJ1603's suggestion.
I added

options = list(height = 1080)

but my map is still showing half page in browser.

I've also tried

library("htmlwidgets")



window_height <- JS('window.innerHeight')

window_width <- JS('window.innerWidth')



# Run the application 

shinyApp(ui = ui, server = server, options = list(height = window_height, width = window_width))

but it's still not working.

my code

# Define UI for application

ui <- fluidPage(     

  leafletOutput("mymap")

)



# Define server

server <- function(input, output) {     

  data <- read.csv("dat.csv")    

  })





  output$mymap <- renderLeaflet({

    leaflet(data) %>%           

      addProviderTiles("Esri.WorldImagery") %>%          

      addCircleMarkers(lng = ~ long, 

                       lat= ~ lat, 

                       color = "#00d4ff", 

                       radius = factor(data$freq),

                       label = lapply(labs, HTML),

                       clusterOptions = markerClusterOptions()

      )

  })

}

# Run the application 

# shinyApp(ui, server)

shinyApp(ui = ui, server = server, options = list(height = window_height, width = window_width))

asked Nov 5 at 3:47

Yeshyyy

749

Set the width for leafletOutput. leafletOutput("mymap", width = "100"). Try it.
– Jim Todd
Nov 5 at 3:59

1

oh it made the map width really small :/ but your suggestion led me straight to an answer. I used height instead of weight: leafletOutput("mymap", height = "95vh") thanks a lot Jim =)
– Yeshyyy
Nov 5 at 4:09

add a comment |

up vote
0
down vote

favorite

I have checked the post Shiny app is only half of browser window and I've tried JJ1603's suggestion.
I added

options = list(height = 1080)

but my map is still showing half page in browser.

I've also tried

library("htmlwidgets")



window_height <- JS('window.innerHeight')

window_width <- JS('window.innerWidth')



# Run the application 

shinyApp(ui = ui, server = server, options = list(height = window_height, width = window_width))

but it's still not working.

my code

# Define UI for application

ui <- fluidPage(     

  leafletOutput("mymap")

)



# Define server

server <- function(input, output) {     

  data <- read.csv("dat.csv")    

  })





  output$mymap <- renderLeaflet({

    leaflet(data) %>%           

      addProviderTiles("Esri.WorldImagery") %>%          

      addCircleMarkers(lng = ~ long, 

                       lat= ~ lat, 

                       color = "#00d4ff", 

                       radius = factor(data$freq),

                       label = lapply(labs, HTML),

                       clusterOptions = markerClusterOptions()

      )

  })

}

# Run the application 

# shinyApp(ui, server)

shinyApp(ui = ui, server = server, options = list(height = window_height, width = window_width))

asked Nov 5 at 3:47

Yeshyyy

749

Set the width for leafletOutput. leafletOutput("mymap", width = "100"). Try it.
– Jim Todd
Nov 5 at 3:59

1

oh it made the map width really small :/ but your suggestion led me straight to an answer. I used height instead of weight: leafletOutput("mymap", height = "95vh") thanks a lot Jim =)
– Yeshyyy
Nov 5 at 4:09

add a comment |

up vote
0
down vote

favorite

I have checked the post Shiny app is only half of browser window and I've tried JJ1603's suggestion.
I added

options = list(height = 1080)

but my map is still showing half page in browser.

I've also tried

library("htmlwidgets")



window_height <- JS('window.innerHeight')

window_width <- JS('window.innerWidth')



# Run the application 

shinyApp(ui = ui, server = server, options = list(height = window_height, width = window_width))

but it's still not working.

my code

# Define UI for application

ui <- fluidPage(     

  leafletOutput("mymap")

)



# Define server

server <- function(input, output) {     

  data <- read.csv("dat.csv")    

  })





  output$mymap <- renderLeaflet({

    leaflet(data) %>%           

      addProviderTiles("Esri.WorldImagery") %>%          

      addCircleMarkers(lng = ~ long, 

                       lat= ~ lat, 

                       color = "#00d4ff", 

                       radius = factor(data$freq),

                       label = lapply(labs, HTML),

                       clusterOptions = markerClusterOptions()

      )

  })

}

# Run the application 

# shinyApp(ui, server)

shinyApp(ui = ui, server = server, options = list(height = window_height, width = window_width))

asked Nov 5 at 3:47

Yeshyyy

749

I have checked the post Shiny app is only half of browser window and I've tried JJ1603's suggestion.
I added

options = list(height = 1080)

but my map is still showing half page in browser.

I've also tried

library("htmlwidgets")



window_height <- JS('window.innerHeight')

window_width <- JS('window.innerWidth')



# Run the application 

shinyApp(ui = ui, server = server, options = list(height = window_height, width = window_width))

but it's still not working.

my code

# Define UI for application

ui <- fluidPage(     

  leafletOutput("mymap")

)



# Define server

server <- function(input, output) {     

  data <- read.csv("dat.csv")    

  })





  output$mymap <- renderLeaflet({

    leaflet(data) %>%           

      addProviderTiles("Esri.WorldImagery") %>%          

      addCircleMarkers(lng = ~ long, 

                       lat= ~ lat, 

                       color = "#00d4ff", 

                       radius = factor(data$freq),

                       label = lapply(labs, HTML),

                       clusterOptions = markerClusterOptions()

      )

  })

}

# Run the application 

# shinyApp(ui, server)

shinyApp(ui = ui, server = server, options = list(height = window_height, width = window_width))

r shiny leaflet

asked Nov 5 at 3:47

Yeshyyy

749

asked Nov 5 at 3:47

Yeshyyy

749

asked Nov 5 at 3:47

Yeshyyy

749

asked Nov 5 at 3:47

Yeshyyy

749

asked Nov 5 at 3:47

Yeshyyy

749

Set the width for leafletOutput. leafletOutput("mymap", width = "100"). Try it.
– Jim Todd
Nov 5 at 3:59

1

oh it made the map width really small :/ but your suggestion led me straight to an answer. I used height instead of weight: leafletOutput("mymap", height = "95vh") thanks a lot Jim =)
– Yeshyyy
Nov 5 at 4:09

add a comment |

Set the width for leafletOutput. leafletOutput("mymap", width = "100"). Try it.
– Jim Todd
Nov 5 at 3:59

1

oh it made the map width really small :/ but your suggestion led me straight to an answer. I used height instead of weight: leafletOutput("mymap", height = "95vh") thanks a lot Jim =)
– Yeshyyy
Nov 5 at 4:09

Set the width for leafletOutput. leafletOutput("mymap", width = "100"). Try it.
– Jim Todd
Nov 5 at 3:59

oh it made the map width really small :/ but your suggestion led me straight to an answer. I used height instead of weight: leafletOutput("mymap", height = "95vh") thanks a lot Jim =)
– Yeshyyy
Nov 5 at 4:09

add a comment |

1 Answer
1

active

oldest

votes

up vote
1
down vote

This worked :

ui <- fluidPage(



  leafletOutput("mymap", height = "95vh")

)

Thanks to Jim Todd =)

answered Nov 5 at 4:11

Yeshyyy

749

add a comment |

Your Answer

StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});

}
});

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53148052%2fr-shiny-app-only-half-page-in-browser-is-showing%23new-answer', 'question_page');
}
);

Post as a guest

Name

1 Answer
1

active

oldest

votes

1 Answer
1

active

oldest

votes

up vote
1
down vote

This worked :

ui <- fluidPage(



  leafletOutput("mymap", height = "95vh")

)

Thanks to Jim Todd =)

answered Nov 5 at 4:11

Yeshyyy

749

add a comment |

up vote
1
down vote

This worked :

ui <- fluidPage(



  leafletOutput("mymap", height = "95vh")

)

Thanks to Jim Todd =)

answered Nov 5 at 4:11

Yeshyyy

749

add a comment |

up vote
1
down vote

This worked :

ui <- fluidPage(



  leafletOutput("mymap", height = "95vh")

)

Thanks to Jim Todd =)

answered Nov 5 at 4:11

Yeshyyy

749

This worked :

ui <- fluidPage(



  leafletOutput("mymap", height = "95vh")

)

Thanks to Jim Todd =)

answered Nov 5 at 4:11

Yeshyyy

749

answered Nov 5 at 4:11

Yeshyyy

749

answered Nov 5 at 4:11

Yeshyyy

749

answered Nov 5 at 4:11

Yeshyyy

749

add a comment |

draft saved

draft discarded

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Name

This page is only for reference, If you need detailed information, please check here

搜尋此網誌

Wsrtjtyk

R shiny app only half page in browser is showing

my code

my code

my code

my code

1 Answer
1

Your Answer

Post as a guest

1 Answer
1

1 Answer
1

Post as a guest

這個網誌中的熱門文章

Hercules Kyvelos

Tangent Lines Diagram Along Smooth Curve

Yusuf al-Mu'taman ibn Hud

R shiny app only half page in browser is showing

my code

my code

my code

my code

1 Answer 1

Your Answer

Sign up or log in

Post as a guest

Post as a guest

1 Answer 1

1 Answer 1

Sign up or log in

Post as a guest

Post as a guest

Sign up or log in

Post as a guest

Sign up or log in

Post as a guest

Sign up or log in

Post as a guest

這個網誌中的熱門文章

Hercules Kyvelos

Tangent Lines Diagram Along Smooth Curve

Yusuf al-Mu'taman ibn Hud

1 Answer
1

1 Answer
1

1 Answer
1