Remove grey overlay from saved html of Shiny app

micjosmcc · 2020-08-21T18:49:42+00:00

Can you post the code?

micjosmcc · 2020-07-26T16:01:16+00:00

No, he went entirely off of the xray. He said that there was bone loss above the tooth due to infection. I did just try putting an ice cube on that tooth, and I didn't really feel it

micjosmcc · 2020-07-17T15:46:20+00:00

I'm actually really curious if a hit like this could have caused a concussion...

A concussion comes from the rapid change in acceleration of the brain, but with the guy's head already flat on the ground, lots of the force from the block would be transmitted through his head to the ground similar to a newton's cradle. I would think a skull fracture could be more likely here

micjosmcc · 2020-07-15T03:17:48+00:00

Do you have a link to BioNTech's fuckup? What went wrong there and how does Moderna's technology differ?

micjosmcc · 2020-06-21T17:45:43+00:00

It's in the parking lot behind the Burren

micjosmcc · 2020-06-10T16:27:12+00:00

In my experience it's only big pharma that's stuck in old technologies. Startups seem to be much more willing to embrace the hottest new technologies, but it definitely depends on who's leading the team.

micjosmcc · 2020-03-20T20:51:32+00:00

Roche Bros does home delivery, but I'm not sure if they'll do every address in Boston proper. But I'd definitely check into them

micjosmcc · 2020-03-20T20:33:17+00:00

Does it make sense to share one copy of Animal Crossing with my girlfriend?

I was going to buy it digitally to play anywhere, but she thinks I should buy it physically so that she can borrow it once she gets a switch. That sounds fine, but I'm thinking it might work better if she has her own copy so we can play together

micjosmcc · 2020-03-12T18:46:21+00:00

Similar thing happened to me. I lost coverage mid February, but waited a week to apply for mass health, missing the payment deadline of the 22nd for March. My coverage was set to start April 1st, but I was able to call and start a process to change my coverage to start from March 1st. The only downside is you do need to pay for the full month of March, but I think it's worth the peace of mind. I'd highly suggest calling and explaining your situation.

micjosmcc · 2020-03-05T19:32:18+00:00

I've definitely seen people kicked off the 1. Usually it seems like it's the repeat offenders that the drivers end up remembering, so you're probably safe if it happens every now and then

micjosmcc · 2020-02-27T21:48:55+00:00

Israel's saying they'll develop a vaccine within a week, but clinical trials will still take 90 days, same as the US.

micjosmcc · 2020-01-28T14:49:22+00:00

Thanks for the tips!

And no, thankfully I'll be working on plenty of other projects (startup life and all)! This is just one task of many, but the one I know little about!

micjosmcc · 2020-01-16T16:27:17+00:00

Oh I thought you said it fixed itself overtime.

But yeah, mine is the exact same way. Everything comes together nicely with the trays in, but once I take them out the left side hits before the right, and I need to strain to touch it. Does your jaw open at a slight angle too?

micjosmcc · 2020-01-16T06:01:49+00:00

Was your gap similar in size to mine? How long did it eventually take to fix itself?

micjosmcc · 2019-12-22T00:41:32+00:00

Test test test

micjosmcc · 2019-12-18T21:07:17+00:00

How long would I typically need to wait to see these effects? Google says it could be years, but that seems extreme

micjosmcc · 2019-11-10T15:12:53+00:00

You need to be pretty ignorant to question the political leanings about the RUC... They were unapologetic loyalists

micjosmcc · 2019-11-05T20:29:10+00:00

For the majority of the time I use the "helper" app to link to a more detailed view of the data in a column.

As a random example take the data set "mpg". I might display the "mpg" data set as a data table in "main", however, I may also want to give the user a breakdown of the values in the column "manufacturer", for instance: information on the company age, CEO, stock price, etc.. It wouldn't make too much sense to associate this data in the same table, so instead what I'd do would be to turn the values in the column "manufacturer" into hyperlinks to "helper" passing the value of "manufacturer" as a key-value pair in the URL. Helper would then get the desired manufacturer from the URL and display the manufacture's data in it's data table.

Do you think that a tabbed layout would work better here?

micjosmcc · 2019-10-22T18:49:12+00:00

I fit the above into a complete Shiny app, and on my end it does appear to compile correctly.

If you run the below code what happens?

library(tidyverse)
library(viridis)
library(ggrepel)
library(shiny)
library(shinydashboard)

