| data_sets <- c("mtcars", "morley", "rock") | |
| shinyServer(function(input, output) { | |
| # Drop-down selection box for which data set | |
| output$choose_dataset <- renderUI({ | |
| selectInput("dataset", "Data set", as.list(data_sets)) | |
| }) | |
| # Check boxes |
People
 :bowtie: |
😄 :smile: |
😆 :laughing: |
|---|---|---|
😊 :blush: |
😃 :smiley: |
:relaxed: |
😏 :smirk: |
😍 :heart_eyes: |
😘 :kissing_heart: |
😚 :kissing_closed_eyes: |
😳 :flushed: |
😌 :relieved: |
😆 :satisfied: |
😁 :grin: |
😉 :wink: |
😜 :stuck_out_tongue_winking_eye: |
😝 :stuck_out_tongue_closed_eyes: |
😀 :grinning: |
😗 :kissing: |
😙 :kissing_smiling_eyes: |
😛 :stuck_out_tongue: |
| library(shiny) | |
| library(datasets) | |
| Logged = FALSE; | |
| PASSWORD <- data.frame(Brukernavn = "withr", Passord = "25d55ad283aa400af464c76d713c07ad") | |
| # Define server logic required to summarize and view the selected dataset | |
| shinyServer(function(input, output) { | |
| source("www/Login.R", local = TRUE) | |
| observe({ | |
| if (USER$Logged == TRUE) { |
| git branch -m old_branch new_branch # Rename branch locally | |
| git push origin :old_branch # Delete the old branch | |
| git push --set-upstream origin new_branch # Push the new branch, set local branch to track the new remote |
| library(shiny) | |
| library(dplyr) | |
| library(lubridate) | |
| # Load libraries and functions needed to create SQLite databases. | |
| library(RSQLite) | |
| library(RSQLite.extfuns) | |
| saveSQLite <- function(data, name){ | |
| path <- dplyr:::db_location(filename=paste0(name, ".sqlite")) |
| library(shiny) | |
| shinyServer(function(input, output) { | |
| # Initialize list of inputs | |
| inputTagList <- tagList() | |
| output$allInputs <- renderUI({ | |
| # Get value of button, which represents number of times pressed (i.e. number of inputs added) | |
| i <- input$appendInput |
| # | |
| # This Shiny web application demonstrates the use of custom image files | |
| # in place of icons for value boxes in Shiny Dashboard by overriding two | |
| # functions: | |
| # | |
| # 'icon' from the shiny package and 'valueBox' from the shinydashboard package. | |
| # | |
| # Each function adds minimal, specific additional handling of image files. | |
| # Note: A custom css file must also be included so that value boxes can | |
| # display the icons. For that reason, do not expect images in place of icons to |
| # originally from: http://stackoverflow.com/questions/42528400/plot-brushing-or-accessing-drawn-shape-geometry-for-spatial-subsets-in-shiny-lea | |
| # uses https://github.com/bhaskarvk/leaflet.extras | |
| library(shiny) | |
| library(leaflet) | |
| library(leaflet.extras) | |
| library(sp) | |
| cities <- structure(list(AccentCity = c("Saint Petersburg", "Harare", "Qingdao", | |
| "Addis Abeba", "Xian", "Anshan", "Rongcheng", "Kinshasa", "New York", |
| library(shiny) | |
| library(shinyjs) | |
| if (!dir.exists('www/')) { | |
| dir.create('www') | |
| } | |
| download.file( | |
| url = 'https://cdn.jsdelivr.net/npm/js-cookie@2/src/js.cookie.min.js', | |
| destfile = 'www/js.cookie.js' |
| var url ='https://www.google.de/search?q=Yahoo+logo&source=lnms&tbm=isch&sa=X'; | |
| var page = new WebPage() | |
| var fs = require('fs'); | |
| var vWidth = 1080; | |
| var vHeight = 1920; | |
| page.viewportSize = { | |
| width: vWidth , | |
| height: vHeight |
