test if internet is connected over WiFi or ethernet cable in R

Question

What would be the most robust way to test if your internet is connected to wifi or ethernet in R?

I want to do an if statement, something like:<