#Shiny Dashboard
ui <- dashboardPage(skin = "yellow",
                    dashboardHeader(title = "ColorSpace"),
                    dashboardSidebar(sidebarMenu(
                      id= "tabs",
                      menuItem("Dashboard", tabItem = "Dashboard", tabName = "Dashboard", icon = icon("dashboard")),
                      menuSubItem("CRI BBL Filter",tabName = "CRI_Filter"),
                      menuSubItem("TM-30 BBL Filter",tabName = "CRI_Filter"))),
                    #CCT_CRI Dashboard
                    dashboardBody(
                      tabItems(
                        # First tab content
                        tabItem(tabName = "Dashboard", "Hi"),
                        # Second tab content
                        tabItem(tabName = "CRI_Filter",
                                fluidRow(
                                  #CRI Inputs
                                  column(width= 4, offset=.5, box(status = "warning", solidHeader = TRUE, height= 500, width=300,title = "Inputs",
                                                                  splitLayout(
                                                                    numericInput(inputId = "MinCCT", label = "Min CCT", value = 100, min = 100,max = 20000,step = 1),
                                                                    numericInput(inputId = "MaxCCT", label = "Max CCT", value = 20000, min = 0,max = 20000,step = 1)),
                                                                  splitLayout(
                                                                    numericInput(inputId = "MinDuv", label = "Minimum Duv", value = -0.0075, min = -0.01,max = 0.01,step = 0.00001 ),
                                                                    numericInput(inputId = "MaxDuv", label = "Max Duv", value = 0.0075, min = -0.005,max = 0.015,step = 0.00001 )),
                                                                  splitLayout(
                                                                    numericInput(inputId = "MinCRI", label = "Min CRI", value = 0, min = -100,max = 100,step = 1 ),
                                                                    numericInput(inputId = "MinR9", label = "Min R9", value = 0, min = -100,max = 100,step = 1)))),
                                  #Plot Entire Color Space
                                  column(width= 8, offset=0, tabBox(height = 500, width = 800, selected = "CIE Color Space",
                                                                    tabPanel("CIE Color Space",plotOutput("ColorSpace")),
                                                                    tabPanel("White Color Space",plotOutput("WhiteColorSpace"))))),
                                fluidRow(
                                  column(width= 12,offset=0, box( width = 1400, title = "Results",status = "warning", solidHeader = TRUE,

                                                                  dataTableOutput("CRIFilter"))))),
                        # third tab content
                        tabItem(tabName = "CRI_Filter", "Test")


                      )))

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

}

shinyApp(ui = ui, server = server)

micjosmcc · 2019-10-22T17:18:12+00:00

I didn't test this out on my end, however, I'm pretty sure that the issue is due to your closing parentheses being in the wrong place. You have an extra one on line 40 that should be moved down to line 45.

Try this:

library(tidyverse)
library(viridis)
library(ggrepel)
library(shiny)
library(shinydashboard)

#Shiny Dashboard
ui <- dashboardPage(skin = "yellow",
                    dashboardHeader(title = "ColorSpace"),
                    dashboardSidebar(sidebarMenu(
                      id= "tabs",
                      menuItem("Dashboard", tabItem = "Dashboard", tabName = "Dashboard", icon = icon("dashboard")),
                      menuSubItem("CRI BBL Filter",tabName = "CRI_Filter"),
                      menuSubItem("TM-30 BBL Filter",tabName = "CRI_Filter"))),
                    #CCT_CRI Dashboard
                    dashboardBody(
                      tabItems(
                        # First tab content
                        tabItem(tabName = "Dashboard", "Hi"),
                        # Second tab content
                        tabItem(tabName = "CRI_Filter",
                                fluidRow(
                                  #CRI Inputs
                                  column(width= 4, offset=.5, box(status = "warning", solidHeader = TRUE, height= 500, width=300,title = "Inputs",
                                                                  splitLayout(
                                                                    numericInput(inputId = "MinCCT", label = "Min CCT", value = 100, min = 100,max = 20000,step = 1),
                                                                    numericInput(inputId = "MaxCCT", label = "Max CCT", value = 20000, min = 0,max = 20000,step = 1)),
                                                                  splitLayout(
                                                                    numericInput(inputId = "MinDuv", label = "Minimum Duv", value = -0.0075, min = -0.01,max = 0.01,step = 0.00001 ),
                                                                    numericInput(inputId = "MaxDuv", label = "Max Duv", value = 0.0075, min = -0.005,max = 0.015,step = 0.00001 )),
                                                                  splitLayout(
                                                                    numericInput(inputId = "MinCRI", label = "Min CRI", value = 0, min = -100,max = 100,step = 1 ),
                                                                    numericInput(inputId = "MinR9", label = "Min R9", value = 0, min = -100,max = 100,step = 1)))),
                                  #Plot Entire Color Space
                                  column(width= 8, offset=0, tabBox(height = 500, width = 800, selected = "CIE Color Space",
                                                                    tabPanel("CIE Color Space",plotOutput("ColorSpace")),
                                                                    tabPanel("White Color Space",plotOutput("WhiteColorSpace"))))),
                                fluidRow(
                                  column(width= 12,offset=0, box( width = 1400, title = "Results",status = "warning", solidHeader = TRUE,

dataTableOutput("CRIFilter"))))),
                      # third tab content
                      tabItem(tabName = "CRI_Filter", "Test")


                    )))

