在显示4个视频的滑块中,当用户通过移动设备访问时,我需要用图片替换视频
df[] <- lapply(df, as.character)
as.numeric(mapply(function(x, y) length(unique(c(x, y))),
df$names, strsplit(df$partners, ", ")))
#[1] 4 3 3 3
如何在此代码中包括移动检测?
答案 0 :(得分:1)
老实说:您的代码有点混乱,到处都是错误。所以,我将重新开始。
首先请确保您遵循mobiledetect的安装说明,以免在使用时出现错误。
然后尝试运行以下代码:
<?php
// Include and instantiate the class.
require_once('Mobile_Detect.php');
$detect = new Mobile_Detect;
// detect mobiles and tables
if ($detect->isMobile() && $detect->isTablet()) {
echo "I will be showing images.";
}
else {
echo "I will be showing videos.";
}
您应该首先获得此代码才能正常工作。在计算机和移动设备上进行测试。只有在那之后,才需要担心实际显示图像和视频。
如果此代码给您带来任何问题,那么您可以将其放在注释中,最好是包含遇到的第一个完整错误。
我建议您在遇到问题时提出一个有关显示图像和视频的新问题。一个问题是图像,另一个是视频。我之所以这样说,是因为问题应该与一件事有关:移动检测,显示图像或显示视频。并非一次全部三个。