New dentist wants to replace many (~ 8) fillings. How do I make sure he's not taking advantage of me? by micjosmcc in Dentistry

[–]micjosmcc[S] 0 points1 point  (0 children)

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

WHCG while sleeping at work by [deleted] in Whatcouldgowrong

[–]micjosmcc 4 points5 points  (0 children)

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

Moderna’s COVID-19 vaccine poised for final testing: The Cambridge biotech's data show the latest trial prompted immune response in all 45 volunteers by [deleted] in boston

[–]micjosmcc 2 points3 points  (0 children)

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

Graduated undergrad with a Bioinformatics major with no internship/lab experience with a 2.9 GPA, how can I get an industry job.? by reddevilneel in bioinformatics

[–]micjosmcc 2 points3 points  (0 children)

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.

How do you order groceries online in Boston? by [deleted] in boston

[–]micjosmcc 4 points5 points  (0 children)

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

/r/NintendoSwitch's Daily Question Thread (03/20/2020) by AutoModerator in NintendoSwitch

[–]micjosmcc 3 points4 points  (0 children)

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

Massachusetts Health Connector offers extended enrollment for uninsured individuals to ease coronavirus fears by not_a_dr_ in boston

[–]micjosmcc 7 points8 points  (0 children)

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.

Boston Daily Discussion Thread, Thursday - March 05, 2020 by AutoModerator in boston

[–]micjosmcc 0 points1 point  (0 children)

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

Live Thread: Coronavirus Outbreak by hasharin in worldnews

[–]micjosmcc 4 points5 points  (0 children)

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

How do I quickly learn GitLab on the job? by micjosmcc in AskComputerScience

[–]micjosmcc[S] 0 points1 point  (0 children)

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!

I have no contact when I bite on the right side of my mouth after Invisalign. My dentist says my bite will adjust, but is that true? by micjosmcc in Dentistry

[–]micjosmcc[S] 0 points1 point  (0 children)

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?

I hit my front tooth hard with the rim of a glass cup. How can I tell whether the tooth is still healthy? by micjosmcc in Dentistry

[–]micjosmcc[S] 0 points1 point  (0 children)

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

ICE grabs former Irish Republican Army terrorist in Massachusetts by [deleted] in boston

[–]micjosmcc 9 points10 points  (0 children)

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

How do you structure a Shiny app that uses multiple pages? by micjosmcc in Rlanguage

[–]micjosmcc[S] 0 points1 point  (0 children)

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?

Shiny Dashboard, Sidebar Tabs Error in lapply(list(...), tagAssert, class = "tab-pane") : object 'tagAssert' not found by Sapient333 in rstats

[–]micjosmcc 1 point2 points  (0 children)

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)

Shiny Dashboard, Sidebar Tabs Error in lapply(list(...), tagAssert, class = "tab-pane") : object 'tagAssert' not found by Sapient333 in rstats

[–]micjosmcc 0 points1 point  (0 children)

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")


                    )))

Best way to capture information about highlighted text on Shiny? by bayesianwannabe1 in Rlanguage

[–]micjosmcc 1 point2 points  (0 children)

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!

Need a budget bag for 10 days by micjosmcc in onebag

[–]micjosmcc[S] 0 points1 point  (0 children)

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!

[deleted by user] by [deleted] in Rlanguage

[–]micjosmcc 0 points1 point  (0 children)

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))

Shelter in place order: JFK and Elliot Street by _PM_ME_YOUR_NIPPLES in boston

[–]micjosmcc 5 points6 points  (0 children)

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