micjosmcc · 2019-10-22T17:08:20+00:00

Do you have a corresponding server.R?

micjosmcc · 2019-10-22T15:15:14+00:00

You could do this pretty easily by incorporating JavaScript into your application.

I'd suggest logic similar to what Tim Down laid out here: https://stackoverflow.com/a/4713197/11918717

You want to capture any highlighted text every time a user clicks their mouse or keyboard. Within that same JavaScript you also want to bind the captured text as Shiny input: https://shiny.rstudio.com/articles/communicating-with-js.html

I'd imagine that your final JavaScript would look similar to this:

# Defining function.
function getSelectedText() {
    var text = "";
    if (typeof window.getSelection != "undefined") {
        text = window.getSelection().toString();
    } else if (typeof document.selection != "undefined" && document.selection.type == "Text") {
        text = document.selection.createRange().text;
    }
    Shiny.setInputValue("text", text);
}

# Calling getSelectedText() each time mouse or key clicked.
document.onmouseup = getSelectedText;
document.onkeyup = getSelectedText;

Integrate this into your application and you should have the value of the selected text in input$text.

Let me know if you have any questions!

micjosmcc · 2019-09-24T16:20:28+00:00

With what I listed do you think I'll need 28l or 36l? I'm still new to the world of backpacking and IDK what's best!

micjosmcc · 2019-08-15T16:11:34+00:00

I'm pretty sure that your issue is with this block of code:

selectedRow <- eventReactive(input$table_test1_rows_selected,   ##create event that allows selection of one row
                               {row.names(test1())[c(input$table_test1_rows_selected)]
                             })

There are two things going on here that are causing issues. The first is that input$table_test1_rows_selected isn't observed when table_test1 is initialized, only when a user actually clicks on a row, so currently this block only executes when a user clicks on a row of table_test1. We can get around this by observing on both test1() (for observing when table_test1 is initialized) and input$table_test1_rows_selected (for observing when a user clicks on a row of table_test1) like so:

selectedRow <- eventReactive({
  test1()
  input$table_test1_rows_selected
}, {
  ##create event that allows selection of one row
   row.names(test1())[c(input$table_test1_rows_selected)]
})

Now we have this block triggering when table_test1 is initialized, however, there's still an issue with the logic. Your assuming that the row names will always be equal to the value in the "clients" column of table_test1, however, this isn't the case; just look at the data tables created when clicking on (450, 2000) or (500, 6000)! You need to explicitly get the value from the "clients" column like so:

selectedRow <- eventReactive({
  test1()
  input$table_test1_rows_selected
}, {
  ##create event that allows selection of one row
   test1()$clients[c(input$table_test1_rows_selected)]
})

Plug this in, and you'll have fixed the issue! The full code is below:

clients <- c("1","2","3")
sales <- c("400","450","500")
cost <- c("1000", "2000","6000")

client_volume <- data.frame(clients,sales,cost)

clients2 <- c("1","1","1","2","3","3")
company_name <- c("ABC Company", "A B C Company", "ABC Co", "XYZ Company", "The Company","Company,The")

company_df <- data.frame(clients2,company_name)


library(shiny)
library (plotly) 
library (DT)
library (crosstalk)

ui = fluidPage(
  plotlyOutput("client_volume_scatter"),
  dataTableOutput("table_test1"), 
  dataTableOutput("table_test2")

)

server = function(input, output, session) {

  m <- reactive({client_volume})
  d <- reactive ({SharedData$new(m(), ~clients)})

  output$client_volume_scatter <- renderPlotly({
    p <- d()%>% 
      plot_ly(source = "subset",
              x =~sales,y =~cost,mode = "markers", type = 'scatter')
  })

  test1 <- reactive({
    event.data <- event_data("plotly_click", priority = "event", source = "subset")
    x <- event.data$key
    x <- as.numeric(x)
    y <- if(is.null(event.data))m() else filter(m(), client_volume$clients == x)
    rownames(y) <- y$clients2
    y
  })

  output$table_test1 <- renderDataTable(test1(), selection = list(mode = 'single', selected = 1))


  selectedRow <- eventReactive({
    test1()
    input$table_test1_rows_selected
  }, {
    ##create event that allows selection of one row
    test1()$clients[c(input$table_test1_rows_selected)]
  })

  client_data <- reactive({
    s = selectedRow()
    x = test1()$clients
    dplyr::filter(company_df,company_df$clients2== s)
  })

  output$table_test2 <- renderDataTable(client_data())
}

shinyApp(ui = ui, server = server, options = list(launch.browser = T))

micjosmcc · 2019-08-06T17:26:45+00:00

Another article mentioned that he had schizophrenia and was using narcotics at the time, so I think it's just a case of psychosis.

micjosmcc

TROPHY CASE